diff --git a/extra/images/viewer/viewer.factor b/extra/images/viewer/viewer.fact index c62293b..9356e42 100644 --- a/extra/images/viewer/viewer.factor +++ b/extra/images/viewer/viewer.factor @@ -27,7 +27,7 @@ CONSTRUCTOR: image-control ( model -- image-control ) ; M: image-control pref-dim* image>> [ dim>> ] [ { 640 480 } ] if* ; M: image-control model-changed - swap value>> >>image relayout ; + swap value>> >>image f >>texture relayout ; ! Todo: delete texture on ungraft