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>
Sun, 26 Apr 1998 01:10:54 +0200
changeset 1620 51341ec8360b
parent 1619 6e4b1930841a
child 1621 f689a713819e
checkin from browser
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions
SBrowser.st file | annotate | diff | comparison | revisions
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/ProcMonitor.st	Sun Apr 26 01:09:21 1998 +0200
+++ b/ProcMonitor.st	Sun Apr 26 01:10:54 1998 +0200
@@ -472,6 +472,8 @@
 statusMenu
     "return a popUpMenu"
 
+    <resource: #programMenu>
+
     |labels selectors m sel allRestartable|
 
     device ctrlDown ifTrue:[
@@ -654,5 +656,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.59 1998-03-04 18:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.60 1998-04-25 23:10:12 cg Exp $'
 ! !
--- a/ProcessMonitor.st	Sun Apr 26 01:09:21 1998 +0200
+++ b/ProcessMonitor.st	Sun Apr 26 01:10:54 1998 +0200
@@ -472,6 +472,8 @@
 statusMenu
     "return a popUpMenu"
 
+    <resource: #programMenu>
+
     |labels selectors m sel allRestartable|
 
     device ctrlDown ifTrue:[
@@ -654,5 +656,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.59 1998-03-04 18:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.60 1998-04-25 23:10:12 cg Exp $'
 ! !
--- a/SBrowser.st	Sun Apr 26 01:09:21 1998 +0200
+++ b/SBrowser.st	Sun Apr 26 01:10:54 1998 +0200
@@ -294,11 +294,14 @@
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound
-    super warn:(self classResources string:'None found').
+    super warn:(self classResources string:'None found.').
 !
 
 showNoneFound:what
-    super warn:(self classResources string:(what , '...\\... none found') withCRs).
+    |rs|
+
+    rs := self classResources.
+    super warn:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
 ! !
 
 !SystemBrowser class methodsFor:'private instance creation'!
@@ -1924,6 +1927,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.84 1998-04-22 08:35:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/SBrowser.st,v 1.85 1998-04-25 23:10:54 cg Exp $'
 ! !
 SystemBrowser initialize!
--- a/SystemBrowser.st	Sun Apr 26 01:09:21 1998 +0200
+++ b/SystemBrowser.st	Sun Apr 26 01:10:54 1998 +0200
@@ -294,11 +294,14 @@
 !SystemBrowser class methodsFor:'private helpers'!
 
 showNoneFound
-    super warn:(self classResources string:'None found').
+    super warn:(self classResources string:'None found.').
 !
 
 showNoneFound:what
-    super warn:(self classResources string:(what , '...\\... none found') withCRs).
+    |rs|
+
+    rs := self classResources.
+    super warn:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
 ! !
 
 !SystemBrowser class methodsFor:'private instance creation'!
@@ -1924,6 +1927,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.84 1998-04-22 08:35:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.85 1998-04-25 23:10:54 cg Exp $'
 ! !
 SystemBrowser initialize!
hg/stx-libtool