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