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
Tue, 27 Jun 1995 04:30:28 +0200
changeset 106 f4eb10b3b463
parent 105 520f37755229
child 107 db1b370632d7
.
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions
CBrowser.st file | annotate | diff | comparison | revisions
ChangeSetBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions
ChgSetBrwsr.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
ProjectV.st file | annotate | diff | comparison | revisions
ProjectView.st file | annotate | diff | comparison | revisions
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions
resources/ProjectV.rs file | annotate | diff | comparison | revisions
resources/ProjectView.rs file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/BrowserView.st	Tue Jun 27 04:30:28 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.9 1995-06-06 04:19:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.10 1995-06-27 02:28:56 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.9 1995-06-06 04:19:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.10 1995-06-27 02:28:56 claus Exp $
 "
 !
 
@@ -66,6 +66,13 @@
     for how to use the browser.
 
     written winter 89 by claus
+
+    Notice: SystemBrowser is currently being rewritten to be an instance
+    of ApplicationModel - this transition is not yet complete and you see
+    here intermediate versions of BrowserView/SystemBrowser. 
+    All action is (currently) still done here in BrowserView, although the
+    SystemBrowsers class methods are used to startup a browser.
+    This will certainly change ...
 "
 ! !
 
@@ -314,7 +321,7 @@
      kludge: check if its a wrapped one
     "
     (selectorString endsWith:' !!') ifTrue:[
-	selectorString := selectorString copyTo:(selectorString size - 2)
+	selectorString := selectorString copyWithoutLast:2 "copyTo:(selectorString size - 2)"
     ].
     selectorSymbol := selectorString asSymbol.
     fullProtocol ifTrue:[
@@ -469,7 +476,7 @@
 	    nm := aClass name.
 	    showInstance ifFalse:[
 		((nm ~= 'Metaclass') and:[nm endsWith:'class']) ifTrue:[
-		    nm := nm copyTo:(nm size - 5)
+		    nm := nm copyWithoutLast:5 "copyTo:(nm size - 5)"
 		]
 	    ].
 	    self switchToClassNamed:nm.
@@ -875,7 +882,7 @@
 
 	    (clsName endsWith:'class') ifTrue:[
 		isMeta := true.
-		clsName := clsName copyTo:(clsName size - 5)
+		clsName := clsName copyWithoutLast:5 "copyTo:(clsName size - 5)"
 	    ] ifFalse:[
 		isMeta := false
 	    ].
@@ -889,8 +896,7 @@
 busyLabel:what with:someArgument
     "set the title for some warning"
 
-    self label:('System Browser:' , (resources string:what with:someArgument))
-
+    self label:('System Browser - ' , (resources string:what with:someArgument))
 !
 
 classesInHierarchy:aClass do:aBlock
@@ -2762,7 +2768,7 @@
 		clsName := words first.
 		(clsName endsWith:'class') ifTrue:[
 		    isMeta := true.
-		    clsName := clsName copyTo:(clsName size - 5)
+		    clsName := clsName copyWithoutLast:5 "copyTo:(clsName size - 5)"
 		] ifFalse:[
 		    isMeta := false
 		].
@@ -3333,41 +3339,6 @@
     self updateClassCategoryListWithScroll:true
 !
 
-allClassesInCurrentCategoryInOrderDo:aBlock
-    "evaluate aBlock for all classes in the current class category;
-     superclasses come first - then subclasses"
-
-    |classes|
-
-    currentClassCategory notNil ifTrue:[
-	classes := OrderedCollection new.
-	Smalltalk allBehaviorsDo:[:aClass |
-	    aClass isMeta ifFalse:[
-		(aClass category = currentClassCategory) ifTrue:[
-		    classes add:aClass
-		]
-	    ]
-	].
-	classes topologicalSort:[:a :b | b isSubclassOf:a].
-	classes do:aBlock
-    ]
-!
-
-allClassesInCurrentCategoryDo:aBlock
-    "evaluate aBlock for all classes in the current class category;
-     superclasses come first - then subclasses"
-
-    currentClassCategory notNil ifTrue:[
-	Smalltalk allBehaviorsDo:[:aClass |
-	    aClass isMeta ifFalse:[
-		(aClass category = currentClassCategory) ifTrue:[
-		    aBlock value:aClass
-		]
-	    ]
-	].
-    ]
-!
-
 renameCurrentClassCategoryTo:aString
     "helper - do the rename"
 
@@ -3428,7 +3399,7 @@
     classString := self classFromClassMethodString:string.
     selectorString := self selectorFromClassMethodString:string.
     ((classString ~= 'Metaclass') and:[classString endsWith:'class']) ifTrue:[
-	classString := classString copyTo:(classString size - 5).
+	classString := classString copyWithoutLast:5 "copyTo:(classString size - 5)".
 	self switchToClass:(Smalltalk at:classString asSymbol).
 	actualClass := acceptClass := currentClass class
     ] ifFalse:[
@@ -3526,7 +3497,7 @@
 	currentClass notNil ifTrue:[
 	    oldClassName := currentClass name.
 	    (oldClassName endsWith:'-old') ifTrue:[
-		oldClassName := oldClassName copyTo:(oldClassName size - 4)
+		oldClassName := oldClassName copyWithoutLast:4 "copyTo:(oldClassName size - 4)"
 	    ]
 	].
 	oldMethodCategory := currentMethodCategory.
@@ -3552,7 +3523,7 @@
 classCategoryPrintOutProtocol
     |printStream|
 
-    self allClassesInCurrentCategoryInOrderDo:[:aClass |
+    Smalltalk allClassesInCategory:currentClassCategory inOrderDo:[:aClass |
 	printStream := Printer new.
 	aClass printOutProtocolOn:printStream.
 	printStream close
@@ -3562,7 +3533,7 @@
 classCategoryPrintOut
     |printStream|
 
-    self allClassesInCurrentCategoryDo:[:aClass |
+    Smalltalk allClassesInCategory:currentClassCategory do:[:aClass |
 	printStream := Printer new.
 	aClass printOutOn:printStream.
 	printStream close
@@ -3595,24 +3566,27 @@
 	fileName := Project currentProjectDirectory , fileName.
     ].
 
-    "
-     if file exists, save original in a .sav file
-    "
-    fileName asFilename exists ifTrue:[
-	fileName asFilename copyTo:(fileName , '.sav')
+    self withWaitCursorDo:[
+	"
+	 if file exists, save original in a .sav file
+	"
+	fileName asFilename exists ifTrue:[
+	    self busyLabel:'saving existing %1' with:fileName.
+	    fileName asFilename copyTo:(fileName , '.sav')
+	].
+
+	aStream := FileStream newFileNamed:fileName.
+	aStream isNil ifTrue:[
+	    self warn:'cannot create: %1' with:fileName
+	] ifFalse:[
+	    self busyLabel:'writing: %1' with:fileName.
+	    Smalltalk allClassesInCategory:currentClassCategory inOrderDo:[:aClass |
+		aClass fileOutOn:aStream.
+	    ].
+	    aStream close.
+	]
     ].
-    aStream := FileStream newFileNamed:fileName.
-    aStream isNil ifTrue:[
-	^ self warn:'cannot create: %1' with:fileName
-    ].
-    self withWaitCursorDo:[
-	self busyLabel:'writing: %1' with:fileName.
-	self allClassesInCurrentCategoryInOrderDo:[:aClass |
-	    aClass fileOutOn:aStream.
-	].
-	aStream close.
-	self normalLabel.
-    ]
+    self normalLabel.
 !
 
 classCategorySpawnFullClass
@@ -3633,8 +3607,8 @@
 
 classCategoryFileOutEach
     self withWaitCursorDo:[
-	self allClassesInCurrentCategoryDo:[:aClass |
-	    self busyLabel:'saving: ' with:aClass name.
+	Smalltalk allClassesInCategory:currentClassCategory do:[:aClass |
+	    self busyLabel:'saving: %1' with:aClass name.
 	    Class fileOutErrorSignal handle:[:ex |
 		self warn:'cannot create: %1' with:ex parameter.
 		ex return.
@@ -4812,7 +4786,7 @@
 	    |homeClass|
 
 	    aVariableName isEmpty ifFalse:[
-		self windowGroup showCursor:Cursor questionMark.
+		windowGroup showCursor:Cursor questionMark.
 
 		homeClass := self findClassOfVariable:aVariableName accessWith:access.
 		SystemBrowser 
@@ -4834,7 +4808,7 @@
 	box := self enterBoxForVariableSearch:title.
 	box action:[:aString |
 	    aString notEmpty ifTrue:[
-		self windowGroup showCursor:(Cursor questionMark).
+		windowGroup showCursor:(Cursor questionMark).
 		SystemBrowser 
 		    browseInstRefsTo:aString
 		    in:(Array with:currentClass)
@@ -4876,7 +4850,7 @@
 	box := self enterBoxForVariableSearch:title.
 	box action:[:aString |
 	    aString notEmpty ifTrue:[
-		self windowGroup showCursor:(Cursor questionMark).
+		windowGroup showCursor:(Cursor questionMark).
 		SystemBrowser 
 		       browseClassRefsTo:aString
 		       in:(Array with:currentClass)
@@ -5125,7 +5099,7 @@
 		selectorString := self selectorFromClassMethodString:line.
 
 		((classString ~= 'Metaclass') and:[classString endsWith:'class']) ifTrue:[
-		    classString := classString copyTo:(classString size - 5).
+		    classString := classString copyWithoutLast:5 "copyTo:(classString size - 5)".
 		    cls := (Smalltalk at:classString asSymbol).
 		    cls := cls class
 		] ifFalse:[
--- a/BrwsrView.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/BrwsrView.st	Tue Jun 27 04:30:28 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.9 1995-06-06 04:19:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.10 1995-06-27 02:28:56 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.9 1995-06-06 04:19:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.10 1995-06-27 02:28:56 claus Exp $
 "
 !
 
@@ -66,6 +66,13 @@
     for how to use the browser.
 
     written winter 89 by claus
+
+    Notice: SystemBrowser is currently being rewritten to be an instance
+    of ApplicationModel - this transition is not yet complete and you see
+    here intermediate versions of BrowserView/SystemBrowser. 
+    All action is (currently) still done here in BrowserView, although the
+    SystemBrowsers class methods are used to startup a browser.
+    This will certainly change ...
 "
 ! !
 
@@ -314,7 +321,7 @@
      kludge: check if its a wrapped one
     "
     (selectorString endsWith:' !!') ifTrue:[
-	selectorString := selectorString copyTo:(selectorString size - 2)
+	selectorString := selectorString copyWithoutLast:2 "copyTo:(selectorString size - 2)"
     ].
     selectorSymbol := selectorString asSymbol.
     fullProtocol ifTrue:[
@@ -469,7 +476,7 @@
 	    nm := aClass name.
 	    showInstance ifFalse:[
 		((nm ~= 'Metaclass') and:[nm endsWith:'class']) ifTrue:[
-		    nm := nm copyTo:(nm size - 5)
+		    nm := nm copyWithoutLast:5 "copyTo:(nm size - 5)"
 		]
 	    ].
 	    self switchToClassNamed:nm.
@@ -875,7 +882,7 @@
 
 	    (clsName endsWith:'class') ifTrue:[
 		isMeta := true.
-		clsName := clsName copyTo:(clsName size - 5)
+		clsName := clsName copyWithoutLast:5 "copyTo:(clsName size - 5)"
 	    ] ifFalse:[
 		isMeta := false
 	    ].
@@ -889,8 +896,7 @@
 busyLabel:what with:someArgument
     "set the title for some warning"
 
-    self label:('System Browser:' , (resources string:what with:someArgument))
-
+    self label:('System Browser - ' , (resources string:what with:someArgument))
 !
 
 classesInHierarchy:aClass do:aBlock
@@ -2762,7 +2768,7 @@
 		clsName := words first.
 		(clsName endsWith:'class') ifTrue:[
 		    isMeta := true.
-		    clsName := clsName copyTo:(clsName size - 5)
+		    clsName := clsName copyWithoutLast:5 "copyTo:(clsName size - 5)"
 		] ifFalse:[
 		    isMeta := false
 		].
@@ -3333,41 +3339,6 @@
     self updateClassCategoryListWithScroll:true
 !
 
-allClassesInCurrentCategoryInOrderDo:aBlock
-    "evaluate aBlock for all classes in the current class category;
-     superclasses come first - then subclasses"
-
-    |classes|
-
-    currentClassCategory notNil ifTrue:[
-	classes := OrderedCollection new.
-	Smalltalk allBehaviorsDo:[:aClass |
-	    aClass isMeta ifFalse:[
-		(aClass category = currentClassCategory) ifTrue:[
-		    classes add:aClass
-		]
-	    ]
-	].
-	classes topologicalSort:[:a :b | b isSubclassOf:a].
-	classes do:aBlock
-    ]
-!
-
-allClassesInCurrentCategoryDo:aBlock
-    "evaluate aBlock for all classes in the current class category;
-     superclasses come first - then subclasses"
-
-    currentClassCategory notNil ifTrue:[
-	Smalltalk allBehaviorsDo:[:aClass |
-	    aClass isMeta ifFalse:[
-		(aClass category = currentClassCategory) ifTrue:[
-		    aBlock value:aClass
-		]
-	    ]
-	].
-    ]
-!
-
 renameCurrentClassCategoryTo:aString
     "helper - do the rename"
 
@@ -3428,7 +3399,7 @@
     classString := self classFromClassMethodString:string.
     selectorString := self selectorFromClassMethodString:string.
     ((classString ~= 'Metaclass') and:[classString endsWith:'class']) ifTrue:[
-	classString := classString copyTo:(classString size - 5).
+	classString := classString copyWithoutLast:5 "copyTo:(classString size - 5)".
 	self switchToClass:(Smalltalk at:classString asSymbol).
 	actualClass := acceptClass := currentClass class
     ] ifFalse:[
@@ -3526,7 +3497,7 @@
 	currentClass notNil ifTrue:[
 	    oldClassName := currentClass name.
 	    (oldClassName endsWith:'-old') ifTrue:[
-		oldClassName := oldClassName copyTo:(oldClassName size - 4)
+		oldClassName := oldClassName copyWithoutLast:4 "copyTo:(oldClassName size - 4)"
 	    ]
 	].
 	oldMethodCategory := currentMethodCategory.
@@ -3552,7 +3523,7 @@
 classCategoryPrintOutProtocol
     |printStream|
 
-    self allClassesInCurrentCategoryInOrderDo:[:aClass |
+    Smalltalk allClassesInCategory:currentClassCategory inOrderDo:[:aClass |
 	printStream := Printer new.
 	aClass printOutProtocolOn:printStream.
 	printStream close
@@ -3562,7 +3533,7 @@
 classCategoryPrintOut
     |printStream|
 
-    self allClassesInCurrentCategoryDo:[:aClass |
+    Smalltalk allClassesInCategory:currentClassCategory do:[:aClass |
 	printStream := Printer new.
 	aClass printOutOn:printStream.
 	printStream close
@@ -3595,24 +3566,27 @@
 	fileName := Project currentProjectDirectory , fileName.
     ].
 
-    "
-     if file exists, save original in a .sav file
-    "
-    fileName asFilename exists ifTrue:[
-	fileName asFilename copyTo:(fileName , '.sav')
+    self withWaitCursorDo:[
+	"
+	 if file exists, save original in a .sav file
+	"
+	fileName asFilename exists ifTrue:[
+	    self busyLabel:'saving existing %1' with:fileName.
+	    fileName asFilename copyTo:(fileName , '.sav')
+	].
+
+	aStream := FileStream newFileNamed:fileName.
+	aStream isNil ifTrue:[
+	    self warn:'cannot create: %1' with:fileName
+	] ifFalse:[
+	    self busyLabel:'writing: %1' with:fileName.
+	    Smalltalk allClassesInCategory:currentClassCategory inOrderDo:[:aClass |
+		aClass fileOutOn:aStream.
+	    ].
+	    aStream close.
+	]
     ].
-    aStream := FileStream newFileNamed:fileName.
-    aStream isNil ifTrue:[
-	^ self warn:'cannot create: %1' with:fileName
-    ].
-    self withWaitCursorDo:[
-	self busyLabel:'writing: %1' with:fileName.
-	self allClassesInCurrentCategoryInOrderDo:[:aClass |
-	    aClass fileOutOn:aStream.
-	].
-	aStream close.
-	self normalLabel.
-    ]
+    self normalLabel.
 !
 
 classCategorySpawnFullClass
@@ -3633,8 +3607,8 @@
 
 classCategoryFileOutEach
     self withWaitCursorDo:[
-	self allClassesInCurrentCategoryDo:[:aClass |
-	    self busyLabel:'saving: ' with:aClass name.
+	Smalltalk allClassesInCategory:currentClassCategory do:[:aClass |
+	    self busyLabel:'saving: %1' with:aClass name.
 	    Class fileOutErrorSignal handle:[:ex |
 		self warn:'cannot create: %1' with:ex parameter.
 		ex return.
@@ -4812,7 +4786,7 @@
 	    |homeClass|
 
 	    aVariableName isEmpty ifFalse:[
-		self windowGroup showCursor:Cursor questionMark.
+		windowGroup showCursor:Cursor questionMark.
 
 		homeClass := self findClassOfVariable:aVariableName accessWith:access.
 		SystemBrowser 
@@ -4834,7 +4808,7 @@
 	box := self enterBoxForVariableSearch:title.
 	box action:[:aString |
 	    aString notEmpty ifTrue:[
-		self windowGroup showCursor:(Cursor questionMark).
+		windowGroup showCursor:(Cursor questionMark).
 		SystemBrowser 
 		    browseInstRefsTo:aString
 		    in:(Array with:currentClass)
@@ -4876,7 +4850,7 @@
 	box := self enterBoxForVariableSearch:title.
 	box action:[:aString |
 	    aString notEmpty ifTrue:[
-		self windowGroup showCursor:(Cursor questionMark).
+		windowGroup showCursor:(Cursor questionMark).
 		SystemBrowser 
 		       browseClassRefsTo:aString
 		       in:(Array with:currentClass)
@@ -5125,7 +5099,7 @@
 		selectorString := self selectorFromClassMethodString:line.
 
 		((classString ~= 'Metaclass') and:[classString endsWith:'class']) ifTrue:[
-		    classString := classString copyTo:(classString size - 5).
+		    classString := classString copyWithoutLast:5 "copyTo:(classString size - 5)".
 		    cls := (Smalltalk at:classString asSymbol).
 		    cls := cls class
 		] ifFalse:[
--- a/CBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/CBrowser.st	Tue Jun 27 04:30:28 1995 +0200
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.35 1995-06-06 04:19:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.36 1995-06-27 02:29:11 claus Exp $
 '!
 
 !ChangesBrowser class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.35 1995-06-06 04:19:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.36 1995-06-27 02:29:11 claus Exp $
 "
 !
 
@@ -1561,16 +1561,11 @@
 	    selectors:selectors.
 
     changeListView hasSelection ifFalse:[
-	#(doApply doApplyClassRest doApplyRest doDelete doDeleteRest doDeleteClassRest
-	  doDeleteClassAll doCompare doMakePatch doSaveChangeInFile doMakePermanent
-	  doSave doSaveRest doSaveClassAll doSaveClassRest doBrowse) 
-	do:[:sel |
-	    m disable:sel
-	].
+	m disableAll:#(doApply doApplyClassRest doApplyRest doDelete doDeleteRest doDeleteClassRest
+		       doDeleteClassAll doCompare doMakePatch doSaveChangeInFile doMakePermanent
+		       doSave doSaveRest doSaveClassAll doSaveClassRest doBrowse) 
     ].
     ^ m
-
-
 ! !
 
 !ChangesBrowser methodsFor:'event handling '!
--- a/ChangeSetBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ChangeSetBrowser.st	Tue Jun 27 04:30:28 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.4 1994-11-17 14:47:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.5 1995-06-27 02:29:17 claus Exp $
 '!
 
 !ChangeSetBrowser class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.4 1994-11-17 14:47:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.5 1995-06-27 02:29:17 claus Exp $
 "
 !
 
@@ -128,8 +128,10 @@
 changeSet:aChangeSet
     originalChangeSet := aChangeSet.
     changeSet := OrderedCollection new.
-    originalChangeSet do:[:aChange |
-	changeSet add:aChange
+    originalChangeSet notNil ifTrue:[
+	originalChangeSet do:[:aChange |
+	    changeSet add:aChange
+	].
     ].
 !
 
--- a/ChangesBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ChangesBrowser.st	Tue Jun 27 04:30:28 1995 +0200
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.35 1995-06-06 04:19:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.36 1995-06-27 02:29:11 claus Exp $
 '!
 
 !ChangesBrowser class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.35 1995-06-06 04:19:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.36 1995-06-27 02:29:11 claus Exp $
 "
 !
 
@@ -1561,16 +1561,11 @@
 	    selectors:selectors.
 
     changeListView hasSelection ifFalse:[
-	#(doApply doApplyClassRest doApplyRest doDelete doDeleteRest doDeleteClassRest
-	  doDeleteClassAll doCompare doMakePatch doSaveChangeInFile doMakePermanent
-	  doSave doSaveRest doSaveClassAll doSaveClassRest doBrowse) 
-	do:[:sel |
-	    m disable:sel
-	].
+	m disableAll:#(doApply doApplyClassRest doApplyRest doDelete doDeleteRest doDeleteClassRest
+		       doDeleteClassAll doCompare doMakePatch doSaveChangeInFile doMakePermanent
+		       doSave doSaveRest doSaveClassAll doSaveClassRest doBrowse) 
     ].
     ^ m
-
-
 ! !
 
 !ChangesBrowser methodsFor:'event handling '!
--- a/ChgSetBrwsr.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ChgSetBrwsr.st	Tue Jun 27 04:30:28 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.4 1994-11-17 14:47:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.5 1995-06-27 02:29:17 claus Exp $
 '!
 
 !ChangeSetBrowser class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.4 1994-11-17 14:47:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.5 1995-06-27 02:29:17 claus Exp $
 "
 !
 
@@ -128,8 +128,10 @@
 changeSet:aChangeSet
     originalChangeSet := aChangeSet.
     changeSet := OrderedCollection new.
-    originalChangeSet do:[:aChange |
-	changeSet add:aChange
+    originalChangeSet notNil ifTrue:[
+	originalChangeSet do:[:aChange |
+	    changeSet add:aChange
+	].
     ].
 !
 
--- a/DebugView.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/DebugView.st	Tue Jun 27 04:30:28 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.37 1995-06-06 04:20:11 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.38 1995-06-27 02:29:23 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.37 1995-06-06 04:20:11 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.38 1995-06-27 02:29:23 claus Exp $
 "
 !
 
@@ -475,8 +475,7 @@
 
     inspecting ifTrue:[
 	m notNil ifTrue:[
-	    m disable:#doTraceStep.
-	    m disable:#removeBreakpoint.
+	    m disableAll:#(doTraceStep removeBreakpoint).
 	].
     ]
 !
--- a/FBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/FBrowser.st	Tue Jun 27 04:30:28 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.38 1995-06-06 04:20:24 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.39 1995-06-27 02:29:32 claus Exp $
 '!
 
 !FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.38 1995-06-06 04:20:24 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.39 1995-06-27 02:29:32 claus Exp $
 "
 !
 
@@ -1407,7 +1407,7 @@
 	    ^ self
 	].
 	(fileName endsWith:'.gz') ifTrue:[
-	    aBox initialText:('gunzip <' , fileName , ' >' , (fileName copyTo:(fileName size - 3))).
+	    aBox initialText:('gunzip <' , fileName , ' >' , (fileName copyWithoutLast:3 "copyTo:(fileName size - 3)")).
 	    ^ self
 	].
 	(fileName endsWith:'.html') ifTrue:[
@@ -1694,7 +1694,7 @@
 fileListMenu
     "return the menu to show in the fileList"
 
-    |labels selectors m|
+    |labels selectors m sel|
 
     labels := #(
 		 'spawn'                   
@@ -1771,6 +1771,16 @@
 			      openImageInspector
 			      )
 		    receiver:self).
+
+    ((sel := fileListView selection) isNil or:[sel isEmpty]) ifTrue:[
+	m disableAll:#(fileGet fileInsert
+		       fileGetInfo fileGetLongInfo
+		       fileFileIn fileFileInLazy
+		       fileRemove fileRename).
+	(m subMenuAt:#stxTools)
+	    disableAll:#(openChangesBrowser openEditor openImageInspector)
+    ].
+
     ^m
 !
 
--- a/FileBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/FileBrowser.st	Tue Jun 27 04:30:28 1995 +0200
@@ -27,7 +27,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.38 1995-06-06 04:20:24 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.39 1995-06-27 02:29:32 claus Exp $
 '!
 
 !FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.38 1995-06-06 04:20:24 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.39 1995-06-27 02:29:32 claus Exp $
 "
 !
 
@@ -1407,7 +1407,7 @@
 	    ^ self
 	].
 	(fileName endsWith:'.gz') ifTrue:[
-	    aBox initialText:('gunzip <' , fileName , ' >' , (fileName copyTo:(fileName size - 3))).
+	    aBox initialText:('gunzip <' , fileName , ' >' , (fileName copyWithoutLast:3 "copyTo:(fileName size - 3)")).
 	    ^ self
 	].
 	(fileName endsWith:'.html') ifTrue:[
@@ -1694,7 +1694,7 @@
 fileListMenu
     "return the menu to show in the fileList"
 
-    |labels selectors m|
+    |labels selectors m sel|
 
     labels := #(
 		 'spawn'                   
@@ -1771,6 +1771,16 @@
 			      openImageInspector
 			      )
 		    receiver:self).
+
+    ((sel := fileListView selection) isNil or:[sel isEmpty]) ifTrue:[
+	m disableAll:#(fileGet fileInsert
+		       fileGetInfo fileGetLongInfo
+		       fileFileIn fileFileInLazy
+		       fileRemove fileRename).
+	(m subMenuAt:#stxTools)
+	    disableAll:#(openChangesBrowser openEditor openImageInspector)
+    ].
+
     ^m
 !
 
--- a/InspView.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/InspView.st	Tue Jun 27 04:30:28 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.23 1995-06-06 04:20:33 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.24 1995-06-27 02:29:40 claus Exp $
 '!
 
 !InspectorView class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.23 1995-06-06 04:20:33 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.24 1995-06-27 02:29:40 claus Exp $
 "
 !
 
@@ -92,7 +92,7 @@
 		     icon:self defaultIcon
 		minExtent:(100 @ 100).
 
-    topView extent:(Display extent // 3).
+    topView extent:(Screen current extent // 3).
 
     inspectorView := self origin:(0.0 @ 0.0)
 			  corner:(1.0 @ 1.0)
--- a/InspectorView.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/InspectorView.st	Tue Jun 27 04:30:28 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.23 1995-06-06 04:20:33 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.24 1995-06-27 02:29:40 claus Exp $
 '!
 
 !InspectorView class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.23 1995-06-06 04:20:33 claus Exp $
+$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.24 1995-06-27 02:29:40 claus Exp $
 "
 !
 
@@ -92,7 +92,7 @@
 		     icon:self defaultIcon
 		minExtent:(100 @ 100).
 
-    topView extent:(Display extent // 3).
+    topView extent:(Screen current extent // 3).
 
     inspectorView := self origin:(0.0 @ 0.0)
 			  corner:(1.0 @ 1.0)
--- a/Launcher.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/Launcher.st	Tue Jun 27 04:30:28 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.16 1995-06-06 04:20:52 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.17 1995-06-27 02:29:51 claus Exp $
 "
 !
 
@@ -45,6 +45,10 @@
 "
     a new launcher, combining old Launchers menu and transcript into
     one view. (you no longer have to move two views around all the time ...).
+
+    Also, this app makes first use of the new compatibility framework;
+    you will notice, that this is a subclass of ApplicationModel.
+    New applications will no longer be built as subclasses of standardSystemView.
 "
 !
 
@@ -173,7 +177,7 @@
      this will be moved into StandardSystemView and be done
      automatically soon ...
     "
-    Display serverVendor = 'Silicon Graphics' ifTrue:[
+    Screen current serverVendor = 'Silicon Graphics' ifTrue:[
 	icn := self class aboutIcon.
 	icn notNil ifTrue:[
 	    icn := icn magnifiedTo:86@68.
@@ -249,7 +253,7 @@
 					'-'
 					'snapshot'
 					'snapshot & exit'
-					'exit'
+					'exit smalltalk'
 				       ))
 	   selectors:#(
 					#startFileBrowser
@@ -291,7 +295,7 @@
 	   putLabels:(resources array:#(
 					'new project'
 					'-'
-					'select project'
+					'select project ...'
 					))
 	   selectors:#(
 					#newProject 
@@ -406,7 +410,7 @@
     topView model:self.
 
     myMenu := PullDownMenu in:topView.
-    myMenu origin:0.0@0.0 corner:[1.0@nil].
+    myMenu origin:0.0 @ 0.0 corner:(1.0 @ myMenu height).
 
     self setupMenu.
     self setupButtonPanelIn:topView.
@@ -722,15 +726,15 @@
 !NewLauncher methodsFor:'actions - classes'!
 
 startFileBrowser
-    FileBrowser open
+    self withWaitCursorDo:[FileBrowser open]
 !
 
 startChangesBrowser
-    ChangesBrowser open
+    self withWaitCursorDo:[ChangesBrowser open]
 !
 
 startSystemBrowser
-    SystemBrowser open
+    self withWaitCursorDo:[SystemBrowser open]
 !
 
 startWorkspace
@@ -757,7 +761,7 @@
     enterBox action:[:selectorName |
 	|cls|
 
-	SystemBrowser browseImplementorsOf:selectorName  
+	self withWaitCursorDo:[SystemBrowser browseImplementorsOf:selectorName]  
     ].
     enterBox showAtPointer
 !
@@ -770,20 +774,20 @@
     enterBox action:[:selectorName |
 	|cls|
 
-	SystemBrowser browseAllCallsOn:selectorName  
+	self withWaitCursorDo:[SystemBrowser browseAllCallsOn:selectorName]  
     ].
     enterBox showAtPointer
 !
 
 startClassTreeView
-    ClassTreeGraphView open
+    self withWaitCursorDo:[ClassTreeGraphView open]
 ! !
 
 !NewLauncher methodsFor:'actions - settings'!
 
 viewStyleSetting 
     |listOfStyles resourceDir dir box 
-     list listView infoLabel infoForwarder newStyle|
+     list listView infoLabel infoForwarder newStyle cont|
 
     "
      search resources directory for a list of .style files ...
@@ -855,10 +859,11 @@
     box accepted ifTrue:[
 	newStyle := list selection.
 	newStyle notNil ifTrue:[
-	    transcript topView withCursor:Cursor wait do:[
+	    self withWaitCursorDo:[
 		Transcript showCr:'change style to ' , newStyle , ' ...'.
 		View defaultStyle:newStyle asSymbol.
-	    ]
+	    ].
+	    self reopenLauncher.
 	]
     ]
 !
@@ -883,12 +888,13 @@
     box list:listOfLanguages.
     box initialText:(Language).
     box action:[:newLanguage |
-	transcript topView withCursor:Cursor wait do:[
+	self withWaitCursorDo:[
 	    Transcript showCr:'change language to ' , newLanguage , ' ...'.
 	    Smalltalk at:#Language put:newLanguage asSymbol.
 	    Smalltalk changed:#Language.
 	    ResourcePack flushCachedResourcePacks
-	]
+	].
+	self reopenLauncher.
     ].    
     box showAtPointer
 !
@@ -927,24 +933,24 @@
     allowUnderscore onChangeSend:#check to:enabler.
 
     box := DialogBox new.
-    box label:'Compiler settings'.
-    box extent:200@300.
+    box label:(resources string:'Compiler settings').
+"/    box extent:200@300.
 
-    box addCheckBox:'allow underscore in identifiers' on:allowUnderscore.
+    box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
     box addVerticalSpace.
-    box addCheckBox:'literal arrays are immutable' on:immutableArrays.
+    box addCheckBox:(resources string:'literal arrays are immutable') on:immutableArrays.
 "/    box addVerticalSpace.
     box addHorizontalLine.
 "/    box addVerticalSpace.
 
-    box addCheckBox:'warnings' on:warnings.
+    box addCheckBox:(resources string:'warnings') on:warnings.
     box addVerticalSpace.
     box leftIndent:30.
-    warnSTXBox := box addCheckBox:'ST/X language extensions' on:warnSTX.
+    warnSTXBox := box addCheckBox:(resources string:'ST/X language extensions') on:warnSTX.
     box addVerticalSpace.
-    warnUnderscoreBox := box addCheckBox:'underscores in identifiers' on:warnUnderscore.
+    warnUnderscoreBox := box addCheckBox:(resources string:'underscores in identifiers') on:warnUnderscore.
     box addVerticalSpace.
-    warnOldStyleBox := box addCheckBox:'oldStyle assignment' on:warnOldStyle.
+    warnOldStyleBox := box addCheckBox:(resources string:'oldStyle assignment') on:warnOldStyle.
     box addVerticalSpace.
     box leftIndent:0.
 
@@ -972,17 +978,17 @@
     updChanges := Class updatingChanges asValue.
 
     box := DialogBox new.
-    box label:'Other settings'.
-    box extent:200@300.
+    box label:(resources string:'Other settings').
+"/    box extent:200@300.
 
-    box addCheckBox:'log compiles in changes file' on:updChanges.
-    box addCheckBox:'log doIts in changes file' on:logDoits.
+    box addCheckBox:(resources string:'log compiles in changes file') on:updChanges.
+    box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
     box addHorizontalLine.
 
-    box addCheckBox:'lazy compilation when autoloading' on:compileLazy.
+    box addCheckBox:(resources string:'lazy compilation when autoloading') on:compileLazy.
 
     box addHorizontalLine.
-    box addCheckBox:'shadows under popup views ' on:shadows.
+    box addCheckBox:(resources string:'shadows under popup views') on:shadows.
 
     box addAbortButton; addOkButton.
     box showAtPointer.
@@ -1040,8 +1046,6 @@
 !
 
 startDocumentationTool
-    |box|
-
     "
      although that one is not yet finished,
      its better than nothing ...
@@ -1051,42 +1055,10 @@
 	^ self
     ].
 
-    box := YesNoBox title:'Sorry, the ST/X HTML reader is not yet released
-and therefore not included in this package.
-
-Shall I try to open some other reader ?
-'.
-    (box confirm) ifTrue:[
-	"look for a reader"
-
-	|s whereIsDoc|
-
-	s := Smalltalk systemFileStreamFor:'doc/online/english/TOP.html'.
-	s isNil ifTrue:[
-	    self warn:'no documentation files available'.
-	    ^ self.
-	].
-	whereIsDoc := s pathName asFilename directoryName.
-	s close.
-
-	#('Mosaic' 'mosaic' 'netscape' 'chimera')
-	do:[:reader |
-	    |cmd|
-
-
-	    cmd := reader , ' ' , whereIsDoc , '/TOP.html &'.
-	    (OperatingSystem executeCommand:cmd) ifTrue:[
-		^ self
-	    ]
-	].
-	self warn:'Sorry, no HTML reader seems to be available.
-
-you should get one of Mosaic, netscape, chimera ...
-... or wait till HTML support in ST/X is complete.
-
-Alternatively, use the FileBrowser on *.doc-files 
-found in the documentation/online directory.'.
-    ]
+    self warn:'Sorry, the ST/X HTML reader is not (yet) 
+included in this architectures release.
+Please use Mosaic, netscape, chimera or any
+other HTML viewer to see the documentation.'.
 ! !
 
 !NewLauncher methodsFor:'actions - tools'!
@@ -1170,7 +1142,7 @@
     Processor addTimedBlock:[
 	|v|
 
-	v := Display viewFromUser.
+	v := Screen current viewFromUser.
 	v notNil ifTrue:[
 	    self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
 	]
@@ -1291,7 +1263,7 @@
 
 	    project := list detect:[:p | p name = selection] ifNone:[nil].
 	    project isNil ifTrue:[
-		Transcript showCr:'no such project'
+		Transcript showCr:'no such project.'
 	    ] ifFalse:[
 		project showViews.
 		Project current:project
@@ -1303,6 +1275,17 @@
 
 !NewLauncher methodsFor:'private'!
 
+reopenLauncher
+    "for now (since style & language settings currently do
+     not affect living views ...)"
+
+    |contents|
+
+    contents := Transcript endEntry; contents.
+    self class open.
+    Transcript contents:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor
+!
+
 saveAllViews
     "tell each topview that we are going to terminate and give it chance
      to save its contents."
@@ -1314,7 +1297,7 @@
     |v|
 
     (Delay forSeconds:1) wait.
-    v := Display viewFromUser.
+    v := Screen current viewFromUser.
     v isNil ifTrue:[
 	self warn:'sorry, this is not a smalltalk view'.
 	^ nil
--- a/Make.proto	Tue Jun 06 06:21:18 1995 +0200
+++ b/Make.proto	Tue Jun 27 04:30:28 1995 +0200
@@ -68,7 +68,7 @@
 
 
 tar:
-	(cd $(TOP); tar cvf DISTRIB/libtool.tar \
+	(cd $(TOP); tar cvfh DISTRIB/libtool.tar \
 				libtool/.dir.info \
 				libtool/Make.proto \
 				libtool/*.st \
--- a/OldLauncher.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/OldLauncher.st	Tue Jun 27 04:30:28 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.29 1995-06-06 04:20:37 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.30 1995-06-27 02:29:44 claus Exp $
 '!
 
 !Launcher class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.29 1995-06-06 04:20:37 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.30 1995-06-27 02:29:44 claus Exp $
 "
 !
 
@@ -225,7 +225,7 @@
 		     for:self
     ).
 
-    (Display isKindOf:GLXWorkstation) ifTrue:[
+    (Screen current isKindOf:GLXWorkstation) ifTrue:[
 	myMenu subMenuAt:#gamesMenu put:(
 	    PopUpMenu labels:(resources array:#(
 				'Tetris'
@@ -751,7 +751,7 @@
     Processor addTimedBlock:[
 	|v|
 
-	v := Display viewFromUser.
+	v := Screen current viewFromUser.
 	v notNil ifTrue:[
 	    self saveScreenImage:(Image fromView:(v topView))
 	]
@@ -786,7 +786,7 @@
     |v|
 
     (Delay forSeconds:1) wait.
-    v := Display viewFromUser.
+    v := Screen current viewFromUser.
     v isNil ifTrue:[
 	self warn:'sorry, this is not a smalltalk view'
     ] ifFalse:[
@@ -798,7 +798,7 @@
     |v|
 
     (Delay forSeconds:1) wait.
-    v := Display viewFromUser.
+    v := Screen current viewFromUser.
     v isNil ifTrue:[
 	self warn:'sorry, this is not a smalltalk view'
     ] ifFalse:[
--- a/ProcMonitor.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ProcMonitor.st	Tue Jun 27 04:30:28 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.15 1995-06-06 04:20:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.16 1995-06-27 02:29:56 claus Exp $
 "
 !
 
@@ -211,6 +211,9 @@
 				    con := con sender
 				].
 				line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
+				line := line , ' ('.
+				line := line , (aProcess numberOfStackBoundaryHits printString).
+				line := line , ')'.
 			    ]
 			].
 			list add:line.
--- a/ProcessMonitor.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ProcessMonitor.st	Tue Jun 27 04:30:28 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.15 1995-06-06 04:20:59 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.16 1995-06-27 02:29:56 claus Exp $
 "
 !
 
@@ -211,6 +211,9 @@
 				    con := con sender
 				].
 				line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
+				line := line , ' ('.
+				line := line , (aProcess numberOfStackBoundaryHits printString).
+				line := line , ')'.
 			    ]
 			].
 			list add:line.
--- a/ProjectV.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ProjectV.st	Tue Jun 27 04:30:28 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.14 1995-06-06 04:21:03 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.15 1995-06-27 02:30:00 claus Exp $
 "
 ! !
 
@@ -270,11 +270,11 @@
     toggle middleButtonMenu:(
 	PopUpMenu
 		labels:(resources array:
-			   #('rename'
+			   #('rename ...'
 			     'changes'
 			     'browse'
-			     'directory'
-			     'package'
+			     'directory ...'
+			     'package ...'
 "
 			     'properties'
 "
--- a/ProjectView.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/ProjectView.st	Tue Jun 27 04:30:28 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.14 1995-06-06 04:21:03 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.15 1995-06-27 02:30:00 claus Exp $
 "
 ! !
 
@@ -270,11 +270,11 @@
     toggle middleButtonMenu:(
 	PopUpMenu
 		labels:(resources array:
-			   #('rename'
+			   #('rename ...'
 			     'changes'
 			     'browse'
-			     'directory'
-			     'package'
+			     'directory ...'
+			     'package ...'
 "
 			     'properties'
 "
--- a/SBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/SBrowser.st	Tue Jun 27 04:30:28 1995 +0200
@@ -64,7 +64,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.33 1995-06-06 04:21:08 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.34 1995-06-27 02:30:05 claus Exp $
 "
 !
 
@@ -83,9 +83,9 @@
 
     Notice: SystemBrowser is currently being rewritten to be an instance
     of ApplicationModel - this transition is not yet complete and you see
-    here an intermediate version. The instance variables define here are NOT
+    here an intermediate version. The instance variables defined here are NOT
     currently used - instead, everything is really done in the BrowserView
-    which (currently) keeps the real state.
+    which (currently) keeps the real state of the browser.
     This will certainly change ...
 "
 ! !
@@ -1042,7 +1042,7 @@
 newWithLabel:aString setupBlock:aBlock
     "common helper method for all creation methods"
 
-    ^ self newWithLabel:aString setupBlock:aBlock onDevice:Display
+    ^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
 !
 
 newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
@@ -1060,7 +1060,7 @@
 newWithLabel:aString setupSelector:aSymbol arg:arg
     "common helper method for all creation methods"
 
-    ^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Display
+    ^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current 
 ! !
 
 !SystemBrowser class methodsFor:'private helpers'!
--- a/SystemBrowser.st	Tue Jun 06 06:21:18 1995 +0200
+++ b/SystemBrowser.st	Tue Jun 27 04:30:28 1995 +0200
@@ -64,7 +64,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.33 1995-06-06 04:21:08 claus Exp $
+$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.34 1995-06-27 02:30:05 claus Exp $
 "
 !
 
@@ -83,9 +83,9 @@
 
     Notice: SystemBrowser is currently being rewritten to be an instance
     of ApplicationModel - this transition is not yet complete and you see
-    here an intermediate version. The instance variables define here are NOT
+    here an intermediate version. The instance variables defined here are NOT
     currently used - instead, everything is really done in the BrowserView
-    which (currently) keeps the real state.
+    which (currently) keeps the real state of the browser.
     This will certainly change ...
 "
 ! !
@@ -1042,7 +1042,7 @@
 newWithLabel:aString setupBlock:aBlock
     "common helper method for all creation methods"
 
-    ^ self newWithLabel:aString setupBlock:aBlock onDevice:Display
+    ^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
 !
 
 newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
@@ -1060,7 +1060,7 @@
 newWithLabel:aString setupSelector:aSymbol arg:arg
     "common helper method for all creation methods"
 
-    ^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Display
+    ^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current 
 ! !
 
 !SystemBrowser class methodsFor:'private helpers'!
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/resources/ProjectV.rs	Tue Jun 27 04:30:28 1995 +0200
@@ -0,0 +1,27 @@
+; $Header: /cvs/stx/stx/libtool/resources/Attic/ProjectV.rs,v 1.1 1995-06-27 02:30:28 claus Exp $
+;
+; ProjectView resources
+;
+; this file contains 8bit national characters;
+; DONT EDIT this file with an old vi !
+;
+#if (Language == #german)
+
+'rename ...'             'umbenennen ...'
+'changes'                'Änderungen'
+'browse'                 'browse'   "/ mhmh - how should that be translated ...
+'directory ...'          'Verzeichnis ...'
+'package ...'            'Paket ...'
+'save project code'      'Projektcode sichern'
+'build'                  'bauen'
+'show'                   'Fenster anzeigen'
+'hide'                   'Fenster verstecken'
+'destroy'                'schließen'
+
+#endif
+
+#if (Language == #spanish)
+#endif
+
+#if (Language == #italian)
+#endif
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/resources/ProjectView.rs	Tue Jun 27 04:30:28 1995 +0200
@@ -0,0 +1,27 @@
+; $Header: /cvs/stx/stx/libtool/resources/Attic/ProjectView.rs,v 1.1 1995-06-27 02:30:28 claus Exp $
+;
+; ProjectView resources
+;
+; this file contains 8bit national characters;
+; DONT EDIT this file with an old vi !
+;
+#if (Language == #german)
+
+'rename ...'             'umbenennen ...'
+'changes'                'Änderungen'
+'browse'                 'browse'   "/ mhmh - how should that be translated ...
+'directory ...'          'Verzeichnis ...'
+'package ...'            'Paket ...'
+'save project code'      'Projektcode sichern'
+'build'                  'bauen'
+'show'                   'Fenster anzeigen'
+'hide'                   'Fenster verstecken'
+'destroy'                'schließen'
+
+#endif
+
+#if (Language == #spanish)
+#endif
+
+#if (Language == #italian)
+#endif
hg/stx-libtool