added: #version_CVS
authorClaus Gittinger <cg@exept.de>
Mon, 25 Jul 2011 17:51:14 +0200
changeset 2934 67900dc06f4a
parent 2933 6e96dc9ee4dd
child 2935 c23f73a4b72e
added: #version_CVS changed: #client:spec:builder:withMenu: postBuild was missing
ApplicationSubView.st
--- a/ApplicationSubView.st	Mon Jul 25 17:32:15 2011 +0200
+++ b/ApplicationSubView.st	Mon Jul 25 17:51:14 2011 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libview2' }"
 
 View subclass:#ApplicationSubView
@@ -86,6 +84,12 @@
 "
 ! !
 
+!ApplicationSubView class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.9 2011-07-25 15:51:14 cg Exp $'
+! !
+
 !ApplicationSubView methodsFor:'accessing'!
 
 application
@@ -116,7 +120,16 @@
 
 client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu
     self application:anApplication.
-    ^ super client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu
+    super client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenu.
+
+"/self halt.
+"/    aWindowSpecOrSpecSymbol class == FullSpec ifTrue:[
+"/        "/ mhmh - should we take the attributes from the windowSpec or from my spec ????
+"/        aWindowSpecOrSpecSymbol window setBackgroundColorAttributesIn:self with:aBuilder.
+"/    ].
+    anApplication postBuildWith:aBuilder.
+
+    "Modified: / 25-07-2011 / 17:38:05 / cg"
 ! !
 
 !ApplicationSubView methodsFor:'events'!
@@ -145,5 +158,5 @@
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.8 2006-02-15 21:01:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.9 2011-07-25 15:51:14 cg Exp $'
 ! !