changed: #changeMenuApplyChange:
authorClaus Gittinger <cg@exept.de>
Thu, 08 Sep 2011 05:28:12 +0200
changeset 10688 0d9b70639154
parent 10687 b10e596f7d9b
child 10689 825d52f63cf7
changed: #changeMenuApplyChange:
Tools__ChangeSetBrowser2.st
--- a/Tools__ChangeSetBrowser2.st	Thu Sep 08 05:27:41 2011 +0200
+++ b/Tools__ChangeSetBrowser2.st	Thu Sep 08 05:28:12 2011 +0200
@@ -2036,15 +2036,15 @@
 
 changeMenuApplyChange: aChange
 
-    aChange isClassDefinitionChange ifTrue:
-        [(Smalltalk at: aChange superClassName asSymbol)
-            ifNil:[^self error: 'Nil superclass']].
+"/    aChange isClassDefinitionChange ifTrue:
+"/        [(Smalltalk at: aChange superClassName asSymbol)
+"/            ifNil:[^self error: 'Nil superclass']].
 
     self withWaitCursorDo:[      
-        MCStXNamespaceQuery 
+        (MCStXNamespaceQuery , Class nameSpaceQuerySignal)
             answer:(NameSpace name:(targetNamespace ? 'Smalltalk'))   
             do: [
-                MCStXPackageQuery 
+                (MCStXPackageQuery , Class packageQuerySignal)
                     answer: self targetPackage   
                     do: [
                         MCInteractiveLoadingQuery answer: true do:[
@@ -2061,7 +2061,7 @@
     ].
 
     "Modified: / 29-10-2010 / 14:57:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-09-2011 / 20:15:56 / cg"
+    "Modified: / 07-09-2011 / 22:24:57 / cg"
 !
 
 changeMenuApplyChanges: changesToApply
@@ -2220,11 +2220,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.18 2011-09-07 18:26:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.19 2011-09-08 03:28:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.18 2011-09-07 18:26:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.19 2011-09-08 03:28:12 cg Exp $'
 !
 
 version_SVN