equal
deleted
inserted
replaced
216 case of a bad installation) |
216 case of a bad installation) |
217 " |
217 " |
218 form isNil ifTrue:[ |
218 form isNil ifTrue:[ |
219 style == #st80 ifTrue:[ |
219 style == #st80 ifTrue:[ |
220 form := Form width:9 height:9 depth:1 on:Display. |
220 form := Form width:9 height:9 depth:1 on:Display. |
|
221 form isNil ifTrue:[^ nil]. |
221 form clear. |
222 form clear. |
222 form lineWidth:2. |
223 form lineWidth:2. |
223 form capStyle:#round. |
224 form capStyle:#round. |
224 form paint:(Color colorId:1). |
225 form paint:(Color colorId:1). |
225 form displayLineFromX:0 y:2 toX:4 y:6. |
226 form displayLineFromX:0 y:2 toX:4 y:6. |
240 2r00001000 2r00010000 |
241 2r00001000 2r00010000 |
241 2r00000100 2r00100000 |
242 2r00000100 2r00100000 |
242 2r00000010 2r01000000 |
243 2r00000010 2r01000000 |
243 2r00000001 2r10000000 |
244 2r00000001 2r10000000 |
244 2r00000000 2r00000000] |
245 2r00000000 2r00000000] |
245 on:aDevice |
246 on:aDevice. |
|
247 form isNil ifTrue:[^ nil]. |
246 ]. |
248 ]. |
247 ]. |
249 ]. |
248 form := form on:aDevice. |
250 form := form on:aDevice. |
249 |
251 |
250 " |
252 " |
299 case of a bad installation) |
301 case of a bad installation) |
300 " |
302 " |
301 form isNil ifTrue:[ |
303 form isNil ifTrue:[ |
302 style == #st80 ifTrue:[ |
304 style == #st80 ifTrue:[ |
303 form := Form width:9 height:9 depth:1 on:Display. |
305 form := Form width:9 height:9 depth:1 on:Display. |
|
306 form isNil ifTrue:[^ nil]. |
304 form clear. |
307 form clear. |
305 form lineWidth:2. |
308 form lineWidth:2. |
306 form capStyle:#round. |
309 form capStyle:#round. |
307 form paint:(Color colorId:1). |
310 form paint:(Color colorId:1). |
308 form displayLineFromX:6 y:0 toX:2 y:4. |
311 form displayLineFromX:6 y:0 toX:2 y:4. |
323 2r00001000 2r11111110 |
326 2r00001000 2r11111110 |
324 2r00000100 2r10000000 |
327 2r00000100 2r10000000 |
325 2r00000010 2r10000000 |
328 2r00000010 2r10000000 |
326 2r00000001 2r10000000 |
329 2r00000001 2r10000000 |
327 2r00000000 2r00000000] |
330 2r00000000 2r00000000] |
328 on:aDevice |
331 on:aDevice. |
|
332 form isNil ifTrue:[^ nil]. |
329 ]. |
333 ]. |
330 ]. |
334 ]. |
331 form := form on:aDevice. |
335 form := form on:aDevice. |
332 |
336 |
333 " |
337 " |
382 case of a bad installation) |
386 case of a bad installation) |
383 " |
387 " |
384 form isNil ifTrue:[ |
388 form isNil ifTrue:[ |
385 style == #st80 ifTrue:[ |
389 style == #st80 ifTrue:[ |
386 form := Form width:9 height:9 depth:1 on:Display. |
390 form := Form width:9 height:9 depth:1 on:Display. |
|
391 form isNil ifTrue:[^ nil]. |
387 form clear. |
392 form clear. |
388 form lineWidth:2. |
393 form lineWidth:2. |
389 form capStyle:#round. |
394 form capStyle:#round. |
390 form paint:(Color colorId:1). |
395 form paint:(Color colorId:1). |
391 form displayLineFromX:2 y:0 toX:6 y:4. |
396 form displayLineFromX:2 y:0 toX:6 y:4. |
406 2r01111111 2r00010000 |
411 2r01111111 2r00010000 |
407 2r00000001 2r00100000 |
412 2r00000001 2r00100000 |
408 2r00000001 2r01000000 |
413 2r00000001 2r01000000 |
409 2r00000001 2r10000000 |
414 2r00000001 2r10000000 |
410 2r00000000 2r00000000] |
415 2r00000000 2r00000000] |
411 on:aDevice |
416 on:aDevice. |
|
417 form isNil ifTrue:[^ nil]. |
412 ]. |
418 ]. |
413 ]. |
419 ]. |
414 form := form on:aDevice. |
420 form := form on:aDevice. |
415 |
421 |
416 " |
422 " |
465 case of a bad installation) |
471 case of a bad installation) |
466 " |
472 " |
467 form isNil ifTrue:[ |
473 form isNil ifTrue:[ |
468 style == #st80 ifTrue:[ |
474 style == #st80 ifTrue:[ |
469 form := Form width:9 height:9 depth:1 on:aDevice. |
475 form := Form width:9 height:9 depth:1 on:aDevice. |
|
476 form isNil ifTrue:[^ nil]. |
470 form clear. |
477 form clear. |
471 form lineWidth:2. |
478 form lineWidth:2. |
472 form capStyle:#round. |
479 form capStyle:#round. |
473 form paint:(Color colorId:1). |
480 form paint:(Color colorId:1). |
474 form displayLineFromX:0 y:6 toX:4 y:2. |
481 form displayLineFromX:0 y:6 toX:4 y:2. |
489 2r00001000 2r00010000 |
496 2r00001000 2r00010000 |
490 2r00001000 2r00010000 |
497 2r00001000 2r00010000 |
491 2r00001000 2r00010000 |
498 2r00001000 2r00010000 |
492 2r00001111 2r11110000 |
499 2r00001111 2r11110000 |
493 2r00000000 2r00000000] |
500 2r00000000 2r00000000] |
494 on:aDevice |
501 on:aDevice. |
|
502 form isNil ifTrue:[^ nil]. |
495 ]. |
503 ]. |
496 ]. |
504 ]. |
497 |
505 |
498 form := form on:aDevice. |
506 form := form on:aDevice. |
499 |
507 |
715 ! ! |
723 ! ! |
716 |
724 |
717 !ArrowButton class methodsFor:'documentation'! |
725 !ArrowButton class methodsFor:'documentation'! |
718 |
726 |
719 version |
727 version |
720 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.19 1995-11-23 18:19:24 cg Exp $' |
728 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.20 1995-12-27 16:18:50 cg Exp $' |
721 ! ! |
729 ! ! |