class: NoteBookView
changed: #initStyle
fetch color via method call instead of class variable
--- a/NoteBookView.st Tue Feb 18 17:46:24 2014 +0100
+++ b/NoteBookView.st Tue Feb 18 17:47:02 2014 +0100
@@ -2271,7 +2271,7 @@
self font:self class defaultFont.
drawLightColor := Color veryLightGray onDevice:graphicsDevice.
- clr := DefaultForegroundColor ? Black.
+ clr := DefaultForegroundColor ? self blackColor.
foregroundColor := clr onDevice:graphicsDevice.
clr := DefaultBackgroundColor ? viewBackground.
@@ -3791,10 +3791,10 @@
!NoteBookView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.182 2014-02-18 14:59:55 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.183 2014-02-18 16:47:02 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.182 2014-02-18 14:59:55 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.183 2014-02-18 16:47:02 stefan Exp $'
! !