--- a/NewLauncher.st Fri Jan 27 22:18:53 2012 +0100
+++ b/NewLauncher.st Sun Jan 29 12:53:39 2012 +0000
@@ -545,10 +545,7 @@
'Show the latest news about ST/X.'
#newSystemBrowser
-'Open a System Browser.'
-
-#openTestRunner
-'Open the SUNIT test runner.'
+'Open the new, improved System Browser.'
#settingsCommunications
'Change communication settings.'
@@ -644,7 +641,7 @@
'Open a Changes Browser.'
#toolsChangesBrowserOrNavigateToRecentChange
-'Open a Changes Browser or navigate to a recent change.'
+'Open a Changes Browser or navigate to a recent Change.'
#toolsEvaluationWorkspace
'A 3-pane EvaluationWorkspace - good for lectures and Smalltalk courses'
@@ -692,22 +689,22 @@
'Open the new changes browser.'
#toolsOOM
-'Open the Object Oriented Metrics (OOM) tool.'
+''
#toolsOldChangesBrowser
'Open the old changes browser.'
#toolsProjects
-'Open the project tool.'
+''
#toolsSUnit
-'Open the SUnit test runner.'
+'Open the SUnit TestRunner.'
#toolsSmaCC
-'Open the SmaCC parser generator Tool.'
+'Open the SmaCC Parsergenerator Tool.'
#toolsSystemWorkspace
-'The SystemWorkspace with welcome messages'
+'The SystemWorkspace with Welcome Messages'
#toolsTerminal
'Open a terminal view (aka xterm)'
@@ -774,12 +771,7 @@
#flyByWindowInformation
'Show flyby info about the window under the pointer. Easy access to View, Application and Model.'
-
-#enableGlobalCoverageAnalysis
-'Enable coverage statistic gathering in all processes (global covarage analysis)'
)
-
- "Modified: / 27-12-2011 / 09:52:28 / cg"
! !
!NewLauncher class methodsFor:'interface specs'!
@@ -855,20 +847,21 @@
the UIPainter may not be able to read the specification."
"
- UIPainter new openOnClass:NewLauncher andSelector:#windowSpec_old
- NewLauncher new openInterface:#windowSpec_old
+ UIPainter new openOnClass:NewLauncher andSelector:#windowSpec
+ NewLauncher new openInterface:#windowSpec
+ NewLauncher open
"
<resource: #canvas>
^
#(FullSpec
- name: #'windowSpec_old'
+ name: windowSpec
window:
(WindowSpec
label: 'ST/X Launcher'
- name: 'ST/X Launcher'
- min: (Point 540 300)
+ name: 'Launcher'
+ min: (Point 374 44)
bounds: (Rectangle 0 0 291 202)
menu: menu
icon: windowIcon
@@ -887,7 +880,6 @@
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
miniScrollerHorizontal: true
- hasKeyboardFocusInitially: false
)
(UISubSpecification
name: 'infoBarSubSpec'
@@ -1164,7 +1156,6 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
-
"
MenuEditor new openOnClass:NewLauncher andSelector:#classesMenu
(Menu new fromLiteralArrayEncoding:(NewLauncher classesMenu)) startUp
@@ -1261,15 +1252,6 @@
itemValue: stopIgnoringHalts
translateLabel: true
)
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Enable Global Coverage Analysis'
- itemValue: enableGlobalCoverageAnalysis
- translateLabel: true
- activeHelpKey: enableGlobalCoverageAnalysis
- )
)
nil
nil
@@ -1343,8 +1325,6 @@
nil
nil
)
-
- "Modified: / 30-10-2011 / 12:36:20 / cg"
!
classesSpecialBrowserMenu
@@ -1404,16 +1384,6 @@
label: '-'
)
(MenuItem
- enabled: monticelloRepositoryAvailable
- label: 'Monticello Repository Browser'
- itemValue: startMonticelloRepositoryBrowser
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
label: 'Snapshot Image Browser...'
itemValue: startSnapshotImageBrowser
translateLabel: true
@@ -1430,8 +1400,6 @@
nil
nil
)
-
- "Modified: / 01-12-2011 / 21:35:52 / cg"
!
demosMenu
@@ -1441,7 +1409,6 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
-
"
MenuEditor new openOnClass:NewLauncher andSelector:#demosMenu
(Menu new fromLiteralArrayEncoding:(NewLauncher demosMenu)) startUp
@@ -1474,13 +1441,6 @@
argument: 'DigitalClockView'
)
(MenuItem
- activeHelpKey: demosDigitalClock
- label: 'QlockTwoWatch'
- itemValue: openDemo:
- translateLabel: true
- argument: 'QlockTwoWatch'
- )
- (MenuItem
activeHelpKey: demosBabelFish
label: 'BabelFish'
itemValue: openDemo:
@@ -2823,6 +2783,14 @@
labelImage: (ResourceRetriever NewLauncher startSUnitIcon 'SUnit Test Runner')
)
(MenuItem
+ activeHelpKey: toolsSUnit
+ label: 'SUnit Test Runner (enhanced)'
+ itemValue: startSUnitTestRunner2
+ nameKey: startSUnitTestRunner
+ translateLabel: true
+ labelImage: (ResourceRetriever NewLauncher startSUnitIcon 'SUnit Test Runner (enhanced)')
+ )
+ (MenuItem
activeHelpKey: toolsToDoList
label: 'Programmer''s ToDo List'
itemValue: startToDoListBrowser
@@ -4052,7 +4020,7 @@
space:true.
"
- "Modified: / 19-08-2011 / 12:17:30 / cg"
+ "Modified: / 09-08-2011 / 22:39:59 / cg"
!
addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
@@ -4355,7 +4323,7 @@
preferredExtent
- ^ super preferredExtent min: Screen current extent // (2.5 @ 3.5)
+ ^ super preferredExtent max: Screen current extent // (2.5 @ 3.5)
!
useNewSettingsApplication
@@ -4553,13 +4521,6 @@
!NewLauncher methodsFor:'user actions-classes'!
-enableGlobalCoverageAnalysis
- self halt.
- InstrumentationContext new beActiveEverywhere.
-
- "Created: / 28-10-2011 / 20:31:28 / cg"
-!
-
openMethodFinder
"open the methodFinder (ported from squeak)"
@@ -4839,14 +4800,10 @@
!NewLauncher class methodsFor:'documentation'!
-version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.423 2011-12-27 08:52:48 cg Exp $'
-!
-
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.423 2011-12-27 08:52:48 cg Exp $'
+ ^ '§Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.412 2011/08/09 20:42:27 cg Exp §'
!
version_SVN
- ^ '§Id: NewLauncher.st 7772 2011-06-08 21:59:15Z vranyj1 §'
-! !
+ ^ '$Id: NewLauncher.st 7810 2011-08-12 14:54:02Z vranyj1 $'
+! !
\ No newline at end of file