--- 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 $'
! !