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.
class: ActiveHelpView
authorStefan Vogel <sv@exept.de>
Tue, 18 Feb 2014 17:06:52 +0100
changeset 3288 711749d5cfd5
parent 3287 11a9d55d663c
child 3289 3dff9f4efe99
class: ActiveHelpView changed: #initStyle fetch color via method send
ActiveHelpView.st file | annotate | diff | comparison | revisions 
--- a/ActiveHelpView.st	Tue Feb 18 16:06:02 2014 +0100
+++ b/ActiveHelpView.st	Tue Feb 18 17:06:52 2014 +0100
@@ -219,11 +219,11 @@
         viewBackground := bg
     ] ifFalse:[
         shapeStyle == #cartoon ifTrue:[
-            viewBackground := White
+            viewBackground := self whiteColor.
         ]
     ].
     self borderWidth:(styleSheet at:#'activeHelp.borderWidth' default:1).
-    self borderColor:(styleSheet at:#'activeHelp.borderColor' default:Color black).
+    self borderColor:(styleSheet at:#'activeHelp.borderColor' default:self blackColor).
 
     "Modified: / 26.10.1997 / 17:02:09 / cg"
 !
@@ -386,10 +386,10 @@
 !ActiveHelpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.41 2014-02-18 14:21:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.42 2014-02-18 16:06:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.41 2014-02-18 14:21:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.42 2014-02-18 16:06:52 stefan Exp $'
 ! !
hg/stx-libview2