hg/stx-libtool: comparison NewLauncher.st

equal deleted inserted replaced

-:d550d7de8e2d
+:ba8c5416aa28
 space:true
 [exEnd]
 "
 ! !
 !NewLauncher class methodsFor:'accessing'!
 label
 ^'ST/X Launcher'
 ! !
 !NewLauncher class methodsFor:'defaults'!
 defaultInfoLineTemplate
 "available values:
 "Created: / 16.8.1998 / 13:11:58 / cg"
 "Modified: / 17.8.1998 / 10:07:09 / cg"
 ! !
 !NewLauncher class methodsFor:'help specs'!
 flyByHelpSpec
 <resource: #help>
 'Enable coverage statistic gathering in all processes (global covarage analysis)'
 )
 "Modified: / 21-09-2012 / 10:59:33 / cg"
 ! !
 !NewLauncher class methodsFor:'interface specs'!
 windowSpec
 ^ self windowSpec_old.
 )
 )
 ! !
 !NewLauncher class methodsFor:'menu configuration'!
 addMenuItem:newItem from:anApplicationWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
 |positionSpecOrNil itemNameOrNil before launcherApp|
 "
 Transcript topView application
 removeUserTool:'Foo'
 "
 ! !
 !NewLauncher class methodsFor:'menu specs'!
 aboutMenu
 "This resource specification was automatically generated
 nil
 nil
 )
 ! !
 !NewLauncher class methodsFor:'oldstyle-menu specs'!
 settingsMenu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 )
 nil
 nil
 )
 ! !
 !NewLauncher methodsFor:'accessing'!
 errorListCanvas
 errorListCanvas isNil ifTrue:[
 ]
 ].
 ^ transcript
 ! !
 !NewLauncher methodsFor:'aspects'!
 canDoTerminal
 "return a 'valueHolder', which returns true if the terminal application
 is available. For now, this is true if we run under unix"
 !
 webDocumentsItemShownInHelpMenu
 ^ false
 ! !
 !NewLauncher methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 "care for project changes & update my infoView"
 bindings
 at:'IMAGE'
 put:(makeInfoString value:'Img' value:image).
 bindings
 at:'NS' put:( defNameSpace == Smalltalk
 ifTrue:[ '' ]
 ifFalse:[ '"',defNameSpace name,'" '] ).
 bindings
 at:'PROJECTDIR'
 put:(makeInfoString value:'Dir' value:(projectDir contractTo: 30)).
 projectInfo := self infoLineTemplate bindWithArguments:bindings.
 self infoLabelHolder value:projectInfo.
 ^projectInfo.
 ! !
 !NewLauncher methodsFor:'help'!
 defaultInfoLabel
 ^self updateInfo
 aKey == #fileSaveImage ifTrue:[
 ^ text bindWith:(ObjectMemory nameForSnapshot)
 ].
 ^ text
 ! !
 !NewLauncher methodsFor:'menu configuration'!
 addMenuItem:newItem from:anApplicationClassWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
 "adds a menu item;
 ^ UserAddedToolBarItems ? #()
 ! !
 !NewLauncher methodsFor:'menus-dynamic'!
 allWindowsMenu
 "returns a subMenu with one oeprations-submenu entry per open window"
 ] ifFalse:[
 info := ''
 ].
 submenu addItem:(MenuItem new
-label: ('Close all like This%1' bindWith:info);
+label: ('Close All like This%1' bindWith:info);
 itemValue: [likeThis do:[:eachView | eachView destroy]];
 translateLabel: true;
 enabled:(likeThis size > 1)).
 submenu addItem:(MenuItem new
-label: ('Iconify all like This%1' bindWith:info);
+label: ('Iconify All like This%1' bindWith:info);
 itemValue: [likeThis do:[:eachView | eachView collapse]];
 translateLabel: true;
 enabled:(likeThis size > 1)).
 submenu addItem:(MenuItem new
-label: ('Deconify all like This%1' bindWith:info);
+label: ('Deiconify All like This%1' bindWith:info);
 itemValue: [likeThis do:[:eachView | eachView raiseDeiconified]];
 translateLabel: true;
 enabled:(likeThis size > 1)).
 menu := Menu new receiver: self.
 changeHistory isEmpty ifTrue:[
 menu addItem:(MenuItem new
-label:'>> no changes <<';
+label:'>> no uncommitted changes <<';
 enabled:false).
 ] ifFalse:[
 menu addItemGroup:
 (changeHistory collect:[:change|
 MenuItem new
 ].
 "Created: / 12-11-2006 / 16:06:06 / cg"
 ! !
 !NewLauncher methodsFor:'private-settings callBacks'!
 reopenLauncher
 "reopen a new launcher.
 for now (since style & language settings currently do
 newLauncher := super reopenLauncher.
 newLauncher showingHelp:wasShowingHelp.
 ^ newLauncher
 ! !
 !NewLauncher methodsFor:'queries'!
 preferredExtent
 ^ super preferredExtent min: Screen current extent // (2.5 @ 3.5)
 !
 windowMigrationFunctionsAreShown
 ^ XWorkstation notNil
 ! !
 !NewLauncher methodsFor:'startup & release'!
 allButOpenInterface:anInterface
 "sent by my superclass to open up my interface"
 OpenLaunchers notNil ifTrue:[OpenLaunchers remove:self ifAbsent:nil].
 Project notNil ifTrue:[Project removeDependent:self]
 ! !
 !NewLauncher methodsFor:'user actions-classes'!
 enableGlobalCoverageAnalysis
 InstrumentationContext new beActiveEverywhere.
 !
 stopIgnoringHalts
 DebugView stopIgnoringHalts
 ! !
 !NewLauncher methodsFor:'user actions-demos'!
 openDemo:className
 "open a demo, given its name.
 "opens a 2-user ticTacToe game"
 self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
 ! !
 !NewLauncher methodsFor:'user actions-file'!
 clearTranscript
 Transcript current contents:''
 self warn:ex description.
 ].
 ].
 ! !
 !NewLauncher methodsFor:'user actions-help'!
 activeHelp
 helpIsOn isNil ifTrue:[
 UserPreferences current flyByHelpActive:aBoolean.
 "Modified: / 18.8.1998 / 16:06:27 / cg"
 ! !
 !NewLauncher methodsFor:'user actions-system'!
 initJavaVM
 JavaVM initializeVM
 "Created: / 20-06-2004 / 16:08:09 / masca"
 "Modified: / 20-04-2005 / 18:59:28 / janfrog"
 ! !
 !NewLauncher methodsFor:'user actions-windows'!
 redrawAllWindows
 device redrawAllWindows.
 ! !
 !NewLauncher::AddedToolInfo methodsFor:'accessing'!
 before
 ^ before
 where:something
 where := something.
 ! !
 !NewLauncher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.457 2013-04-04 12:58:03 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.460 2013-05-07 15:28:54 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.457 2013-04-04 12:58:03 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.460 2013-05-07 15:28:54 cg Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'
 !
 version_SVN
-^ '�Id: NewLauncher.st 7772 2011-06-08 21:59:15Z vranyj1 �'
+^ '$Id: NewLauncher.st,v 1.460 2013-05-07 15:28:54 cg Exp $'
 ! !

branch	jv
changeset 12807	ba8c5416aa28
parent 12651	80720f8a6c70
parent 12745	b7a4fff33fae
child 13170	c9b815af5777