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>
Mon, 18 May 1998 14:27:09 +0200
changeset 1648 db1ca601ad8c
parent 1647 44936f6d17ed
child 1649 95dad57b34f1
checkin from browser
CBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions 
--- a/CBrowser.st	Mon May 18 13:19:54 1998 +0200
+++ b/CBrowser.st	Mon May 18 14:27:09 1998 +0200
@@ -680,16 +680,16 @@
     "select a change"
 
     self class autoSelectNext ifTrue:[
-	(changeNr <= self numberOfChanges) ifTrue:[
-	    changeListView setSelection:changeNr.
-	    self changeSelection:changeNr.
-	    ^ self
-	]
+        (changeNr <= self numberOfChanges) ifTrue:[
+            changeListView setSelection:changeNr.
+            self changeSelection:changeNr.
+            ^ self
+        ]
     ].
     self clearCodeView.
     changeListView setSelection:nil.
 
-    "Modified: 25.5.1996 / 12:28:21 / cg"
+    "Modified: / 18.5.1998 / 14:26:43 / cg"
 !
 
 autoSelectLast
@@ -1157,8 +1157,8 @@
 
     changeListView setSelection:nil.
     stop to:start by:-1 do:[:changeNr |
-	self silentDeleteInternalChange:changeNr.
-	changeListView removeIndex:changeNr.
+        self silentDeleteInternalChange:changeNr.
+        changeListView removeIndex:changeNr.
     ].
 
 "/    changeListView contentsChanged.
@@ -1166,7 +1166,7 @@
 
 "/    self setChangeList
 
-    "Modified: 7.3.1997 / 16:31:20 / cg"
+    "Modified: / 18.5.1998 / 14:22:27 / cg"
 !
 
 fullClassNameOfChange:changeNr
@@ -1815,8 +1815,10 @@
     "extract type-information from changes and stuff into top selection
      view"
 
-    changeListView setList:changeHeaderLines expandTabs:false.
+    changeListView setList:changeHeaderLines expandTabs:false redraw:false.
     "/ changeListView deselect.
+
+    "Modified: / 18.5.1998 / 14:25:40 / cg"
 !
 
 silentDeleteChange:changeNr
@@ -2328,20 +2330,20 @@
     "delete rest of changes with same class as currently selected change"
 
     self withSelectedChangeDo:[:changeNr |
-	| classNameToDelete |
-
-	classNameToDelete := self classNameOfChange:changeNr.
-	classNameToDelete notNil ifTrue:[
-	    changeListView setSelection:nil.
-	    self silentDeleteChangesFor:classNameToDelete 
-				   from:changeNr
-				     to:(self numberOfChanges).
-	    self setChangeList.
-	    self autoSelectOrEnd:changeNr
-	]
+        | classNameToDelete |
+
+        classNameToDelete := self classNameOfChange:changeNr.
+        classNameToDelete notNil ifTrue:[
+            changeListView setSelection:nil.
+            self silentDeleteChangesFor:classNameToDelete 
+                                   from:changeNr
+                                     to:(self numberOfChanges).
+            self setChangeList.
+            self autoSelectOrEnd:changeNr
+        ]
     ]
 
-    "Modified: 25.5.1996 / 12:26:39 / cg"
+    "Modified: / 18.5.1998 / 14:25:07 / cg"
 !
 
 doDeleteRest
@@ -2702,5 +2704,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.134 1998-04-28 15:07:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.135 1998-05-18 12:27:09 cg Exp $'
 ! !
--- a/ChangesBrowser.st	Mon May 18 13:19:54 1998 +0200
+++ b/ChangesBrowser.st	Mon May 18 14:27:09 1998 +0200
@@ -680,16 +680,16 @@
     "select a change"
 
     self class autoSelectNext ifTrue:[
-	(changeNr <= self numberOfChanges) ifTrue:[
-	    changeListView setSelection:changeNr.
-	    self changeSelection:changeNr.
-	    ^ self
-	]
+        (changeNr <= self numberOfChanges) ifTrue:[
+            changeListView setSelection:changeNr.
+            self changeSelection:changeNr.
+            ^ self
+        ]
     ].
     self clearCodeView.
     changeListView setSelection:nil.
 
-    "Modified: 25.5.1996 / 12:28:21 / cg"
+    "Modified: / 18.5.1998 / 14:26:43 / cg"
 !
 
 autoSelectLast
@@ -1157,8 +1157,8 @@
 
     changeListView setSelection:nil.
     stop to:start by:-1 do:[:changeNr |
-	self silentDeleteInternalChange:changeNr.
-	changeListView removeIndex:changeNr.
+        self silentDeleteInternalChange:changeNr.
+        changeListView removeIndex:changeNr.
     ].
 
 "/    changeListView contentsChanged.
@@ -1166,7 +1166,7 @@
 
 "/    self setChangeList
 
-    "Modified: 7.3.1997 / 16:31:20 / cg"
+    "Modified: / 18.5.1998 / 14:22:27 / cg"
 !
 
 fullClassNameOfChange:changeNr
@@ -1815,8 +1815,10 @@
     "extract type-information from changes and stuff into top selection
      view"
 
-    changeListView setList:changeHeaderLines expandTabs:false.
+    changeListView setList:changeHeaderLines expandTabs:false redraw:false.
     "/ changeListView deselect.
+
+    "Modified: / 18.5.1998 / 14:25:40 / cg"
 !
 
 silentDeleteChange:changeNr
@@ -2328,20 +2330,20 @@
     "delete rest of changes with same class as currently selected change"
 
     self withSelectedChangeDo:[:changeNr |
-	| classNameToDelete |
-
-	classNameToDelete := self classNameOfChange:changeNr.
-	classNameToDelete notNil ifTrue:[
-	    changeListView setSelection:nil.
-	    self silentDeleteChangesFor:classNameToDelete 
-				   from:changeNr
-				     to:(self numberOfChanges).
-	    self setChangeList.
-	    self autoSelectOrEnd:changeNr
-	]
+        | classNameToDelete |
+
+        classNameToDelete := self classNameOfChange:changeNr.
+        classNameToDelete notNil ifTrue:[
+            changeListView setSelection:nil.
+            self silentDeleteChangesFor:classNameToDelete 
+                                   from:changeNr
+                                     to:(self numberOfChanges).
+            self setChangeList.
+            self autoSelectOrEnd:changeNr
+        ]
     ]
 
-    "Modified: 25.5.1996 / 12:26:39 / cg"
+    "Modified: / 18.5.1998 / 14:25:07 / cg"
 !
 
 doDeleteRest
@@ -2702,5 +2704,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.134 1998-04-28 15:07:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.135 1998-05-18 12:27:09 cg Exp $'
 ! !
hg/stx-libtool