Mercurial Mercurial > hg > stx-libview2 / 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 ***
authorca
Thu, 13 Feb 1997 23:25:21 +0100
changeset 420 ca86c6276ecb
parent 419 b977a2b4fe80
child 421 e163e734b31c
*** empty log message ***
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Thu Feb 13 19:18:48 1997 +0100
+++ b/WinBuilder.st	Thu Feb 13 23:25:21 1997 +0100
@@ -200,6 +200,15 @@
     "Modified: 5.9.1995 / 21:42:54 / claus"
 !
 
+labelFor:aKey
+    application notNil ifTrue:[
+        ^ application labelFor:aKey
+    ].
+    ^ self aspectAt:aKey
+
+    "Created: 17.1.1997 / 21:08:45 / cg"
+!
+
 listFor:aKey
     application notNil ifTrue:[
         ^ application listFor:aKey
@@ -309,5 +318,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.17 1997-02-11 19:02:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.18 1997-02-13 22:25:21 ca Exp $'
 ! !
--- a/WindowBuilder.st	Thu Feb 13 19:18:48 1997 +0100
+++ b/WindowBuilder.st	Thu Feb 13 23:25:21 1997 +0100
@@ -200,6 +200,15 @@
     "Modified: 5.9.1995 / 21:42:54 / claus"
 !
 
+labelFor:aKey
+    application notNil ifTrue:[
+        ^ application labelFor:aKey
+    ].
+    ^ self aspectAt:aKey
+
+    "Created: 17.1.1997 / 21:08:45 / cg"
+!
+
 listFor:aKey
     application notNil ifTrue:[
         ^ application listFor:aKey
@@ -309,5 +318,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.17 1997-02-11 19:02:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.18 1997-02-13 22:25:21 ca Exp $'
 ! !
hg/stx-libview2