I have a simply script that I cannot get a font size bigger than 40.
Changing the font_size value to 80 does not make
the font any bigger just the background.
How do I get a bigger font than 40?
I run this script as "wish -f file.tcl"
What am I doing wrong to not get bigger fonts?
THanks,
Jerry
---------------------------------------------
set font_size 40
set show_window_title 0
set disable_window_decorations 1
set screen_width [winfo screenwidth . ]
set screen_height [winfo screenheight . ]
set window_x 0
set window_y 0
set my_message "This is my message..."
wm geometry . ${screen_width}x${font_size}+${window_x}+${window_y}
wm overrideredirect . $disable_window_decorations
font create ourFont -family helvetica -size $font_size
set c [canvas .c -height $font_size -width $screen_width -background
black -highlightthickness 0 ]
pack $c
$c create text 10 4 -text $my_message -font ourFont -anchor nw -fill red
~
~
