NewChangesBrowser.st
changeset 1553 eaeafd6f8cbe
parent 1546 ffea21e237ed
child 1554 d9df0fe50951
--- a/NewChangesBrowser.st	Fri Apr 17 00:07:16 1998 +0200
+++ b/NewChangesBrowser.st	Fri Apr 17 01:03:20 1998 +0200
@@ -1054,7 +1054,7 @@
 categoryColumn
     "returns whether the column for the category attribute of the changes is shown"
 
-    ^CategoryColumn ? (CategoryColumn := true)
+    ^CategoryColumn ? (CategoryColumn := false)
 !
 
 categoryColumn: aBoolean
@@ -1079,7 +1079,7 @@
 positionColumn
     "returns whether the column for the position attribute of the changes is shown"
 
-    ^PositionColumn ? (PositionColumn := true)
+    ^PositionColumn ? (PositionColumn := false)
 !
 
 positionColumn: aBoolean
@@ -1499,8 +1499,8 @@
         self listOfChangeColumns contents: (self listOfChangeColumns remove: 
             (self listOfChangeColumns detect: [:column| column label = aColumnLabel] ifNone: nil) ifAbsent: [self listOfChangeColumns]; yourself)
         asArray
-    ]
-
+    ].
+    self autoSelectLast
 
 
 !
@@ -3210,6 +3210,6 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.2 1998-04-14 19:14:54 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.3 1998-04-16 23:03:20 tz Exp $'
 
 ! !