equal
deleted
inserted
replaced
215 |wCol hRow dY| |
215 |wCol hRow dY| |
216 |
216 |
217 wCol := width / 16. |
217 wCol := width / 16. |
218 hRow := height / 16. |
218 hRow := height / 16. |
219 |
219 |
220 0 to:16 do:[:col | |
|
221 |x| |
|
222 |
|
223 x := (col * wCol) rounded asInteger. |
|
224 self displayLineFromX:x y:0 toX:x y:height-1. |
|
225 ]. |
|
226 |
|
227 0 to:15 do:[:row | |
|
228 |y| |
|
229 |
|
230 y := (row * hRow) rounded asInteger. |
|
231 self displayLineFromX:0 y:y toX:width y:y. |
|
232 ]. |
|
233 |
|
234 dY := (hRow - (font height)) // 2 + (font ascent). |
220 dY := (hRow - (font height)) // 2 + (font ascent). |
235 |
221 |
236 0 to:15 do:[:row | |
222 0 to:15 do:[:row | |
237 |y0 y1 y rowBase| |
223 |y0 y1 y rowBase| |
238 |
224 |
268 self displayString:s x:x y:y. |
254 self displayString:s x:x y:y. |
269 ]. |
255 ]. |
270 ]. |
256 ]. |
271 ]. |
257 ]. |
272 |
258 |
|
259 0 to:16 do:[:col | |
|
260 |x| |
|
261 |
|
262 x := (col * wCol) rounded asInteger. |
|
263 self displayLineFromX:x y:0 toX:x y:height-1. |
|
264 ]. |
|
265 |
|
266 0 to:15 do:[:row | |
|
267 |y| |
|
268 |
|
269 y := (row * hRow) rounded asInteger. |
|
270 self displayLineFromX:0 y:y toX:width y:y. |
|
271 ]. |
|
272 |
273 " |
273 " |
274 (self extent:300@600) open |
274 (self extent:300@600) open |
275 " |
275 " |
276 ! |
276 ! |
277 |
277 |
333 ! ! |
333 ! ! |
334 |
334 |
335 !CharacterSetView class methodsFor:'documentation'! |
335 !CharacterSetView class methodsFor:'documentation'! |
336 |
336 |
337 version |
337 version |
338 ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.9 2004-02-13 11:44:04 cg Exp $' |
338 ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.10 2004-02-13 11:47:18 cg Exp $' |
339 ! ! |
339 ! ! |