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.
category change
authorClaus Gittinger <cg@exept.de>
Fri, 19 Jun 1998 01:59:48 +0200
changeset 974 4b045b9affb3
parent 973 cd6b8d08c9c9
child 975 7edaf9f69ef7
category change
WinBuilder.st file | annotate | diff | comparison | revisions
WindowBuilder.st file | annotate | diff | comparison | revisions 
--- a/WinBuilder.st	Fri Jun 19 00:59:17 1998 +0200
+++ b/WinBuilder.st	Fri Jun 19 01:59:48 1998 +0200
@@ -124,6 +124,24 @@
 "
 ! !
 
+!WindowBuilder methodsFor:'ST-80 compatibility'!
+
+source
+    "same as #application, for ST-80 compatibility"
+
+    ^ application
+
+    "Created: 17.1.1997 / 19:03:51 / cg"
+!
+
+source:anApplicationModel
+    "same as #application:, for ST-80 compatibility"
+
+    application := anApplicationModel
+
+    "Modified: 17.1.1997 / 19:03:57 / cg"
+! !
+
 !WindowBuilder methodsFor:'accessing'!
 
 addBindings:moreBindings
@@ -348,22 +366,6 @@
     ^ namedComponents
 !
 
-source
-    "same as #application, for ST-80 compatibility"
-
-    ^ application
-
-    "Created: 17.1.1997 / 19:03:51 / cg"
-!
-
-source:anApplicationModel
-    "same as #application:, for ST-80 compatibility"
-
-    application := anApplicationModel
-
-    "Modified: 17.1.1997 / 19:03:57 / cg"
-!
-
 subCanvasAt:majorKey at:minorKey
     "get the subCanvas or subSpec specification from major and minor key.
      Here, we first look for a spec in the private subCanvasSpecs dictionary,
@@ -1040,5 +1042,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.66 1998-06-18 19:41:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/WinBuilder.st,v 1.67 1998-06-18 23:59:48 cg Exp $'
 ! !
--- a/WindowBuilder.st	Fri Jun 19 00:59:17 1998 +0200
+++ b/WindowBuilder.st	Fri Jun 19 01:59:48 1998 +0200
@@ -124,6 +124,24 @@
 "
 ! !
 
+!WindowBuilder methodsFor:'ST-80 compatibility'!
+
+source
+    "same as #application, for ST-80 compatibility"
+
+    ^ application
+
+    "Created: 17.1.1997 / 19:03:51 / cg"
+!
+
+source:anApplicationModel
+    "same as #application:, for ST-80 compatibility"
+
+    application := anApplicationModel
+
+    "Modified: 17.1.1997 / 19:03:57 / cg"
+! !
+
 !WindowBuilder methodsFor:'accessing'!
 
 addBindings:moreBindings
@@ -348,22 +366,6 @@
     ^ namedComponents
 !
 
-source
-    "same as #application, for ST-80 compatibility"
-
-    ^ application
-
-    "Created: 17.1.1997 / 19:03:51 / cg"
-!
-
-source:anApplicationModel
-    "same as #application:, for ST-80 compatibility"
-
-    application := anApplicationModel
-
-    "Modified: 17.1.1997 / 19:03:57 / cg"
-!
-
 subCanvasAt:majorKey at:minorKey
     "get the subCanvas or subSpec specification from major and minor key.
      Here, we first look for a spec in the private subCanvasSpecs dictionary,
@@ -1040,5 +1042,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.66 1998-06-18 19:41:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.67 1998-06-18 23:59:48 cg Exp $'
 ! !
hg/stx-libview2