checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 05 Aug 1998 18:07:18 +0200
changeset 1812 d5ba1973447f
parent 1811 a1fc338316c9
child 1813 6b5e3b78b419
checkin from browser
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Wed Aug 05 16:59:06 1998 +0200
+++ b/BrowserView.st	Wed Aug 05 18:07:18 1998 +0200
@@ -9892,7 +9892,7 @@
     |what m cls src1 src2 list1 list2 v|
 
     codeView modified ifFalse:[
-        codeModified ifFalse:[
+        codeModified == true ifFalse:[
             ^ true
         ]
     ].
@@ -12089,6 +12089,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.442 1998-08-05 14:59:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.443 1998-08-05 16:07:18 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Wed Aug 05 16:59:06 1998 +0200
+++ b/BrwsrView.st	Wed Aug 05 18:07:18 1998 +0200
@@ -9892,7 +9892,7 @@
     |what m cls src1 src2 list1 list2 v|
 
     codeView modified ifFalse:[
-        codeModified ifFalse:[
+        codeModified == true ifFalse:[
             ^ true
         ]
     ].
@@ -12089,6 +12089,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.442 1998-08-05 14:59:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.443 1998-08-05 16:07:18 cg Exp $'
 ! !
 BrowserView initialize!