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.
leftover halt removed
authorClaus Gittinger <cg@exept.de>
Thu, 29 Mar 2007 10:22:09 +0200
changeset 7781 3dced9930727
parent 7780 e6a87f5b97a2
child 7782 c6b2180cc789
leftover halt removed
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed Mar 28 18:47:04 2007 +0200
+++ b/NewSystemBrowser.st	Thu Mar 29 10:22:09 2007 +0200
@@ -12511,11 +12511,13 @@
             def := ProjectDefinition definitionClassForPackage:cls package.
 
             def notNil
+            and:[ def isLoaded
             and:[ (def compiled_classNames includes:cls name)
-            and:[ cls isProjectDefinition not ]]
+            and:[ cls isProjectDefinition not ]]]
         ]
 
     "Created: / 22-02-2007 / 13:55:03 / cg"
+    "Modified: / 28-03-2007 / 21:54:14 / cg"
 !
 
 hasClassSelectedWhichCanBeExcludedFromProjectHolder
@@ -12536,11 +12538,13 @@
             def := ProjectDefinition definitionClassForPackage:cls package.
 
             def notNil
+            and:[ def isLoaded
             and:[ (def compiled_classNames includes:cls name) not
-            and:[ cls isProjectDefinition not ]]
+            and:[ cls isProjectDefinition not ]]]
         ]
 
     "Created: / 22-02-2007 / 13:54:16 / cg"
+    "Modified: / 28-03-2007 / 21:53:51 / cg"
 !
 
 hasClassSelectedWhichCanBeIncludedInProjectHolder
@@ -29919,7 +29923,7 @@
                     newSource := newSource , '\' withCRs.
                 ].
                 newSource := newSource , bodyPart.
-self halt.
+
                 result := Compiler compile:newSource forClass:mClass install:false.
                 (result isNil or:[result == #Error]) ifTrue:[
                     Dialog warn:(resources string:'Failed to compile new version of %1' with:eachMethod whoString allBold).
@@ -29949,7 +29953,7 @@
     ].
 
     "Created: / 23-11-2006 / 16:52:27 / cg"
-    "Modified: / 28-11-2006 / 12:11:09 / cg"
+    "Modified: / 28-03-2007 / 21:39:59 / cg"
 !
 
 selectorMenuMoveOrCopy:doWhat
@@ -40892,7 +40896,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1158 2007-03-28 12:09:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1159 2007-03-29 08:22:09 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Mar 28 18:47:04 2007 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Mar 29 10:22:09 2007 +0200
@@ -12511,11 +12511,13 @@
             def := ProjectDefinition definitionClassForPackage:cls package.
 
             def notNil
+            and:[ def isLoaded
             and:[ (def compiled_classNames includes:cls name)
-            and:[ cls isProjectDefinition not ]]
+            and:[ cls isProjectDefinition not ]]]
         ]
 
     "Created: / 22-02-2007 / 13:55:03 / cg"
+    "Modified: / 28-03-2007 / 21:54:14 / cg"
 !
 
 hasClassSelectedWhichCanBeExcludedFromProjectHolder
@@ -12536,11 +12538,13 @@
             def := ProjectDefinition definitionClassForPackage:cls package.
 
             def notNil
+            and:[ def isLoaded
             and:[ (def compiled_classNames includes:cls name) not
-            and:[ cls isProjectDefinition not ]]
+            and:[ cls isProjectDefinition not ]]]
         ]
 
     "Created: / 22-02-2007 / 13:54:16 / cg"
+    "Modified: / 28-03-2007 / 21:53:51 / cg"
 !
 
 hasClassSelectedWhichCanBeIncludedInProjectHolder
@@ -29919,7 +29923,7 @@
                     newSource := newSource , '\' withCRs.
                 ].
                 newSource := newSource , bodyPart.
-self halt.
+
                 result := Compiler compile:newSource forClass:mClass install:false.
                 (result isNil or:[result == #Error]) ifTrue:[
                     Dialog warn:(resources string:'Failed to compile new version of %1' with:eachMethod whoString allBold).
@@ -29949,7 +29953,7 @@
     ].
 
     "Created: / 23-11-2006 / 16:52:27 / cg"
-    "Modified: / 28-11-2006 / 12:11:09 / cg"
+    "Modified: / 28-03-2007 / 21:39:59 / cg"
 !
 
 selectorMenuMoveOrCopy:doWhat
@@ -40892,7 +40896,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1158 2007-03-28 12:09:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1159 2007-03-29 08:22:09 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool