|
A font chooser dialog from Petasis George:
Ok, the code is not perfect, but it works :-)
You can use it as:
global GUI_Text
## You can use the GUI_Text array to localise all used messages.
## Sorry for not using msgcat, but I extract it directly from a complete
## app :-)
array set GUI_Text {Font: Font: FontStyle: FontStyle: Size: Size:
Ok Ok Cancel Cancel Effects Effects Strikeout Strikeout
Underline Underline Sample Sample TestString... {Place anything here :-)}}
1) If you want to change the font of a text widget:
"::FontDialog::FontSelect text_widget dialog_window"
2) If you want to change a named font (one created with the font command):
"::FontDialog::FontDialog named_font dialog_window"
|