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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 25 Oct 2006 16:18:05 +0200
changeset 7476 7a678d22b4e8
parent 7475 54b889153fc7
child 7477 b111e3b1cc6a
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed Oct 25 15:03:36 2006 +0200
+++ b/NewSystemBrowser.st	Wed Oct 25 16:18:05 2006 +0200
@@ -24695,6 +24695,12 @@
     ].
 
     defClass validateDescription.
+    defClass hasAllClassesFullyLoaded ifFalse:[
+        (Dialog confirm:'The dependency information as generated will be incomplete,\because some compiled class(es) are not loaded.\\Continue anyway ?' withCRs)
+        ifFalse:[
+            ^ self.
+        ]
+    ].
 
     mgr := SourceCodeManagerUtilities sourceCodeManagerFor:defClass.
     mgr isNil ifTrue:[
@@ -24756,7 +24762,7 @@
 
     "Created: / 09-08-2006 / 18:59:42 / fm"
     "Modified: / 16-08-2006 / 18:38:49 / User"
-    "Modified: / 19-09-2006 / 19:47:26 / cg"
+    "Modified: / 25-10-2006 / 16:11:46 / cg"
 !
 
 projectMenuCheckInClasses
@@ -39730,7 +39736,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1096 2006-10-25 07:34:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1097 2006-10-25 14:18:05 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Oct 25 15:03:36 2006 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Oct 25 16:18:05 2006 +0200
@@ -24695,6 +24695,12 @@
     ].
 
     defClass validateDescription.
+    defClass hasAllClassesFullyLoaded ifFalse:[
+        (Dialog confirm:'The dependency information as generated will be incomplete,\because some compiled class(es) are not loaded.\\Continue anyway ?' withCRs)
+        ifFalse:[
+            ^ self.
+        ]
+    ].
 
     mgr := SourceCodeManagerUtilities sourceCodeManagerFor:defClass.
     mgr isNil ifTrue:[
@@ -24756,7 +24762,7 @@
 
     "Created: / 09-08-2006 / 18:59:42 / fm"
     "Modified: / 16-08-2006 / 18:38:49 / User"
-    "Modified: / 19-09-2006 / 19:47:26 / cg"
+    "Modified: / 25-10-2006 / 16:11:46 / cg"
 !
 
 projectMenuCheckInClasses
@@ -39730,7 +39736,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1096 2006-10-25 07:34:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1097 2006-10-25 14:18:05 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool