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
Mon, 28 Aug 1995 01:22:45 +0200
changeset 123 8490f8cecb6c
parent 122 8fa2a1ae99b8
child 124 46c3ad9c8f6f
.
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions
CBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Sun Aug 27 04:00:12 1995 +0200
+++ b/BrowserView.st	Mon Aug 28 01:22:45 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.19 1995-08-27 00:36:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.20 1995-08-27 23:21:59 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.19 1995-08-27 00:36:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.20 1995-08-27 23:21:59 claus Exp $
 "
 !
 
@@ -4102,11 +4102,14 @@
      EXPERIMENTAL"
 
     self checkMethodSelected ifFalse:[^ self].
-
-    currentMethod setToPublic.
-    self updateMethodListWithScroll:false keepSelection:true.
-    ObjectMemory flushCaches
-
+    currentMethod isPublic ifFalse:[
+	currentMethod setToPublic.
+	Class addChangeRecordForMethodPrivacy:currentMethod.
+	self updateMethodListWithScroll:false keepSelection:true.
+	ObjectMemory flushCaches
+    ]
+
+    "Modified: 27.8.1995 / 23:01:07 / claus"
 !
 
 methodMakeProtected
@@ -4114,11 +4117,14 @@
      EXPERIMENTAL"
 
     self checkMethodSelected ifFalse:[^ self].
-
-    currentMethod setToProtected.
-    self updateMethodListWithScroll:false keepSelection:true.
-    ObjectMemory flushCaches
-
+    currentMethod isProtected ifFalse:[
+	currentMethod setToProtected.
+	Class addChangeRecordForMethodPrivacy:currentMethod.
+	self updateMethodListWithScroll:false keepSelection:true.
+	ObjectMemory flushCaches
+    ]
+
+    "Modified: 27.8.1995 / 23:01:03 / claus"
 !
 
 methodMakePrivate
@@ -4126,11 +4132,14 @@
      EXPERIMENTAL"
 
     self checkMethodSelected ifFalse:[^ self].
-
-    currentMethod setToPrivate.
-    self updateMethodListWithScroll:false keepSelection:true.
-    ObjectMemory flushCaches
-
+    currentMethod isPrivate ifFalse:[
+	currentMethod setToPrivate.
+	Class addChangeRecordForMethodPrivacy:currentMethod.
+	self updateMethodListWithScroll:false keepSelection:true.
+	ObjectMemory flushCaches
+    ]
+
+    "Modified: 27.8.1995 / 23:00:57 / claus"
 !
 
 methodSenders
--- a/BrwsrView.st	Sun Aug 27 04:00:12 1995 +0200
+++ b/BrwsrView.st	Mon Aug 28 01:22:45 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.19 1995-08-27 00:36:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.20 1995-08-27 23:21:59 claus Exp $
 '!
 
 !BrowserView class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.19 1995-08-27 00:36:40 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.20 1995-08-27 23:21:59 claus Exp $
 "
 !
 
@@ -4102,11 +4102,14 @@
      EXPERIMENTAL"
 
     self checkMethodSelected ifFalse:[^ self].
-
-    currentMethod setToPublic.
-    self updateMethodListWithScroll:false keepSelection:true.
-    ObjectMemory flushCaches
-
+    currentMethod isPublic ifFalse:[
+	currentMethod setToPublic.
+	Class addChangeRecordForMethodPrivacy:currentMethod.
+	self updateMethodListWithScroll:false keepSelection:true.
+	ObjectMemory flushCaches
+    ]
+
+    "Modified: 27.8.1995 / 23:01:07 / claus"
 !
 
 methodMakeProtected
@@ -4114,11 +4117,14 @@
      EXPERIMENTAL"
 
     self checkMethodSelected ifFalse:[^ self].
-
-    currentMethod setToProtected.
-    self updateMethodListWithScroll:false keepSelection:true.
-    ObjectMemory flushCaches
-
+    currentMethod isProtected ifFalse:[
+	currentMethod setToProtected.
+	Class addChangeRecordForMethodPrivacy:currentMethod.
+	self updateMethodListWithScroll:false keepSelection:true.
+	ObjectMemory flushCaches
+    ]
+
+    "Modified: 27.8.1995 / 23:01:03 / claus"
 !
 
 methodMakePrivate
@@ -4126,11 +4132,14 @@
      EXPERIMENTAL"
 
     self checkMethodSelected ifFalse:[^ self].
-
-    currentMethod setToPrivate.
-    self updateMethodListWithScroll:false keepSelection:true.
-    ObjectMemory flushCaches
-
+    currentMethod isPrivate ifFalse:[
+	currentMethod setToPrivate.
+	Class addChangeRecordForMethodPrivacy:currentMethod.
+	self updateMethodListWithScroll:false keepSelection:true.
+	ObjectMemory flushCaches
+    ]
+
+    "Modified: 27.8.1995 / 23:00:57 / claus"
 !
 
 methodSenders
