Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DirectoryTreeBrowser.st
changeset 5425 fed05f7926d7
parent 5381 a9ce3fe323c6
child 5442 4e025f6f8ed7 
--- a/DirectoryTreeBrowser.st	Wed Jan 14 10:42:33 2004 +0100
+++ b/DirectoryTreeBrowser.st	Wed Jan 14 10:49:12 2004 +0100
@@ -196,130 +196,131 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'Cut'
-            #itemValue: #doCut
-            #translateLabel: true
-            #isVisible: #allowFileOperations
-            #shortcutKey: #Cut
+     #(Menu
+        (
+         (MenuItem
+            label: 'Cut'
+            itemValue: doCut
+            translateLabel: true
+            isVisible: allowFileOperations
+            shortcutKey: Cut
           )
-         #(#MenuItem
-            #label: 'Copy'
-            #itemValue: #doCopy
-            #translateLabel: true
-            #isVisible: #allowFileOperations
-            #shortcutKey: #Copy
+         (MenuItem
+            label: 'Copy'
+            itemValue: doCopy
+            translateLabel: true
+            isVisible: allowFileOperations
+            shortcutKey: Copy
           )
-         #(#MenuItem
-            #enabled: #canPaste
-            #label: 'Paste'
-            #itemValue: #pasteFiles
-            #translateLabel: true
-            #isVisible: #allowFileOperations
-            #shortcutKey: #Paste
+         (MenuItem
+            enabled: canPaste
+            label: 'Paste'
+            itemValue: pasteFiles
+            translateLabel: true
+            isVisible: allowFileOperations
+            shortcutKey: Paste
           )
-         #(#MenuItem
-            #label: 'Delete'
-            #itemValue: #doDelete
-            #nameKey: #delete
-            #translateLabel: true
-            #isVisible: #allowFileOperations
-            #shortcutKey: #Delete
+         (MenuItem
+            label: 'Delete'
+            itemValue: doDelete
+            nameKey: delete
+            translateLabel: true
+            isVisible: allowFileOperations
+            shortcutKey: Delete
           )
-         #(#MenuItem
-            #label: '-'
-            #isVisible: #allowFileOperations
+         (MenuItem
+            label: '-'
+            isVisible: allowFileOperations
           )
-         #(#MenuItem
-            #label: 'New'
-            #translateLabel: true
-            #isVisible: #newVisibilityHolder
-            #submenuChannel: #newMenu
+         (MenuItem
+            label: 'New'
+            translateLabel: true
+            isVisible: newVisibilityHolder
+            submenuChannel: newMenu
+            keepLinkedMenu: true
           )
-         #(#MenuItem
-            #label: '-'
-            #isVisible: #newVisibilityHolder
+         (MenuItem
+            label: '-'
+            isVisible: newVisibilityHolder
           )
-         #(#MenuItem
-            #enabled: #hasSelection
-            #label: 'Rename'
-            #itemValue: #renameFileInTreeView
-            #translateLabel: true
-            #isVisible: #allowFileOperations
-            #shortcutKey: #Rename
+         (MenuItem
+            enabled: hasSelection
+            label: 'Rename'
+            itemValue: renameFileInTreeView
+            translateLabel: true
+            isVisible: allowFileOperations
+            shortcutKey: Rename
           )
-         #(#MenuItem
-            #enabled: #hasSelection
-            #label: 'Properties...'
-            #itemValue: #doShowProperties
-            #translateLabel: true
+         (MenuItem
+            enabled: hasSelection
+            label: 'Properties...'
+            itemValue: doShowProperties
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #enabled: #enableDirectoryUp
-            #label: 'Directory Up'
-            #itemValue: #doGoDirectoryUp
-            #translateLabel: true
+         (MenuItem
+            enabled: enableDirectoryUp
+            label: 'Directory Up'
+            itemValue: doGoDirectoryUp
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'View'
-            #translateLabel: true
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #enabled: #sortInTreeVisibilityHolder
-                  #label: 'Sort'
-                  #nameKey: #Sort
-                  #translateLabel: true
-                  #submenuChannel: #sortInTreeMenu
+         (MenuItem
+            label: 'View'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  enabled: sortInTreeVisibilityHolder
+                  label: 'Sort'
+                  nameKey: Sort
+                  translateLabel: true
+                  submenuChannel: sortInTreeMenu
                 )
-               #(#MenuItem
-                  #label: 'Show'
-                  #translateLabel: true
-                  #submenu: 
-                 #(#Menu
-                    #(
-                     #(#MenuItem
-                        #label: 'Files'
-                        #translateLabel: true
-                        #indication: #viewFilesInDirectoryTree
+               (MenuItem
+                  label: 'Show'
+                  translateLabel: true
+                  submenu: 
+                 (Menu
+                    (
+                     (MenuItem
+                        label: 'Files'
+                        translateLabel: true
+                        indication: viewFilesInDirectoryTree
                       )
                      )
                     nil
                     nil
                   )
                 )
-               #(#MenuItem
-                  #label: '-'
+               (MenuItem
+                  label: '-'
                 )
-               #(#MenuItem
-                  #enabled: #selectedFilesIncludesNonRootDirectory
-                  #label: 'Make Selected Directory new Root'
-                  #itemValue: #doSetSelectionToRoot
-                  #translateLabel: true
+               (MenuItem
+                  enabled: selectedFilesIncludesNonRootDirectory
+                  label: 'Make Selected Directory new Root'
+                  itemValue: doSetSelectionToRoot
+                  translateLabel: true
                 )
-               #(#MenuItem
-                  #label: 'Re-/ Expand Directory'
-                  #itemValue: #toggleExpandSelectedItem
-                  #translateLabel: true
+               (MenuItem
+                  label: 'Re-/ Expand Directory'
+                  itemValue: toggleExpandSelectedItem
+                  translateLabel: true
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Update'
-            #itemValue: #updateCurrentDirectory
-            #translateLabel: true
+         (MenuItem
+            label: 'Update'
+            itemValue: updateCurrentDirectory
+            translateLabel: true
           )
          )
         nil
@@ -1302,5 +1303,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.81 2003-11-27 12:39:33 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.82 2004-01-14 09:49:06 penk Exp $'
 ! !
hg/stx-libtool