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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 01 Apr 1999 15:34:43 +0200
changeset 1155 e4408835f51b
parent 1154 85278972730f
child 1156 abdd5a7dce49
checkin from browser
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Thu Apr 01 11:40:03 1999 +0200
+++ b/WinBuilder.st	Thu Apr 01 15:34:43 1999 +0200
@@ -200,10 +200,21 @@
     "Modified: 17.1.1997 / 19:04:47 / cg"
 !
 
+applicationClass
+    "return the value of the instance variable 'applicationClass' (automatically generated).
+     This is a private interface for the UIPainter to pass down the app-class
+     to the specs when editing."
+
+    ^ applicationClass 
+!
+
 applicationClass:something
-    "set the value of the instance variable 'applicationClass' (automatically generated)"
+    "set the value of the instance variable 'applicationClass' (automatically generated).
+     This is a private interface for the UIPainter to pass down the app-class
+     to the specs when editing."
 
-    applicationClass := something.!
+    applicationClass := something.
+!
 
 aspectAt:aSymbol
     "return the aspect for a symbol or nil.
@@ -1172,5 +1183,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.76 1999-03-12 09:56:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.77 1999-04-01 13:34:43 cg Exp $'
 ! !
--- a/WindowBuilder.st	Thu Apr 01 11:40:03 1999 +0200
+++ b/WindowBuilder.st	Thu Apr 01 15:34:43 1999 +0200
@@ -200,10 +200,21 @@
     "Modified: 17.1.1997 / 19:04:47 / cg"
 !
 
+applicationClass
+    "return the value of the instance variable 'applicationClass' (automatically generated).
+     This is a private interface for the UIPainter to pass down the app-class
+     to the specs when editing."
+
+    ^ applicationClass 
+!
+
 applicationClass:something
-    "set the value of the instance variable 'applicationClass' (automatically generated)"
+    "set the value of the instance variable 'applicationClass' (automatically generated).
+     This is a private interface for the UIPainter to pass down the app-class
+     to the specs when editing."
 
-    applicationClass := something.!
+    applicationClass := something.
+!
 
 aspectAt:aSymbol
     "return the aspect for a symbol or nil.
@@ -1172,5 +1183,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.76 1999-03-12 09:56:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.77 1999-04-01 13:34:43 cg Exp $'
 ! !
hg/stx-libview2