equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2004 by eXept Software AG |
4 COPYRIGHT (c) 2004 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
105 openOn:aFont label:viewLabel clickLabel:clickLabel asInputFor:aView |
107 openOn:aFont label:viewLabel clickLabel:clickLabel asInputFor:aView |
106 |top panel v bNext bPrev bFirst bLast rangeLabel codePointLabel |
108 |top panel v bNext bPrev bFirst bLast rangeLabel codePointLabel |
107 first last next prev enable update updateCodePoint w h |
109 first last next prev enable update updateCodePoint w h |
108 minPage maxPage insertCharacter| |
110 minPage maxPage insertCharacter| |
109 |
111 |
110 minPage := 0. |
112 minPage := (aFont onDevice:Screen current) getFontMetrics minCode >> 8. |
111 maxPage := (aFont onDevice:Screen current) getFontMetrics maxCode >> 8. |
113 maxPage := (aFont onDevice:Screen current) getFontMetrics maxCode >> 8. |
112 |
114 |
113 top := StandardSystemView new. |
115 top := StandardSystemView new. |
114 top label:viewLabel. |
116 top label:viewLabel. |
115 |
117 |
116 v := self origin:0.0@0.0 corner:1.0@1.0 in:top. |
118 v := self origin:0.0@0.0 corner:1.0@1.0 in:top. |
117 v topInset:25. |
119 v topInset:25. |
118 v font:aFont. |
120 v font:aFont. |
|
121 v codePageHolder value:minPage. |
|
122 v characterEncoding:(aFont encoding). |
119 |
123 |
120 panel := HorizontalPanelView in:top. |
124 panel := HorizontalPanelView in:top. |
121 panel origin:(0.0 @ 0.0) corner:(1.0 @ 0.0). |
125 panel origin:(0.0 @ 0.0) corner:(1.0 @ 0.0). |
122 panel bottomInset:-25. |
126 panel bottomInset:-25. |
123 panel horizontalLayout:#left. |
127 panel horizontalLayout:#left. |
299 ! ! |
303 ! ! |
300 |
304 |
301 !CharacterSetView methodsFor:'change & update'! |
305 !CharacterSetView methodsFor:'change & update'! |
302 |
306 |
303 update:something with:aParameter from:changedObject |
307 update:something with:aParameter from:changedObject |
|
308 |newFont| |
|
309 |
304 something == #font ifTrue:[ |
310 something == #font ifTrue:[ |
305 self font:(masterViewOrNil font). |
311 newFont := masterViewOrNil font. |
|
312 self font:newFont. |
|
313 characterEncoding := newFont encoding. |
306 ^ self. |
314 ^ self. |
307 ]. |
315 ]. |
308 super update:something with:aParameter from:changedObject |
316 super update:something with:aParameter from:changedObject |
309 ! ! |
317 ! ! |
310 |
318 |
474 ! ! |
482 ! ! |
475 |
483 |
476 !CharacterSetView class methodsFor:'documentation'! |
484 !CharacterSetView class methodsFor:'documentation'! |
477 |
485 |
478 version |
486 version |
479 ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.18 2004-03-02 16:26:34 cg Exp $' |
487 ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.19 2004-03-05 17:52:57 cg Exp $' |
480 ! ! |
488 ! ! |