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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 26 May 1996 13:29:34 +0200
changeset 567 4bf089a6b667
parent 566 5adb52c58bae
child 568 58d7e4157f23
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Sat May 25 14:20:07 1996 +0200
+++ b/BrowserView.st	Sun May 26 13:29:34 1996 +0200
@@ -4679,34 +4679,37 @@
     self checkMethodSelected ifFalse:[^ self].
 
     actualClass isNil ifTrue:[
-	box := self enterBoxTitle:'' okText:'change'.
+        box := self enterBoxTitle:'' okText:'change'.
     ] ifFalse:[
-	|someCategories|
-
-	someCategories := actualClass categories sort.
-	box := self listBoxTitle:'' okText:'change' list:someCategories.
+        |someCategories|
+
+        someCategories := actualClass categories sort.
+        box := self listBoxTitle:'' okText:'change' list:someCategories.
     ].
     box title:('change category from ''' , currentMethod category , ''' to:').
     lastMethodCategory isNil ifTrue:[
-	txt := currentMethod category.
+        txt := currentMethod category.
     ] ifFalse:[
-	txt := lastMethodCategory
+        txt := lastMethodCategory
     ].
     box initialText:txt.
     box action:[:aString |
-		    lastMethodCategory := aString.
-
-		    currentMethod category:aString asSymbol.
-		    actualClass changed.
-		    currentMethod changed:#category.
-"/                    actualClass updateRevisionString.
-		    actualClass addChangeRecordForMethodCategory:currentMethod category:aString.
-		    self updateMethodCategoryListWithScroll:false.
-		    self updateMethodListWithScroll:false
-	       ].
+                    |method|
+
+                    lastMethodCategory := aString.
+                    method := currentMethod.
+
+                    method category:aString asSymbol.
+                    actualClass changed.
+                    method changed:#category.
+                    actualClass addChangeRecordForMethodCategory:method category:aString.
+                    self updateMethodCategoryListWithScroll:false.
+                    self updateMethodListWithScroll:false
+               ].
     box showAtPointer
 
     "Created: 29.10.1995 / 19:59:22 / cg"
+    "Modified: 26.5.1996 / 12:47:10 / cg"
 !
 
 methodDecompile
@@ -7080,6 +7083,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.137 1996-05-25 11:25:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.138 1996-05-26 11:29:34 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sat May 25 14:20:07 1996 +0200
+++ b/BrwsrView.st	Sun May 26 13:29:34 1996 +0200
@@ -4679,34 +4679,37 @@
     self checkMethodSelected ifFalse:[^ self].
 
     actualClass isNil ifTrue:[
-	box := self enterBoxTitle:'' okText:'change'.
+        box := self enterBoxTitle:'' okText:'change'.
     ] ifFalse:[
-	|someCategories|
-
-	someCategories := actualClass categories sort.
-	box := self listBoxTitle:'' okText:'change' list:someCategories.
+        |someCategories|
+
+        someCategories := actualClass categories sort.
+        box := self listBoxTitle:'' okText:'change' list:someCategories.
     ].
     box title:('change category from ''' , currentMethod category , ''' to:').
     lastMethodCategory isNil ifTrue:[
-	txt := currentMethod category.
+        txt := currentMethod category.
     ] ifFalse:[
-	txt := lastMethodCategory
+        txt := lastMethodCategory
     ].
     box initialText:txt.
     box action:[:aString |
-		    lastMethodCategory := aString.
-
-		    currentMethod category:aString asSymbol.
-		    actualClass changed.
-		    currentMethod changed:#category.
-"/                    actualClass updateRevisionString.
-		    actualClass addChangeRecordForMethodCategory:currentMethod category:aString.
-		    self updateMethodCategoryListWithScroll:false.
-		    self updateMethodListWithScroll:false
-	       ].
+                    |method|
+
+                    lastMethodCategory := aString.
+                    method := currentMethod.
+
+                    method category:aString asSymbol.
+                    actualClass changed.
+                    method changed:#category.
+                    actualClass addChangeRecordForMethodCategory:method category:aString.
+                    self updateMethodCategoryListWithScroll:false.
+                    self updateMethodListWithScroll:false
+               ].
     box showAtPointer
 
     "Created: 29.10.1995 / 19:59:22 / cg"
+    "Modified: 26.5.1996 / 12:47:10 / cg"
 !
 
 methodDecompile
@@ -7080,6 +7083,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.137 1996-05-25 11:25:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.138 1996-05-26 11:29:34 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool