release images after closing
authortz
Wed, 21 Jan 1998 14:58:08 +0100
changeset 441 b16598618359
parent 440 1198f19712ff
child 442 77009b480ba9
release images after closing
MenuEditor.st
--- a/MenuEditor.st	Tue Jan 20 20:38:01 1998 +0100
+++ b/MenuEditor.st	Wed Jan 21 14:58:08 1998 +0100
@@ -283,7 +283,6 @@
                 #'label:' 'File'
                 #'translateLabel:' true
                 #'value:' #file
-                #'accessCharacterPosition:' 1
                 #'submenu:' 
                  #(#Menu
                     
@@ -349,22 +348,18 @@
             )
              #(#MenuItem
                 #'label:' 'Edit'
-                #'accessCharacterPosition:' 1
                 #'submenuChannel:' #menuEdit
             )
              #(#MenuItem
                 #'label:' 'Test'
-                #'accessCharacterPosition:' 1
                 #'submenuChannel:' #submenuTest
             )
              #(#MenuItem
                 #'label:' 'History'
-                #'accessCharacterPosition:' 2
                 #'submenuChannel:' #menuHistory
             )
              #(#MenuItem
                 #'label:' 'Help'
-                #'accessCharacterPosition:' 1
                 #'submenuChannel:' #menuHelp
             )
           ) nil
@@ -2695,6 +2690,18 @@
     self redrawLine: index.
 ! !
 
+!MenuEditor::TreeView methodsFor:'startup / release'!
+
+destroy
+    "destroy images"
+
+    super destroy.
+
+    Images := nil
+
+
+! !
+
 !MenuEditor class methodsFor:'documentation'!
 
 version