equal
deleted
inserted
replaced
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 UIObjectView subclass:#UIPainterView |
13 UIObjectView subclass:#UIPainterView |
14 instanceVariableNames:'fontPanel viewProperties superclassName className methodName |
14 instanceVariableNames:'viewProperties superclassName className methodName categoryName' |
15 categoryName' |
|
16 classVariableNames:'HandCursor' |
15 classVariableNames:'HandCursor' |
17 poolDictionaries:'' |
16 poolDictionaries:'' |
18 category:'Interface-UIPainter' |
17 category:'Interface-UIPainter' |
19 ! |
18 ! |
20 |
19 |
827 |
826 |
828 |
827 |
829 ! |
828 ! |
830 |
829 |
831 showFontPanel |
830 showFontPanel |
832 |action theFont| |
831 |action theFont fontPanel| |
833 |
832 |
834 fontPanel isNil ifTrue:[ |
833 fontPanel := FontPanel new. |
835 fontPanel := FontPanel new |
|
836 ]. |
|
837 |
834 |
838 selection notNil ifTrue:[ |
835 selection notNil ifTrue:[ |
839 action := [:aFontDescription | theFont := aFontDescription]. |
836 action := [:aFontDescription | theFont := aFontDescription]. |
840 fontPanel action:action. |
837 fontPanel action:action. |
841 fontPanel showAtPointer. |
838 fontPanel showAtPointer. |
843 theFont notNil ifTrue:[ |
840 theFont notNil ifTrue:[ |
844 self changeFont:theFont |
841 self changeFont:theFont |
845 ] |
842 ] |
846 ] |
843 ] |
847 |
844 |
848 "Modified: 10.4.1997 / 09:55:43 / cg" |
845 "Modified: 10.4.1997 / 10:06:15 / cg" |
849 ! |
846 ! |
850 |
847 |
851 subMenuAlign |
848 subMenuAlign |
852 "returns submenu alignment |
849 "returns submenu alignment |
853 " |
850 " |