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.
some care for incomplete information bein present when
authorClaus Gittinger <cg@exept.de>
Fri, 20 Oct 2006 16:33:55 +0200
changeset 7435 2d3de304adc2
parent 7434 ac5c9d2b726b
child 7436 239642f1ae05
some care for incomplete information bein present when generating files (not all of the package is loaded).
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri Oct 20 14:15:45 2006 +0200
+++ b/NewSystemBrowser.st	Fri Oct 20 16:33:55 2006 +0200
@@ -26134,7 +26134,7 @@
         theFile := defClass nsiFilename.
     ].
 
-    (defClass compiled_classNames 
+    (defClass allClassNames "compiled_classNames" 
         contains:[:aName | 
             |cls|
 
@@ -26142,7 +26142,8 @@
             cls isNil
         ])
     ifTrue:[
-        Dialog warn:('Some class(es) from the list of compiled classes is/are missing in the image!!')
+        (Dialog confirm:('Some class from the list of compiled classes is missing in the image!!\\Continue anyway ?') withCRs)
+        ifFalse:[^ self ].
     ].    
 
     whichFile = 'abbrev.stc' ifTrue:[
@@ -26178,7 +26179,7 @@
     ].
 
     "Created: / 29-08-2006 / 15:35:44 / cg"
-    "Modified: / 20-09-2006 / 11:48:52 / cg"
+    "Modified: / 20-10-2006 / 16:33:11 / cg"
 !
 
 projectMenuSpawn
@@ -39685,7 +39686,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1091 2006-10-18 11:13:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1092 2006-10-20 14:33:55 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri Oct 20 14:15:45 2006 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Oct 20 16:33:55 2006 +0200
@@ -26134,7 +26134,7 @@
         theFile := defClass nsiFilename.
     ].
 
-    (defClass compiled_classNames 
+    (defClass allClassNames "compiled_classNames" 
         contains:[:aName | 
             |cls|
 
@@ -26142,7 +26142,8 @@
             cls isNil
         ])
     ifTrue:[
-        Dialog warn:('Some class(es) from the list of compiled classes is/are missing in the image!!')
+        (Dialog confirm:('Some class from the list of compiled classes is missing in the image!!\\Continue anyway ?') withCRs)
+        ifFalse:[^ self ].
     ].    
 
     whichFile = 'abbrev.stc' ifTrue:[
@@ -26178,7 +26179,7 @@
     ].
 
     "Created: / 29-08-2006 / 15:35:44 / cg"
-    "Modified: / 20-09-2006 / 11:48:52 / cg"
+    "Modified: / 20-10-2006 / 16:33:11 / cg"
 !
 
 projectMenuSpawn
@@ -39685,7 +39686,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1091 2006-10-18 11:13:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1092 2006-10-20 14:33:55 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool