checkin from browser
authorClaus Gittinger <cg@exept.de>
Sat, 23 Mar 1996 18:58:59 +0100
changeset 449 94b665bf02f4
parent 448 e50e23ae7dc3
child 450 6668a0aec8d7
checkin from browser
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Sat Mar 23 17:17:34 1996 +0100
+++ b/BrowserView.st	Sat Mar 23 18:58:59 1996 +0100
@@ -5871,6 +5871,8 @@
                         ^ false
                     ].
                     ^ what
+                ] ifTrue:[
+                    ^ true
                 ]
             ]
         ]
@@ -5879,7 +5881,7 @@
     ^ self checkSelectionChangeAllowedWithCompare:false
 
     "Created: 24.11.1995 / 11:03:33 / cg"
-    "Modified: 23.3.1996 / 15:46:27 / cg"
+    "Modified: 23.3.1996 / 18:57:42 / cg"
 !
 
 checkSelectionChangeAllowedWithCompare:compareOffered
@@ -6953,6 +6955,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.116 1996-03-23 14:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.117 1996-03-23 17:58:59 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sat Mar 23 17:17:34 1996 +0100
+++ b/BrwsrView.st	Sat Mar 23 18:58:59 1996 +0100
@@ -5871,6 +5871,8 @@
                         ^ false
                     ].
                     ^ what
+                ] ifTrue:[
+                    ^ true
                 ]
             ]
         ]
@@ -5879,7 +5881,7 @@
     ^ self checkSelectionChangeAllowedWithCompare:false
 
     "Created: 24.11.1995 / 11:03:33 / cg"
-    "Modified: 23.3.1996 / 15:46:27 / cg"
+    "Modified: 23.3.1996 / 18:57:42 / cg"
 !
 
 checkSelectionChangeAllowedWithCompare:compareOffered
@@ -6953,6 +6955,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.116 1996-03-23 14:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.117 1996-03-23 17:58:59 cg Exp $'
 ! !
 BrowserView initialize!