--- a/CBrowser.st	Sun Aug 27 04:00:12 1995 +0200
+++ b/CBrowser.st	Mon Aug 28 01:22:45 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.41 1995-08-27 00:36:54 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.42 1995-08-27 23:22:12 claus Exp $
 '!
 
 !ChangesBrowser class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.41 1995-08-27 00:36:54 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.42 1995-08-27 23:22:12 claus Exp $
 "
 !
 
@@ -65,8 +65,9 @@
 
     Notice:
 	this needs a total rewrite, to build up a changeSet from the file
-	(which did not exist when the ChangesBrowser was written) and
-	manipulate that changeSet.
+	(which did not exist when the ChangesBrowser was originally written) 
+	and manipulate that changeSet.
+
 	This way, we get a browser for any upcoming incore changeSets for
 	free. Also, this will put the chunk analyzation code into Change and
 	subclasses (where it belongs) and give a better encapsulation and
@@ -344,21 +345,27 @@
 				changeType := '(remove)'.
 				changeString := self contractClass:cls selector:sel to:maxLen.
 			    ].
-			    (sel == #category:) ifTrue:[
-				(p receiver isMessage
-				and:[p receiver selector == #compiledMethodAt:]) ifTrue:[
-				    p receiver receiver isUnaryMessage ifTrue:[
-					cls := p receiver receiver receiver name.
-					changeClass := (Smalltalk classNamed:cls) class.
-					cls := cls , ' class'.
-				    ] ifFalse:[
-					cls := p receiver receiver name.
-					changeClass := (Smalltalk classNamed:cls)
-				    ].
+			    (p isMessage 
+			    and:[p receiver isMessage
+			    and:[p receiver selector == #compiledMethodAt:]]) ifTrue:[
+				p receiver receiver isUnaryMessage ifTrue:[
+				    cls := p receiver receiver receiver name.
+				    changeClass := (Smalltalk classNamed:cls) class.
+				    cls := cls , ' class'.
+				] ifFalse:[
+				    cls := p receiver receiver name.
+				    changeClass := (Smalltalk classNamed:cls)
+				].
+				(sel == #category:) ifTrue:[
 				    sel := (p receiver args at:1) evaluate.
 				    changeType := '(category change)'.
 				    changeString := self contractClass:cls selector:sel to:maxLen.
-				]
+				].
+				(sel == #privacy:) ifTrue:[
+				    sel := (p receiver args at:1) evaluate.
+				    changeType := '(privacy change)'.
+				    changeString := self contractClass:cls selector:sel to:maxLen.
+				].
 			    ].
 			    (#(#'subclass:'
 			      #'variableSubclass:'
@@ -484,6 +491,8 @@
 	    inBackground ifTrue:[myProcess priority:myPriority].
 	].
     ]
+
+    "Modified: 27.8.1995 / 23:06:55 / claus"
 !
 
 contractClass:className selector:selector to:maxLen
--- a/ChangesBrowser.st	Sun Aug 27 04:00:12 1995 +0200
+++ b/ChangesBrowser.st	Mon Aug 28 01:22:45 1995 +0200
@@ -25,7 +25,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.41 1995-08-27 00:36:54 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.42 1995-08-27 23:22:12 claus Exp $
 '!
 
 !ChangesBrowser class methodsFor:'documentation'!
@@ -46,7 +46,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.41 1995-08-27 00:36:54 claus Exp $
+$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.42 1995-08-27 23:22:12 claus Exp $
 "
 !
 
@@ -65,8 +65,9 @@
 
     Notice:
 	this needs a total rewrite, to build up a changeSet from the file
-	(which did not exist when the ChangesBrowser was written) and
-	manipulate that changeSet.
+	(which did not exist when the ChangesBrowser was originally written) 
+	and manipulate that changeSet.
+
 	This way, we get a browser for any upcoming incore changeSets for
 	free. Also, this will put the chunk analyzation code into Change and
 	subclasses (where it belongs) and give a better encapsulation and
@@ -344,21 +345,27 @@
 				changeType := '(remove)'.
 				changeString := self contractClass:cls selector:sel to:maxLen.
 			    ].
-			    (sel == #category:) ifTrue:[
-				(p receiver isMessage
-				and:[p receiver selector == #compiledMethodAt:]) ifTrue:[
-				    p receiver receiver isUnaryMessage ifTrue:[
-					cls := p receiver receiver receiver name.
-					changeClass := (Smalltalk classNamed:cls) class.
-					cls := cls , ' class'.
-				    ] ifFalse:[
-					cls := p receiver receiver name.
-					changeClass := (Smalltalk classNamed:cls)
-				    ].
+			    (p isMessage 
+			    and:[p receiver isMessage
+			    and:[p receiver selector == #compiledMethodAt:]]) ifTrue:[
+				p receiver receiver isUnaryMessage ifTrue:[
+				    cls := p receiver receiver receiver name.
+				    changeClass := (Smalltalk classNamed:cls) class.
+				    cls := cls , ' class'.
+				] ifFalse:[
+				    cls := p receiver receiver name.
+				    changeClass := (Smalltalk classNamed:cls)
+				].
+				(sel == #category:) ifTrue:[
 				    sel := (p receiver args at:1) evaluate.
 				    changeType := '(category change)'.
 				    changeString := self contractClass:cls selector:sel to:maxLen.
-				]
+				].
+				(sel == #privacy:) ifTrue:[
+				    sel := (p receiver args at:1) evaluate.
+				    changeType := '(privacy change)'.
+				    changeString := self contractClass:cls selector:sel to:maxLen.
+				].
 			    ].
 			    (#(#'subclass:'
 			      #'variableSubclass:'
@@ -484,6 +491,8 @@
 	    inBackground ifTrue:[myProcess priority:myPriority].
 	].
     ]
+
+    "Modified: 27.8.1995 / 23:06:55 / claus"
 !
 
 contractClass:className selector:selector to:maxLen
--- a/FBrowser.st	Sun Aug 27 04:00:12 1995 +0200
+++ b/FBrowser.st	Mon Aug 28 01:22:45 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.45 1995-08-27 00:37:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.46 1995-08-27 23:22:29 claus Exp $
 '!
 
 !FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.45 1995-08-27 00:37:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.46 1995-08-27 23:22:29 claus Exp $
 "
 !
 
@@ -303,6 +303,24 @@
     self updateCurrentDirectory
 ! !
 
+!FileBrowser methodsFor:'help '!
+
+helpTextFor:aComponent
+    aComponent == subView ifTrue:[
+	^ resources string:'HELP_SUBVIEW'
+    ].
+    aComponent == fileListView ifTrue:[
+	^ resources string:'HELP_FILELIST'
+    ].
+    aComponent == filterField ifTrue:[
+	^ resources string:'HELP_FILTER'
+    ].
+    aComponent == labelView ifTrue:[
+	^ resources string:'HELP_PATHFIELD'
+    ].
+    ^ nil
+! !
+
 !FileBrowser methodsFor:'queries'!
 
 path
--- a/FileBrowser.st	Sun Aug 27 04:00:12 1995 +0200
+++ b/FileBrowser.st	Mon Aug 28 01:22:45 1995 +0200
@@ -27,7 +27,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.45 1995-08-27 00:37:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.46 1995-08-27 23:22:29 claus Exp $
 '!
 
 !FileBrowser class methodsFor:'documentation'!
@@ -48,7 +48,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.45 1995-08-27 00:37:10 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.46 1995-08-27 23:22:29 claus Exp $
 "
 !
 
@@ -303,6 +303,24 @@
     self updateCurrentDirectory
 ! !
 
+!FileBrowser methodsFor:'help '!
+
+helpTextFor:aComponent
+    aComponent == subView ifTrue:[
+	^ resources string:'HELP_SUBVIEW'
+    ].
+    aComponent == fileListView ifTrue:[
+	^ resources string:'HELP_FILELIST'
+    ].
+    aComponent == filterField ifTrue:[
+	^ resources string:'HELP_FILTER'
+    ].
+    aComponent == labelView ifTrue:[
+	^ resources string:'HELP_PATHFIELD'
+    ].
+    ^ nil
+! !
+
 !FileBrowser methodsFor:'queries'!
 
 path
--- a/Make.proto	Sun Aug 27 04:00:12 1995 +0200
+++ b/Make.proto	Mon Aug 28 01:22:45 1995 +0200
@@ -128,4 +128,27 @@
 AboutBox.$(O):          AboutBox.st $(INFOBOX)
 
 # BEGINMAKEDEPEND --- do not remove this line; make depend needs it
+AboutBox.o: AboutBox.st $(STCHDR) ../include/InfoBox.H ../include/DialogBox.H ../include/ModalBox.H ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+BrwsrView.o: BrwsrView.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+CBrowser.o: CBrowser.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ChgSetBrwsr.o: ChgSetBrwsr.st $(STCHDR) ../include/CBrowser.H ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ClassInspV.o: ClassInspV.st $(STCHDR) ../include/InspView.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ClrInspV.o: ClrInspV.st $(STCHDR) ../include/InspView.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ConInspV.o: ConInspV.st $(STCHDR) ../include/InspView.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+DebugView.o: DebugView.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+DictInspV.o: DictInspV.st $(STCHDR) ../include/InspView.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+DiffTxtV.o: DiffTxtV.st $(STCHDR)
+DirBrwsr.o: DirBrwsr.st $(STCHDR) ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+EvMonitor.o: EvMonitor.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+FBrowser.o: FBrowser.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ImgInspV.o: ImgInspV.st $(STCHDR) ../include/InspView.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+InspView.o: InspView.st $(STCHDR) ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+Launcher.o: Launcher.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+MemMonitor.o: MemMonitor.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+MemUsageV.o: MemUsageV.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+NewLauncher.o: NewLauncher.st $(STCHDR) ../include/AppModel.H ../include/Model.H ../include/Object.H
+OCInspView.o: OCInspView.st $(STCHDR) ../include/InspView.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ProcMonitor.o: ProcMonitor.st $(STCHDR) ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+ProjectV.o: ProjectV.st $(STCHDR) ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
+SBrowser.o: SBrowser.st $(STCHDR) ../include/AppModel.H ../include/Model.H ../include/Object.H
 # ENDMAKEDEPEND --- do not remove this line; make depend needs it
hg/stx-libtool