Displaying 1 result from an estimated 1 matches for "ourfont".
Did you mean:
hdrfont
2007 May 22
0
tcl font size issue on centso 4.4 x86_64
...tions 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
~
~