equal
deleted
inserted
replaced
236 form clear. |
236 form clear. |
237 form lineWidth:2. |
237 form lineWidth:2. |
238 form capStyle:#round. |
238 form capStyle:#round. |
239 form paint:(Color colorId:1). |
239 form paint:(Color colorId:1). |
240 form displayLineFromX:0 y:2 toX:4 y:6. |
240 form displayLineFromX:0 y:2 toX:4 y:6. |
241 form displayLineFromX:4 y:6 toX:8 y:2 |
241 form displayLineFromX:4 y:6 toX:8 y:2. |
|
242 form beImmediateForm. |
242 ] ifFalse:[ |
243 ] ifFalse:[ |
243 form := Form width:16 height:16 |
244 form := Form width:16 height:16 |
244 fromArray:#[2r00000000 2r00000000 |
245 fromArray:#[2r00000000 2r00000000 |
245 2r00001111 2r11110000 |
246 2r00001111 2r11110000 |
246 2r00001000 2r00010000 |
247 2r00001000 2r00010000 |
259 2r00000000 2r00000000] |
260 2r00000000 2r00000000] |
260 on:aDevice. |
261 on:aDevice. |
261 form isNil ifTrue:[^ nil]. |
262 form isNil ifTrue:[^ nil]. |
262 ]. |
263 ]. |
263 ]. |
264 ]. |
264 form := form on:aDevice. |
|
265 form beImmediateForm. |
|
266 |
265 |
267 " |
266 " |
268 remember form for next use |
267 remember form for next use |
269 " |
268 " |
270 (aDevice == Display) ifTrue:[ |
269 (aDevice == Display) ifTrue:[ |
328 form lineWidth:2. |
327 form lineWidth:2. |
329 form capStyle:#round. |
328 form capStyle:#round. |
330 form paint:(Color colorId:1). |
329 form paint:(Color colorId:1). |
331 form displayLineFromX:6 y:0 toX:2 y:4. |
330 form displayLineFromX:6 y:0 toX:2 y:4. |
332 form displayLineFromX:2 y:4 toX:6 y:8. |
331 form displayLineFromX:2 y:4 toX:6 y:8. |
|
332 form beImmediateForm. |
333 ] ifFalse:[ |
333 ] ifFalse:[ |
334 form := Form width:16 height:16 |
334 form := Form width:16 height:16 |
335 fromArray:#[2r00000000 2r00000000 |
335 fromArray:#[2r00000000 2r00000000 |
336 2r00000001 2r10000000 |
336 2r00000001 2r10000000 |
337 2r00000010 2r10000000 |
337 2r00000010 2r10000000 |
350 2r00000000 2r00000000] |
350 2r00000000 2r00000000] |
351 on:aDevice. |
351 on:aDevice. |
352 form isNil ifTrue:[^ nil]. |
352 form isNil ifTrue:[^ nil]. |
353 ]. |
353 ]. |
354 ]. |
354 ]. |
355 form := form on:aDevice. |
|
356 form beImmediateForm. |
|
357 |
355 |
358 " |
356 " |
359 remember form for next use |
357 remember form for next use |
360 " |
358 " |
361 (aDevice == Display) ifTrue:[ |
359 (aDevice == Display) ifTrue:[ |
418 form clear. |
416 form clear. |
419 form lineWidth:2. |
417 form lineWidth:2. |
420 form capStyle:#round. |
418 form capStyle:#round. |
421 form paint:(Color colorId:1). |
419 form paint:(Color colorId:1). |
422 form displayLineFromX:2 y:0 toX:6 y:4. |
420 form displayLineFromX:2 y:0 toX:6 y:4. |
423 form displayLineFromX:6 y:4 toX:2 y:8 |
421 form displayLineFromX:6 y:4 toX:2 y:8. |
|
422 form beImmediateForm. |
424 ] ifFalse:[ |
423 ] ifFalse:[ |
425 form := Form width:16 height:16 |
424 form := Form width:16 height:16 |
426 fromArray:#[2r00000000 2r00000000 |
425 fromArray:#[2r00000000 2r00000000 |
427 2r00000001 2r10000000 |
426 2r00000001 2r10000000 |
428 2r00000001 2r01000000 |
427 2r00000001 2r01000000 |
441 2r00000000 2r00000000] |
440 2r00000000 2r00000000] |
442 on:aDevice. |
441 on:aDevice. |
443 form isNil ifTrue:[^ nil]. |
442 form isNil ifTrue:[^ nil]. |
444 ]. |
443 ]. |
445 ]. |
444 ]. |
446 form := form on:aDevice. |
|
447 form beImmediateForm. |
|
448 |
445 |
449 " |
446 " |
450 remember form for next use |
447 remember form for next use |
451 " |
448 " |
452 (aDevice == Display) ifTrue:[ |
449 (aDevice == Display) ifTrue:[ |
510 form lineWidth:2. |
507 form lineWidth:2. |
511 form capStyle:#round. |
508 form capStyle:#round. |
512 form paint:(Color colorId:1). |
509 form paint:(Color colorId:1). |
513 form displayLineFromX:0 y:6 toX:4 y:2. |
510 form displayLineFromX:0 y:6 toX:4 y:2. |
514 form displayLineFromX:4 y:2 toX:8 y:6. |
511 form displayLineFromX:4 y:2 toX:8 y:6. |
|
512 form beImmediateForm. |
515 ] ifFalse:[ |
513 ] ifFalse:[ |
516 form := Form width:16 height:16 |
514 form := Form width:16 height:16 |
517 fromArray:#[2r00000000 2r00000000 |
515 fromArray:#[2r00000000 2r00000000 |
518 2r00000001 2r10000000 |
516 2r00000001 2r10000000 |
519 2r00000010 2r01000000 |
517 2r00000010 2r01000000 |
533 on:aDevice. |
531 on:aDevice. |
534 form isNil ifTrue:[^ nil]. |
532 form isNil ifTrue:[^ nil]. |
535 ]. |
533 ]. |
536 ]. |
534 ]. |
537 |
535 |
538 form := form on:aDevice. |
|
539 form beImmediateForm. |
|
540 |
|
541 " |
536 " |
542 remember form for next use |
537 remember form for next use |
543 " |
538 " |
544 (aDevice == Display) ifTrue:[ |
539 (aDevice == Display) ifTrue:[ |
545 CachedStyle := style. |
540 CachedStyle := style. |
778 ! ! |
773 ! ! |
779 |
774 |
780 !ArrowButton class methodsFor:'documentation'! |
775 !ArrowButton class methodsFor:'documentation'! |
781 |
776 |
782 version |
777 version |
783 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.29 1996-12-19 13:49:28 cg Exp $' |
778 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.30 1996-12-19 15:12:52 cg Exp $' |
784 ! ! |
779 ! ! |