equal
deleted
inserted
replaced
558 "Modified: 29.5.1996 / 16:18:13 / cg" |
558 "Modified: 29.5.1996 / 16:18:13 / cg" |
559 ! ! |
559 ! ! |
560 |
560 |
561 !FramedBox methodsFor:'initialization'! |
561 !FramedBox methodsFor:'initialization'! |
562 |
562 |
|
563 fetchDeviceResources |
|
564 "fetch device colors, to avoid reallocation at redraw time" |
|
565 |
|
566 super fetchDeviceResources. |
|
567 |
|
568 fgColor := fgColor on:device. |
|
569 |
|
570 "Created: 15.2.1997 / 16:57:56 / cg" |
|
571 ! |
|
572 |
563 initStyle |
573 initStyle |
564 "default position is top-center, except for ms-windows, where |
574 "default position is top-center, except for ms-windows, where |
565 the text is positioned at top-left" |
575 the text is positioned at top-left" |
566 |
576 |
567 <resource: #style (#framedBoxForegroundColor |
577 <resource: #style (#framedBoxForegroundColor |
653 ! ! |
663 ! ! |
654 |
664 |
655 !FramedBox class methodsFor:'documentation'! |
665 !FramedBox class methodsFor:'documentation'! |
656 |
666 |
657 version |
667 version |
658 ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.29 1997-01-03 21:45:37 cg Exp $' |
668 ^ '$Header: /cvs/stx/stx/libwidg/FramedBox.st,v 1.30 1997-01-15 15:59:22 cg Exp $' |
659 ! ! |
669 ! ! |