# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1076597576 -3600
# Node ID f9e502987d9ac2c6cbb9a5c0579bf5007e931e10
# Parent  379b6e9e6a2ff7da299abf3dc65b4a2540177fd5
*** empty log message ***

diff -r 379b6e9e6a2f -r f9e502987d9a CharacterSetView.st
--- a/CharacterSetView.st	Thu Feb 12 15:51:10 2004 +0100
+++ b/CharacterSetView.st	Thu Feb 12 15:52:56 2004 +0100
@@ -19,11 +19,22 @@
 !
 
 openOn:aFont
+    ^ self
+        openOn:aFont 
+        label:aFont printString
+        clickLabel:'Click on glyph to see its codePoint.'
+
+    "
+     self openOn:(View defaultFont).
+    "
+!
+
+openOn:aFont label:viewLabel clickLabel:clickLabel
     |top panel v bNext bPrev bFirst bLast rangeLabel codePointLabel
      first last next prev enable update updateCodePoint w h|
 
     top := StandardSystemView new.
-    top label:(aFont printString).
+    top label:viewLabel.
 
     v := self origin:0.0@0.0 corner:1.0@1.0 in:top.
     v topInset:25.
@@ -40,7 +51,7 @@
 
             selectedCodePoint := v selectedCodePoint.
             selectedCodePoint isNil ifTrue:[
-                codePointLabel label:'Click on glyph to see its codePoint.'
+                codePointLabel label:clickLabel
             ] ifFalse:[
                 codePointLabel label:('Selected: u%1'
                         bindWith:((selectedCodePoint printStringRadix:16) leftPaddedTo:4 with:$0)).
@@ -278,5 +289,5 @@
 !CharacterSetView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.4 2004-02-12 14:51:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.5 2004-02-12 14:52:56 cg Exp $'
 ! !