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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 22 Apr 1999 14:02:22 +0200
changeset 2105 37e9fc122780
parent 2104 4cdfa467fb7c
child 2106 2525106beae1
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Sun Apr 18 13:52:54 1999 +0200
+++ b/BrowserView.st	Thu Apr 22 14:02:22 1999 +0200
@@ -3312,7 +3312,7 @@
                                      classFileOutBinary
                                      classMakePrivate
                                      classMakePublic
-                                     classModifyPackage
+                                     "/ classModifyPackage
                                      classModifyContainer 
                                      classRemoveContainer
                                      classRevisionInfo 
@@ -4707,7 +4707,8 @@
     |newPackage|
 
     currentClass isLoaded ifFalse:[
-        self warn:'will not change unloaded classes.'.
+        self warn:('The package-ID is ''' , currentClass package asText allBold , '''.'
+                   , '\\I will not change the package-ID of unloaded classes.') withCRs.
         ^ self.
     ].
 
@@ -13411,6 +13412,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.490 1999-04-17 16:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.491 1999-04-22 12:02:22 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sun Apr 18 13:52:54 1999 +0200
+++ b/BrwsrView.st	Thu Apr 22 14:02:22 1999 +0200
@@ -3312,7 +3312,7 @@
                                      classFileOutBinary
                                      classMakePrivate
                                      classMakePublic
-                                     classModifyPackage
+                                     "/ classModifyPackage
                                      classModifyContainer 
                                      classRemoveContainer
                                      classRevisionInfo 
@@ -4707,7 +4707,8 @@
     |newPackage|
 
     currentClass isLoaded ifFalse:[
-        self warn:'will not change unloaded classes.'.
+        self warn:('The package-ID is ''' , currentClass package asText allBold , '''.'
+                   , '\\I will not change the package-ID of unloaded classes.') withCRs.
         ^ self.
     ].
 
@@ -13411,6 +13412,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.490 1999-04-17 16:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.491 1999-04-22 12:02:22 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool