flyByWindowInfo
authorClaus Gittinger <cg@exept.de>
Tue, 26 Feb 2008 11:24:29 +0100
changeset 7978 9b47e0e8ef71
parent 7977 c58175dd1ceb
child 7979 2c84a8cf3e6c
flyByWindowInfo
NewLauncher.st
--- a/NewLauncher.st	Tue Feb 26 11:24:21 2008 +0100
+++ b/NewLauncher.st	Tue Feb 26 11:24:29 2008 +0100
@@ -2694,136 +2694,141 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'Redraw All'
-            #translateLabel: true
-            #value: #redrawAllWindows
-            #activeHelpKey: #windowsRedrawAll
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: windowsRedrawAll
+            label: 'Redraw All'
+            itemValue: redrawAllWindows
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Iconify All'
-            #translateLabel: true
-            #value: #iconifyAllWindows
-            #activeHelpKey: #windowsIconifyAll
+         (MenuItem
+            activeHelpKey: windowsIconifyAll
+            label: 'Iconify All'
+            itemValue: iconifyAllWindows
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Deiconify All'
-            #translateLabel: true
-            #value: #deIconifyAllWindows
-            #activeHelpKey: #windowsDeiconifyAll
+         (MenuItem
+            activeHelpKey: windowsDeiconifyAll
+            label: 'Deiconify All'
+            itemValue: deIconifyAllWindows
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Migrate All To...'
-            #translateLabel: true
-            #value: #migrateAllWindows
-            #activeHelpKey: #windowsMigrateAllWindows
+         (MenuItem
+            activeHelpKey: windowsMigrateAllWindows
+            label: 'Migrate All To...'
+            itemValue: migrateAllWindows
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Window Tree'
-            #translateLabel: true
-            #value: #startWindowTreeView
-            #activeHelpKey: #windowsViewTree
+         (MenuItem
+            activeHelpKey: windowsViewTree
+            label: 'Window Tree'
+            itemValue: startWindowTreeView
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Window Tree (All Windows)'
-            #translateLabel: true
-            #value: #openApplication:
-            #activeHelpKey: #windowsViewTreeAllViews
-            #argument: 'WindowTreeView'
+         (MenuItem
+            activeHelpKey: windowsViewTreeAllViews
+            label: 'Window Tree (All Windows)'
+            itemValue: openApplication:
+            translateLabel: true
+            argument: 'WindowTreeView'
+          )
+         (MenuItem
+            activeHelpKey: windowsViewTreeAllScreens
+            label: 'Window Tree (All on All Screens)'
+            itemValue: startWindowTreeViewForAll
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Window Tree (All on All Screens)'
-            #translateLabel: true
-            #value: #startWindowTreeViewForAll
-            #activeHelpKey: #windowsViewTreeAllScreens
+         (MenuItem
+            label: 'Fly-By Information'
+            itemValue: showFlyByWindowInformation
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Select and Inspect'
-            #translateLabel: true
-            #value: #viewInspect
-            #activeHelpKey: #windowsSelectAndInspect
+         (MenuItem
+            activeHelpKey: windowsSelectAndInspect
+            label: 'Select and Inspect'
+            itemValue: viewInspect
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Select and Destroy'
-            #translateLabel: true
-            #value: #viewDestroy
-            #activeHelpKey: #windowsSelectAndDestroy
+         (MenuItem
+            activeHelpKey: windowsSelectAndDestroy
+            label: 'Select and Destroy'
+            itemValue: viewDestroy
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Select and Migrate To...'
-            #translateLabel: true
-            #value: #viewMigrate
-            #activeHelpKey: #windowsSelectAndMigrate
+         (MenuItem
+            activeHelpKey: windowsSelectAndMigrate
+            label: 'Select and Migrate To...'
+            itemValue: viewMigrate
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Find and Raise...'
-            #translateLabel: true
-            #value: #findAndRaiseWindow
-            #activeHelpKey: #windowsFindAndRaise
-            #enabled: #enableDangerousMenuItemsInRemoteLauncher
+         (MenuItem
+            activeHelpKey: windowsFindAndRaise
+            enabled: enableDangerousMenuItemsInRemoteLauncher
+            label: 'Find by Name and Raise...'
+            itemValue: findAndRaiseWindow
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Find and Destroy...'
-            #translateLabel: true
-            #value: #findAndDestroyWindow
-            #activeHelpKey: #windowsFindAndDestroy
-            #enabled: #enableDangerousMenuItemsInRemoteLauncher
+         (MenuItem
+            activeHelpKey: windowsFindAndDestroy
+            enabled: enableDangerousMenuItemsInRemoteLauncher
+            label: 'Find by Name and Destroy...'
+            itemValue: findAndDestroyWindow
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Find and Migrate To...'
-            #translateLabel: true
-            #value: #findAndMigrateWindow
-            #activeHelpKey: #windowsFindAndMigrate
+         (MenuItem
+            activeHelpKey: windowsFindAndMigrate
+            label: 'Find by Name and Migrate To...'
+            itemValue: findAndMigrateWindow
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Find and Migrate Back...'
-            #translateLabel: true
-            #value: #findAndMigrateWindowBack
-            #activeHelpKey: #windowsFindAndMigrateBack
+         (MenuItem
+            activeHelpKey: windowsFindAndMigrateBack
+            label: 'Find by Name and Migrate Back...'
+            itemValue: findAndMigrateWindowBack
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Grab Window...'
-            #translateLabel: true
-            #value: #viewHardcopy
-            #activeHelpKey: #windowsGrapWindow
+         (MenuItem
+            activeHelpKey: windowsGrapWindow
+            label: 'Grab Window...'
+            itemValue: viewHardcopy
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Grab Widget...'
-            #translateLabel: true
-            #value: #widgetHardcopy
-            #activeHelpKey: #windowsGrapWidget
+         (MenuItem
+            activeHelpKey: windowsGrapWidget
+            label: 'Grab Widget...'
+            itemValue: widgetHardcopy
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Grab Screen...'
-            #translateLabel: true
-            #value: #fullScreenHardcopy
-            #activeHelpKey: #windowsGrapScreen
+         (MenuItem
+            activeHelpKey: windowsGrapScreen
+            label: 'Grab Screen...'
+            itemValue: fullScreenHardcopy
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Grab Screen Area...'
-            #translateLabel: true
-            #value: #screenHardcopy
-            #activeHelpKey: #windowsGrapScreenArea
+         (MenuItem
+            activeHelpKey: windowsGrapScreenArea
+            label: 'Grab Screen Area...'
+            itemValue: screenHardcopy
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: 'Grab Screen Area with Delay...'
-            #translateLabel: true
-            #value: #screenHardcopyWithDelay
-            #activeHelpKey: #windowsGrapScreenArea
+         (MenuItem
+            activeHelpKey: windowsGrapScreenArea
+            label: 'Grab Screen Area with Delay...'
+            itemValue: screenHardcopyWithDelay
+            translateLabel: true
           )
          )
         nil
@@ -4371,5 +4376,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.362 2008-02-04 14:49:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.363 2008-02-26 10:24:29 cg Exp $'
 ! !