equal
deleted
inserted
replaced
827 |
827 |
828 |
828 |
829 ! |
829 ! |
830 |
830 |
831 showFontPanel |
831 showFontPanel |
832 |action| |
832 |action theFont| |
833 |
833 |
834 fontPanel isNil ifTrue:[ |
834 fontPanel isNil ifTrue:[ |
835 fontPanel := FontPanel new |
835 fontPanel := FontPanel new |
836 ]. |
836 ]. |
837 |
837 |
838 selection notNil ifTrue:[ |
838 selection notNil ifTrue:[ |
839 action := [:family :face :style :size | |
839 action := [:aFontDescription | theFont := aFontDescription]. |
840 self changeFontFamily:family face:face |
840 fontPanel action:action. |
841 style:style size:size |
841 fontPanel showAtPointer. |
842 ]. |
842 fontPanel destroy. |
843 fontPanel action:action. |
843 theFont notNil ifTrue:[ |
844 fontPanel showAtPointer |
844 self changeFont:theFont |
|
845 ] |
845 ] |
846 ] |
|
847 |
|
848 "Modified: 10.4.1997 / 09:55:43 / cg" |
846 ! |
849 ! |
847 |
850 |
848 subMenuAlign |
851 subMenuAlign |
849 "returns submenu alignment |
852 "returns submenu alignment |
850 " |
853 " |
993 |
996 |
994 ! ! |
997 ! ! |
995 |
998 |
996 !UIPainterView methodsFor:'misc'! |
999 !UIPainterView methodsFor:'misc'! |
997 |
1000 |
|
1001 changeFont:aFontDescription |
|
1002 |f| |
|
1003 |
|
1004 f := aFontDescription onDevice:device. |
|
1005 "/ f := Font family:family |
|
1006 "/ face:face |
|
1007 "/ style:style |
|
1008 "/ size:size. |
|
1009 |
|
1010 f notNil ifTrue:[ |
|
1011 self withSelectionHiddenDo:[ |
|
1012 self selectionDo:[:aView | |
|
1013 aView font:f. |
|
1014 self elementChangedSize:aView. |
|
1015 ] |
|
1016 ]. |
|
1017 self changed:#any. |
|
1018 ] |
|
1019 |
|
1020 "Modified: 5.9.1995 / 12:13:27 / claus" |
|
1021 "Created: 10.4.1997 / 09:56:16 / cg" |
|
1022 ! |
|
1023 |
998 changeFontFamily:family face:face style:style size:size |
1024 changeFontFamily:family face:face style:style size:size |
999 |f| |
1025 |f| |
1000 |
1026 |
1001 f := Font family:family |
1027 f := Font family:family |
1002 face:face |
1028 face:face |