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.
answer true on UndefinedObjects createMinimumProtocol query
authorClaus Gittinger <cg@exept.de>
Fri, 03 Jan 1997 17:06:58 +0100
changeset 895 cc65b9425f63
parent 894 8efe0f142f40
child 896 d32cae7d496c
answer true on UndefinedObjects createMinimumProtocol query
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Jan 03 12:19:25 1997 +0100
+++ b/BrowserView.st	Fri Jan 03 17:06:58 1997 +0100
@@ -3537,16 +3537,25 @@
             ].
         ] ifFalse:[
 "/            self classDefinition.
-self classListUpdate.
+            self classListUpdate.
+
             codeView acceptAction:[:theCode |
                 codeView cursor:Cursor execute.
+
                 Object abortSignal catch:[
-                    (Compiler evaluate:theCode asString notifying:codeView compile:false)
-                    isBehavior ifTrue:[
-                        self classCategoryUpdate.
-                        self updateClassListWithScroll:false.
-                        codeView modified:false.
-                    ].
+                    UndefinedObject createMinimumProtocolInNewSubclassQuery
+                    answer:true
+                    do:[
+                        (Compiler 
+                            evaluate:theCode asString 
+                            notifying:codeView 
+                            compile:false)
+                        isBehavior ifTrue:[
+                            self classCategoryUpdate.
+                            self updateClassListWithScroll:false.
+                            codeView modified:false.
+                        ].
+                    ]
                 ].
                 codeView cursor:Cursor normal.
             ].
@@ -3564,7 +3573,7 @@
     ]
 
     "Created: 23.11.1995 / 11:32:03 / cg"
-    "Modified: 23.12.1996 / 12:24:16 / cg"
+    "Modified: 3.1.1997 / 15:46:22 / cg"
 !
 
 classTemplateFor:className in:categoryString namespace:isNameSpace private:isPrivate
@@ -7968,6 +7977,7 @@
         ] ifFalse:[
             compiler := currentClass evaluatorClass
         ].
+
         compiler 
             evaluate:theCode 
             in:nil 
@@ -7976,6 +7986,8 @@
             logged:false
             ifFail:nil 
     ].
+
+    "Modified: 3.1.1997 / 15:46:44 / cg"
 !
 
 setListOfNamespaces
@@ -8869,6 +8881,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.232 1997-01-03 11:19:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.233 1997-01-03 16:06:58 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Jan 03 12:19:25 1997 +0100
+++ b/BrwsrView.st	Fri Jan 03 17:06:58 1997 +0100
@@ -3537,16 +3537,25 @@
             ].
         ] ifFalse:[
 "/            self classDefinition.
-self classListUpdate.
+            self classListUpdate.
+
             codeView acceptAction:[:theCode |
                 codeView cursor:Cursor execute.
+
                 Object abortSignal catch:[
-                    (Compiler evaluate:theCode asString notifying:codeView compile:false)
-                    isBehavior ifTrue:[
-                        self classCategoryUpdate.
-                        self updateClassListWithScroll:false.
-                        codeView modified:false.
-                    ].
+                    UndefinedObject createMinimumProtocolInNewSubclassQuery
+                    answer:true
+                    do:[
+                        (Compiler 
+                            evaluate:theCode asString 
+                            notifying:codeView 
+                            compile:false)
+                        isBehavior ifTrue:[
+                            self classCategoryUpdate.
+                            self updateClassListWithScroll:false.
+                            codeView modified:false.
+                        ].
+                    ]
                 ].
                 codeView cursor:Cursor normal.
             ].
@@ -3564,7 +3573,7 @@
     ]
 
     "Created: 23.11.1995 / 11:32:03 / cg"
-    "Modified: 23.12.1996 / 12:24:16 / cg"
+    "Modified: 3.1.1997 / 15:46:22 / cg"
 !
 
 classTemplateFor:className in:categoryString namespace:isNameSpace private:isPrivate
@@ -7968,6 +7977,7 @@
         ] ifFalse:[
             compiler := currentClass evaluatorClass
         ].
+
         compiler 
             evaluate:theCode 
             in:nil 
@@ -7976,6 +7986,8 @@
             logged:false
             ifFail:nil 
     ].
+
+    "Modified: 3.1.1997 / 15:46:44 / cg"
 !
 
 setListOfNamespaces
@@ -8869,6 +8881,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.232 1997-01-03 11:19:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.233 1997-01-03 16:06:58 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool