checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 21 Oct 1998 20:54:39 +0200
changeset 1948 c5d2e8aac578
parent 1947 1e3ccc0b663e
child 1949 d6eb2a4f5e29
checkin from browser
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Wed Oct 21 19:16:56 1998 +0200
+++ b/BrowserView.st	Wed Oct 21 20:54:39 1998 +0200
@@ -3331,7 +3331,7 @@
            t := (t , ')') 
         ].
         t := t , ' ?'.
-        t := (resources string:t with:currentClass name with:count) withCRs.
+        t := (resources string:t with:currentClass name asText allBold with:count) withCRs.
 
         box := YesNoBox 
                    title:t
@@ -3389,7 +3389,7 @@
         box destroy.
     ]
 
-    "Modified: / 10.4.1998 / 12:25:43 / cg"
+    "Modified: / 21.10.1998 / 20:49:52 / cg"
 !
 
 classRename
@@ -3399,7 +3399,9 @@
 
     self checkClassSelected ifFalse:[^ self].
     box := self 
-                enterBoxTitle:(resources string:'rename %1 to:' with:currentClass name) 
+                enterBoxTitle:(resources 
+                                string:'rename %1 to:' 
+                                with:currentClass name asText allBold) 
                 okText:'rename'
                 label:'rename class'.
 
@@ -3407,7 +3409,7 @@
     box action:[:aString | self renameCurrentClassTo:aString].
     box showAtPointer
 
-    "Modified: 15.1.1997 / 23:10:15 / cg"
+    "Modified: / 21.10.1998 / 20:50:33 / cg"
 !
 
 classShowFrom:getSelector set:setSelector aspect:aspectSymbol default:default
@@ -12581,6 +12583,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.458 1998-10-21 15:21:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.459 1998-10-21 18:54:39 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Wed Oct 21 19:16:56 1998 +0200
+++ b/BrwsrView.st	Wed Oct 21 20:54:39 1998 +0200
@@ -3331,7 +3331,7 @@
            t := (t , ')') 
         ].
         t := t , ' ?'.
-        t := (resources string:t with:currentClass name with:count) withCRs.
+        t := (resources string:t with:currentClass name asText allBold with:count) withCRs.
 
         box := YesNoBox 
                    title:t
@@ -3389,7 +3389,7 @@
         box destroy.
     ]
 
-    "Modified: / 10.4.1998 / 12:25:43 / cg"
+    "Modified: / 21.10.1998 / 20:49:52 / cg"
 !
 
 classRename
@@ -3399,7 +3399,9 @@
 
     self checkClassSelected ifFalse:[^ self].
     box := self 
-                enterBoxTitle:(resources string:'rename %1 to:' with:currentClass name) 
+                enterBoxTitle:(resources 
+                                string:'rename %1 to:' 
+                                with:currentClass name asText allBold) 
                 okText:'rename'
                 label:'rename class'.
 
@@ -3407,7 +3409,7 @@
     box action:[:aString | self renameCurrentClassTo:aString].
     box showAtPointer
 
-    "Modified: 15.1.1997 / 23:10:15 / cg"
+    "Modified: / 21.10.1998 / 20:50:33 / cg"
 !
 
 classShowFrom:getSelector set:setSelector aspect:aspectSymbol default:default
@@ -12581,6 +12583,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.458 1998-10-21 15:21:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.459 1998-10-21 18:54:39 cg Exp $'
 ! !
 BrowserView initialize!