Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Wed, 17 May 1995 14:50:43 +0200
changeset 100 e481569337c2
parent 99 850af345d03e
child 101 8e991e725235
.
AboutBox.st file | annotate | diff | comparison | revisions
DebugView.st file | annotate | diff | comparison | revisions
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions
InspView.st file | annotate | diff | comparison | revisions
InspectorView.st file | annotate | diff | comparison | revisions
Launcher.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions
OldLauncher.st file | annotate | diff | comparison | revisions
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/AboutBox.st	Wed May 10 04:32:48 1995 +0200
+++ b/AboutBox.st	Wed May 17 14:50:43 1995 +0200
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.2 1995-04-11 16:30:07 claus Exp $
+$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.3 1995-05-17 12:49:48 claus Exp $
 "
 !
 
@@ -86,13 +86,10 @@
 
     device hasColors ifTrue:[
 	green := (Color red:0 green:80 blue:20) darkened.
-    ] ifFalse:[
-	green := White.
-    ].
-    device hasGreyscales ifTrue:[
 	dark := Color grey:10.
     ] ifFalse:[
-	dark := Black.
+	green := Color white.
+	dark := Color black.
     ].
 
     self viewBackground:dark; 
@@ -110,6 +107,8 @@
 !AboutBox methodsFor:'show / hide'!
 
 show
+    "redefined to automatically hide myself after some time"
+
     self autoHideAfter:10 with:[].
     super showAtCenter.
 
--- a/DebugView.st	Wed May 10 04:32:48 1995 +0200
+++ b/DebugView.st	Wed May 17 14:50:43 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.34 1995-05-10 02:32:30 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.35 1995-05-17 12:49:59 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.34 1995-05-10 02:32:30 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.35 1995-05-17 12:49:59 claus Exp $
 "
 !
 
@@ -313,7 +313,7 @@
 			origin:(0.0 @ 0.0)
 			extent:(1.0 @ (font height * 2))
 			    in:self.
-    bpanel layout:#left.
+    bpanel layout:#leftSpace.
 
     terminateButton := Button
 			label:(resources at:'terminate')
@@ -1522,7 +1522,7 @@
 	].
 	receiverInspector inspect:rec.
 	codeView doItAction:[:theCode |
-			 rec class compilerClass 
+			 rec class evaluatorClass 
 			     evaluate:theCode 
 			     in:nil 
 			     receiver:rec 
--- a/FBrowser.st	Wed May 10 04:32:48 1995 +0200
+++ b/FBrowser.st	Wed May 17 14:50:43 1995 +0200
@@ -27,7 +27,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.36 1995-05-09 01:59:15 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.37 1995-05-17 12:50:10 claus Exp $
 '!
 
 !FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.36 1995-05-09 01:59:15 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.37 1995-05-17 12:50:10 claus Exp $
 "
 !
 
@@ -58,7 +58,9 @@
     but migrated into a quite nice tool, includes all kinds of 
     warning and information boxes, background processes for directory-
     reading and internationalized strings. A good example for beginners,
-    on how to do things .... (and maybe how not to do things ;-)
+    on how to do things .... (and maybe how not to do things ;-, since some
+    stuff is historic and was implemented at times when better mechanisms
+    were not available)
 
     See additional information in 'doc/misc/fbrowser.doc'.
 
--- a/FileBrowser.st	Wed May 10 04:32:48 1995 +0200
+++ b/FileBrowser.st	Wed May 17 14:50:43 1995 +0200
@@ -27,7 +27,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.36 1995-05-09 01:59:15 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.37 1995-05-17 12:50:10 claus Exp $
 '!
 
 !FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.36 1995-05-09 01:59:15 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.37 1995-05-17 12:50:10 claus Exp $
 "
 !
 
@@ -58,7 +58,9 @@
     but migrated into a quite nice tool, includes all kinds of 
     warning and information boxes, background processes for directory-
     reading and internationalized strings. A good example for beginners,
-    on how to do things .... (and maybe how not to do things ;-)
+    on how to do things .... (and maybe how not to do things ;-, since some
+    stuff is historic and was implemented at times when better mechanisms
+    were not available)
 
     See additional information in 'doc/misc/fbrowser.doc'.
 
--- a/InspView.st	Wed May 10 04:32:48 1995 +0200
+++ b/InspView.st	Wed May 17 14:50:43 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.21 1995-05-09 01:59:25 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.22 1995-05-17 12:50:16 claus Exp $
 '!
 
 !InspectorView class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.21 1995-05-09 01:59:25 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.22 1995-05-17 12:50:16 claus Exp $
 "
 !
 
@@ -177,7 +177,7 @@
 
 setDoItAction
     workspace doItAction:[:theCode |
-	(inspectedObject class compilerClass) 
+	(inspectedObject class evaluatorClass) 
 	    evaluate:theCode 
 	    in:nil 
 	    receiver:inspectedObject 
@@ -393,7 +393,7 @@
 doAccept:theText
     |value index|
 
-    value := inspectedObject class compilerClass 
+    value := inspectedObject class evaluatorClass 
 		 evaluate:theText
 		 receiver:inspectedObject 
 		 notifying:workspace.
--- a/InspectorView.st	Wed May 10 04:32:48 1995 +0200
+++ b/InspectorView.st	Wed May 17 14:50:43 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.21 1995-05-09 01:59:25 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.22 1995-05-17 12:50:16 claus Exp $
 '!
 
 !InspectorView class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.21 1995-05-09 01:59:25 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.22 1995-05-17 12:50:16 claus Exp $
 "
 !
 
@@ -177,7 +177,7 @@
 
 setDoItAction
     workspace doItAction:[:theCode |
-	(inspectedObject class compilerClass) 
+	(inspectedObject class evaluatorClass) 
 	    evaluate:theCode 
 	    in:nil 
 	    receiver:inspectedObject 
@@ -393,7 +393,7 @@
 doAccept:theText
     |value index|
 
-    value := inspectedObject class compilerClass 
+    value := inspectedObject class evaluatorClass 
 		 evaluate:theText
 		 receiver:inspectedObject 
 		 notifying:workspace.
--- a/Launcher.st	Wed May 10 04:32:48 1995 +0200
+++ b/Launcher.st	Wed May 17 14:50:43 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.11 1995-05-10 02:32:48 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.12 1995-05-17 12:50:26 claus Exp $
 "
 ! !
 
@@ -70,13 +70,10 @@
 
 	Display hasColors ifTrue:[
 	    green := (Color red:0 green:80 blue:20) darkened.
-	] ifFalse:[
-	    green := White.
-	].
-	Display hasGreyscales ifTrue:[
 	    dark := Color grey:10.
 	] ifFalse:[
-	    dark := Black.
+	    dark := Color black.
+	    green := Color white.
 	].
 	image colorMap:(Array with:dark with:green); photometric:#palette.
 	Display depth > 2 ifTrue:[
@@ -322,8 +319,12 @@
     infoView level:-1.
     transcript superView bottomInset:(infoView height + spc).
 
-    halfSpc := spc // 2.
-    infoView topInset:(infoView height negated - spc);
+    infoView is3D ifTrue:[
+	halfSpc := spc // 2.
+    ] ifFalse:[
+	halfSpc := 0
+    ].
+    infoView topInset:(infoView height negated - spc + transcript borderWidth);
 	     bottomInset:halfSpc;
 	     leftInset:halfSpc; 
 	     rightInset:halfSpc.
@@ -340,13 +341,16 @@
 !
 
 focusSequence
-    ^ (Array with:myMenu) , buttonPanel subViews , (Array with:Transcript)
+    ^ (Array with:myMenu) 
+      , 
+      (buttonPanel subViews select:[:element | element isKindOf:Button])
+      , (Array with:Transcript)
 !
 
 setupViewsIn:topView 
     "create the pulldown menu, buttonPanel and transcript view"
 
-    |frame|
+    |frame tFont|
 
     topView model:self.
 
@@ -358,9 +362,10 @@
     self setupTranscriptIn:topView.
     self setupInfoViewIn:topView.
 
-    topView extent:((transcript font widthOf:'3')*60) 
+    tFont := transcript font.
+    topView extent:((tFont widthOf:'3')*60) 
 		    @ 
-		    ((transcript font height) * 20).
+		    ((tFont height) * 20).
 
     "
      NewLauncher open
@@ -370,7 +375,7 @@
 setupButtonPanelIn:aTopView
     "create the buttonPanel"
 
-    |sep spc|
+    |sep spc mh|
 
     spc := View viewSpacing // 2.
     buttonPanel := HorizontalPanelView in:aTopView.
@@ -387,12 +392,13 @@
 	] ifFalse:[
 	    b := Button in:buttonPanel.
 	    b form:(Image fromFile:(entry at:2)).
-	    b model:self; change:sel
+	    b model:self; changeMessage:sel
 	]
     ].
 
-    buttonPanel origin:0.0 @ myMenu height 
-		corner:(1.0 @ (myMenu height + buttonPanel preferedExtent y)).
+    mh := myMenu height.
+    buttonPanel origin:0.0 @ (mh + spc)
+		corner:(1.0 @ (mh + spc + buttonPanel preferedExtent y)).
 
     buttonPanel leftInset:spc; rightInset:spc.
 !
@@ -700,7 +706,8 @@
 !NewLauncher methodsFor:'actions - settings'!
 
 viewStyleSetting 
-    |listOfStyles resourceDir dir box|
+    |listOfStyles resourceDir dir box 
+     list listView infoLabel infoForwarder newStyle|
 
     "
      search resources directory for a list of .style files ...
@@ -711,18 +718,69 @@
 
     listOfStyles := dir select:[:aFileName | aFileName endsWith:'.style'].
     listOfStyles := listOfStyles collect:[:aFileName | aFileName copyWithoutLast:6].
+    listOfStyles sort.
 
-    box := ListSelectionBox title:(resources string:'STYLE_MSG') withCRs.
+"/ old code: used a standard ListSelectionBox
+"/ changed to intercept selection and add info-output.
+
+"/    box := ListSelectionBox title:(resources string:'STYLE_MSG') withCRs.
+"/    box label:(resources string:'Style selection').
+"/    box list:listOfStyles.
+"/    box initialText:View defaultStyle.
+"/    box selectAction:[:newStyle |
+"/    ].    
+"/    box action:[:newStyle |
+"/        transcript topView withCursor:Cursor wait do:[
+"/            Transcript showCr:'change style to ' , newStyle , ' ...'.
+"/            View defaultStyle:newStyle asSymbol.
+"/        ]
+"/    ].    
+"/    box showAtPointer
+
+"/ new code: build box 'by 'hand'
+"/
+    infoForwarder := Plug new.
+    infoForwarder respondTo:#showInfo
+		  with:[
+			|nm sheet comment|
+			nm := list selection.
+			sheet := ViewStyle fromFile:(nm , '.style').
+			comment := sheet at:#comment ifAbsent:''.
+			infoLabel label:comment withCRs asStringCollection
+		       ].
+
+    list := SelectionInList with:listOfStyles.
+    list onChangeSend:#showInfo to:infoForwarder.
+
+    box := Dialog new.
     box label:(resources string:'Style selection').
-    box list:listOfStyles.
-    box initialText:View defaultStyle.
-    box action:[:newStyle |
-	transcript topView withCursor:Cursor wait do:[
-	    Transcript showCr:'change style to ' , newStyle , ' ...'.
-	    View defaultStyle:newStyle asSymbol.
+
+    box addTextLabel:(resources string:'STYLE_MSG') withCRs.
+    listView := SelectionInListView on:list.
+    listView doubleClickAction:[:sel | box accept value:true. box hide].
+    listView height:200.
+    box addComponent:(ScrollableView forView:listView).
+    box addVerticalSpace.
+
+    (infoLabel := box addTextLabel:'\\' withCRs) adjust:#centerLeft.
+
+    box addAbortButton; addOkButton.
+    list selection:(View defaultStyle).
+    box extent:(box preferedExtent).
+    box minExtent:box extent.
+    box maxExtent:box extent.
+
+    box showAtPointer.
+
+    box accepted ifTrue:[
+	newStyle := list selection.
+	newStyle notNil ifTrue:[
+	    transcript topView withCursor:Cursor wait do:[
+		Transcript showCr:'change style to ' , newStyle , ' ...'.
+		View defaultStyle:newStyle asSymbol.
+	    ]
 	]
-    ].    
-    box showAtPointer
+    ]
 !
 
 languageSetting 
@@ -756,68 +814,124 @@
 !
 
 compilerSettings
-    |box warnSTX allowUnderscore immutableArrays|
+    |box warnings warnSTX warnUnderscore warnOldStyle allowUnderscore immutableArrays
+     warnSTXBox warnUnderscoreBox warnOldStyleBox enabler|
+
+
+    warnings := Compiler warnings asValue.
 
     warnSTX := Compiler warnSTXSpecials asValue.
+    warnUnderscore := Compiler warnUnderscoreInIdentifier asValue.
+    warnOldStyle := Compiler warnOldStyleAssignment asValue.
     allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
     immutableArrays := Compiler arraysAreImmutable asValue.
 
+    enabler := Plug new.
+    enabler 
+	respondTo:#check 
+	with:[warnings value ifTrue:[
+		warnSTXBox enable. 
+		warnOldStyleBox enable.
+		allowUnderscore value ifTrue:[
+		    warnUnderscoreBox enable.
+		] ifFalse:[
+		    warnUnderscoreBox disable.
+		].
+	      ] ifFalse:[
+		warnSTXBox disable. 
+		warnUnderscoreBox disable.
+		warnOldStyleBox disable.
+	      ]].
+
+    warnings onChangeSend:#check to:enabler.
+    allowUnderscore onChangeSend:#check to:enabler.
+
     box := DialogBox new.
     box label:'Compiler settings'.
     box extent:200@300.
 
-    box addCheckBox:'warn about ST/X language extensions' on:warnSTX.
-    box addVerticalSpace.
     box addCheckBox:'allow underscore in identifiers' on:allowUnderscore.
     box addVerticalSpace.
     box addCheckBox:'literal arrays are immutable' on:immutableArrays.
+"/    box addVerticalSpace.
+    box addHorizontalLine.
+"/    box addVerticalSpace.
+
+    box addCheckBox:'warnings' on:warnings.
+    box addVerticalSpace.
+    box leftIndent:30.
+    warnSTXBox := box addCheckBox:'ST/X language extensions' on:warnSTX.
+    box addVerticalSpace.
+    warnUnderscoreBox := box addCheckBox:'underscores in identifiers' on:warnUnderscore.
+    box addVerticalSpace.
+    warnOldStyleBox := box addCheckBox:'oldStyle assignment' on:warnOldStyle.
+    box addVerticalSpace.
+    box leftIndent:0.
 
     box addAbortButton; addOkButton.
+
+    enabler check.
     box showAtPointer.
 
     box accepted ifTrue:[
+	Compiler warnings:warnings value.
 	Compiler warnSTXSpecials:warnSTX value.
+	Compiler warnOldStyleAssignment:warnOldStyle value.
+	Compiler warnUnderscoreInIdentifier:warnUnderscore value.
 	Compiler allowUnderscoreInIdentifier:allowUnderscore value.
 	Compiler arraysAreImmutable:immutableArrays value.
     ]
 !
 
 miscSettings
-    |box logDoits|
+    |box logDoits compileLazy shadows|
 
     logDoits := Smalltalk logDoits asValue.
+    compileLazy := Autoload compileLazy asValue.
+    shadows := PopUpView shadows asValue.
 
     box := DialogBox new.
     box label:'Other settings'.
     box extent:200@300.
 
     box addCheckBox:'log doIts in changes file' on:logDoits.
+    box addHorizontalLine.
+    box addCheckBox:'lazy compilation when autoloading' on:compileLazy.
+
+    box addHorizontalLine.
+    box addCheckBox:'shadows under popup views ' on:shadows.
 
     box addAbortButton; addOkButton.
     box showAtPointer.
 
     box accepted ifTrue:[
 	Smalltalk logDoits:logDoits value.
+	Autoload compileLazy:compileLazy value.
+	PopUpView shadows:shadows value.
     ]
 ! !
 
 !NewLauncher methodsFor:'infoview update'!
 
 info
-    |project projectName projectDir|
+    |project projectName projectDir packageName|
 
     (Project isNil or:[(project := Project current) isNil]) ifTrue:[
 	projectName := '* none *'.
 	projectDir := '.'.
+	packageName := '* none *'.
     ] ifFalse:[
 	projectName := project name.
 	projectDir := project directory.
+	packageName := project packageName.
     ].
 
     ^ resources
-	string:'project: ''%1''  fileOut to: ''%2'''
-	  with:projectName
-	  with:(projectDir contractTo:30)
+	string:'project: ''%1''  package: ''%2''  fileOut to: ''%3'''
+	  withArgs:(Array 
+			with:projectName
+			with:packageName 
+			with:(projectDir contractTo:30))
 ! !
 
 !NewLauncher methodsFor:'actions - about & help'!
@@ -1024,7 +1138,7 @@
 exit
     (self confirm:(resources string:'Are you certain you want to exit without saving ?'))
     ifTrue:[
-	self closeDownViews.
+	self saveAllViews.
 	Smalltalk exit
     ]
 !
@@ -1043,7 +1157,7 @@
 	    self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
 	] ifTrue:[
 	    "
-	     closeDownViews tells all views to shutdown neatly 
+	     saveAllViews tells all views to shutdown neatly 
 	     (i.e. offer a chance to save the contents to a file).
 
 	     This is NOT required - all data should be in the snapshot ...
@@ -1052,7 +1166,7 @@
 	     uncomment it and query for saving - time will show which is better.
 	    "
 "
-	    self closeDownViews.
+	    self saveAllViews.
 "
 	    Smalltalk exit
 	]
@@ -1097,7 +1211,7 @@
 
 !NewLauncher methodsFor:'private'!
 
-closeDownViews
+saveAllViews
     "tell each topview that we are going to terminate and give it chance
      to save its contents."
 
--- a/Make.proto	Wed May 10 04:32:48 1995 +0200
+++ b/Make.proto	Wed May 17 14:50:43 1995 +0200
@@ -23,7 +23,7 @@
 
 all::       abbrev.stc objs classList.stc $(OBJTARGET)
 
-objs::  \
+OBJS=  \
 	    AboutBox.$(O)                       \
 	    $(SBROWSER_OBJ)                     \
 	    $(CBROWSER_OBJ)                     \
--- a/OldLauncher.st	Wed May 10 04:32:48 1995 +0200
+++ b/OldLauncher.st	Wed May 17 14:50:43 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.27 1995-03-31 03:07:19 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.28 1995-05-17 12:50:20 claus Exp $
 '!
 
 !Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.27 1995-03-31 03:07:19 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.28 1995-05-17 12:50:20 claus Exp $
 "
 !
 
@@ -85,9 +85,9 @@
     myMenu level:0.
 "/    myMenu borderWidth:0.
     myMenu origin:(0.0 @ logoLabel height).
+    myMenu resize.
 "/    myMenu font:(self font).
 "/    self extent:(myMenu extent).
-
 !
 
 initializeLogo
--- a/ProcMonitor.st	Wed May 10 04:32:48 1995 +0200
+++ b/ProcMonitor.st	Wed May 17 14:50:43 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.13 1995-05-09 01:59:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.14 1995-05-17 12:50:31 claus Exp $
 "
 !
 
@@ -195,8 +195,8 @@
 			line := line , (aProcess priority printStringLeftPaddedTo:3).
 			line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
 			line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
-			line := line , '(' , aProcess numberOfStackSegments printString , ')'.
 			(Smalltalk at:#SystemDebugging ifAbsent:[false]) ifTrue:[
+			    line := line , '(' , aProcess numberOfStackSegments printString , ')'.
 			    con := aProcess suspendedContext.
 			    con isNil ifTrue:[
 				aProcess == Processor activeProcess ifTrue:[
@@ -246,7 +246,6 @@
 updateView
     self updateList.
     self updateStatus
-
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
--- a/ProcessMonitor.st	Wed May 10 04:32:48 1995 +0200
+++ b/ProcessMonitor.st	Wed May 17 14:50:43 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.13 1995-05-09 01:59:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.14 1995-05-17 12:50:31 claus Exp $
 "
 !
 
@@ -195,8 +195,8 @@
 			line := line , (aProcess priority printStringLeftPaddedTo:3).
 			line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
 			line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
-			line := line , '(' , aProcess numberOfStackSegments printString , ')'.
 			(Smalltalk at:#SystemDebugging ifAbsent:[false]) ifTrue:[
+			    line := line , '(' , aProcess numberOfStackSegments printString , ')'.
 			    con := aProcess suspendedContext.
 			    con isNil ifTrue:[
 				aProcess == Processor activeProcess ifTrue:[
@@ -246,7 +246,6 @@
 updateView
     self updateList.
     self updateStatus
-
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
--- a/SBrowser.st	Wed May 10 04:32:48 1995 +0200
+++ b/SBrowser.st	Wed May 17 14:50:43 1995 +0200
@@ -64,7 +64,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.31 1995-05-06 14:28:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.32 1995-05-17 12:50:35 claus Exp $
 "
 !
 
@@ -1066,7 +1066,7 @@
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound:what
-    self showNoneFound
+    Dialog warn:(self classResources string:(what , '...\\... none found') withCRs).
 !
 
 showNoneFound
--- a/SystemBrowser.st	Wed May 10 04:32:48 1995 +0200
+++ b/SystemBrowser.st	Wed May 17 14:50:43 1995 +0200
@@ -64,7 +64,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.31 1995-05-06 14:28:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.32 1995-05-17 12:50:35 claus Exp $
 "
 !
 
@@ -1066,7 +1066,7 @@
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound:what
-    self showNoneFound
+    Dialog warn:(self classResources string:(what , '...\\... none found') withCRs).
 !
 
 showNoneFound
hg/stx-libtool