hg/stx-libtool: comparison NewLauncher.st

equal deleted inserted replaced

-:0ce340e972c4
+:c9b815af5777
 ^
 #(Menu
 (
 (MenuItem
 label: 'Window'
-translateLabel: true
 submenuChannel: allWindowsMenu
 )
 (MenuItem
 label: '-'
+)
+(MenuItem
+activeHelpKey: windowsIconifyAll
+label: 'Iconify All'
+itemValue: iconifyAllWindows
+)
+(MenuItem
+activeHelpKey: windowsDeiconifyAll
+label: 'Deiconify All'
+itemValue: deIconifyAllWindows
 )
 (MenuItem
 activeHelpKey: windowsRedrawAll
 label: 'Redraw All'
 itemValue: redrawAllWindows
-translateLabel: true
-)
-(MenuItem
-activeHelpKey: windowsIconifyAll
-label: 'Iconify All'
-itemValue: iconifyAllWindows
-translateLabel: true
-)
-(MenuItem
-activeHelpKey: windowsDeiconifyAll
-label: 'Deiconify All'
-itemValue: deIconifyAllWindows
-translateLabel: true
 )
 (MenuItem
 label: 'Migrate'
-translateLabel: true
 submenu:
 (Menu
 (
 (MenuItem
 activeHelpKey: windowsMigrateAllWindows
 enabled: windowMigrationFunctionsAreShown
 label: 'Migrate All To...'
 itemValue: migrateAllWindows
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsSelectAndMigrate
 enabled: windowMigrationFunctionsAreShown
 label: 'Select and Migrate To...'
 itemValue: viewMigrate
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsFindAndMigrate
 enabled: windowMigrationFunctionsAreShown
 label: 'Find by Name and Migrate To...'
 itemValue: findAndMigrateWindow
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsFindAndMigrateBack
 enabled: windowMigrationFunctionsAreShown
 label: 'Find by Name and Migrate Back...'
 itemValue: findAndMigrateWindowBack
-translateLabel: true
 )
 )
 nil
 nil
 )
 )
 (MenuItem
 activeHelpKey: windowsViewTree
 label: 'Window Tree'
 itemValue: startWindowTreeView
-translateLabel: true
 isVisible: windowTreeViewAvailable
 )
 (MenuItem
 activeHelpKey: windowsViewTreeAllViews
 label: 'Window Tree (All Windows)'
 itemValue: openApplication:
-translateLabel: true
 isVisible: windowTreeViewAvailable
 argument: 'WindowTreeView'
 )
 (MenuItem
 activeHelpKey: windowsViewTreeAllScreens
 label: 'Window Tree (All on All Screens)'
 itemValue: startWindowTreeViewForAll
-translateLabel: true
 isVisible: windowTreeViewAvailable
 )
 (MenuItem
 activeHelpKey: windowsViewTree
 label: 'Window Tree'
 itemValue: openWindowTreeInspector
-translateLabel: true
 labelImage: (ResourceRetriever ToolbarIconLibrary viewInspect22x22Icon 'Window Tree')
 )
 (MenuItem
 activeHelpKey: flyByWindowInformation
 label: 'FlyBy Window Information'
 itemValue: showFlyByWindowInformation
-translateLabel: true
 labelImage: (ResourceRetriever ToolbarIconLibrary viewFlyByInfo22x22Icon 'FlyBy Window Information')
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 activeHelpKey: windowsSelectAndInspect
 label: 'Select and Inspect...'
 itemValue: viewInspect
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsSelectAndInspect
 label: 'Select and Browse...'
 itemValue: viewBrowse
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsSelectAndDestroy
 label: 'Select and Destroy...'
 itemValue: viewDestroy
-translateLabel: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 activeHelpKey: windowsFindAndRaise
 enabled: enableDangerousMenuItemsInRemoteLauncher
 label: 'Find by Name and Raise...'
 itemValue: findAndRaiseWindow
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsFindAndDestroy
 enabled: enableDangerousMenuItemsInRemoteLauncher
 label: 'Find by Name and Destroy...'
 itemValue: findAndDestroyWindow
-translateLabel: true
 )
 (MenuItem
 label: '-'
 )
 (MenuItem
 activeHelpKey: windowsGrapWindow
 label: 'Select and Grab Window...'
 itemValue: viewHardcopy
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsGrapWidget
 label: 'Select and Grab Widget...'
 itemValue: widgetHardcopy
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsGrapScreen
 label: 'Grab Screen...'
 itemValue: fullScreenHardcopy
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsGrapScreenArea
 label: 'Grab Screen Area...'
 itemValue: screenHardcopy
-translateLabel: true
 )
 (MenuItem
 activeHelpKey: windowsGrapScreenArea
 label: 'Grab Screen Area with Delay...'
 itemValue: screenHardcopyWithDelay
-translateLabel: true
 )
 )
 nil
 nil
 )
 !NewLauncher methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 "care for project changes & update my infoView"
-((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo].
+((something == #currentProject)
+or:[ (changedObject == Project)
+or:[ (something == #finishedSnapshot)]]) ifTrue: [self updateInfo].
 changedObject == self selectedTabHolder ifTrue: [
 changedObject value == 1 ifTrue:[
 self noteBookCanvasHolder value:self transcriptView.
 ^ self.
 ].
 super allButOpenInterface:anInterface.
 self setupTranscript; updateInfo.
 Project notNil ifTrue: [Project addDependent:self].
+ObjectMemory addDependent:self.
 self class openLaunchers add: self.
 ^ builder
 "Created: / 5.2.1998 / 19:45:07 / cg"
 "Modified: / 20.6.1998 / 14:53:58 / cg"
 ].
 "Modified: / 16-11-2006 / 12:50:21 / cg"
 !
+release
+super release.
+OpenLaunchers notNil ifTrue:[OpenLaunchers remove:self ifAbsent:nil].
+Project notNil ifTrue:[Project removeDependent:self].
+ObjectMemory removeDependent:self.
+!
 requestForWindowClose
 |answer|
 isMainLauncher ifFalse:[
 "/ remote launchers may not finish ST/X
 ]
 "Modified: / 5.3.1999 / 18:00:36 / cg"
 !
-uninitialize
+!
-super uninitialize.
-OpenLaunchers notNil ifTrue:[OpenLaunchers remove:self ifAbsent:nil].
-Project notNil ifTrue:[Project removeDependent:self]
-! !
 !NewLauncher methodsFor:'user actions-classes'!
 enableGlobalCoverageAnalysis
 InstrumentationContext new beActiveEverywhere.
 ! !
 !NewLauncher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.460 2013-05-07 15:28:54 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.461 2013-06-05 10:03:42 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.460 2013-05-07 15:28:54 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.461 2013-06-05 10:03:42 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'
 !
 version_SVN
-^ '$Id: NewLauncher.st,v 1.460 2013-05-07 15:28:54 cg Exp $'
+^ '$Id: NewLauncher.st,v 1.461 2013-06-05 10:03:42 cg Exp $'
 ! !

branch	jv
changeset 13170	c9b815af5777
parent 12807	ba8c5416aa28
parent 12838	88952ff7f1cf
child 13178	c9bf900fe729