menu.tcl

set INSTALL_DIR /opt/SUNWutMenu
set IMAGE_DIR $INSTALL_DIR/images

#set ACTIVE_COLOUR #5482A0
set ACTIVE_COLOUR #000000
set BACKGROUND_COLOUR #FFFFFF

set logon_icon [image create photo -format GIF -file $IMAGE_DIR/logon.gif]
set reset_icon [image create photo -format GIF -file $IMAGE_DIR/reset.gif]
set win_icon [image create photo -format GIF -file $IMAGE_DIR/windows.gif]
set sys_pref [image create photo -format GIF -file $IMAGE_DIR/sys_pref.gif]
set high_res [image create photo -format GIF -file $IMAGE_DIR/res_high.gif]
set med_res [image create photo -format GIF -file $IMAGE_DIR/res_med.gif]
set low_res [image create photo -format GIF -file $IMAGE_DIR/res_low.gif]

set BUTTON_WIDTH 500

font create MacFont -family Helvetica -size 18 -weight bold -slant roman

set BORDER_WIDTH 0

set top_banner [image create photo -format GIF -file $IMAGE_DIR/Staff_Client.gif]
label .top_banner -image $top_banner

wm overrideredirect . 1
wm resizable . 0 0

button .kiosk -image $win_icon -text “Login” -command { exec /opt/SUNWutMenu/windows2.sh }

button .prefs -image $sys_pref -text “Login” -command { exec /opt/SUNWutMenu/prefs.sh }

pack .top_banner .kiosk .prefs

update
set x [expr {([winfo screenwidth .]-[winfo width .])/2}]
set y [expr {([winfo screenheight .]-[winfo height .])/2}]
wm geometry . +$x+$y
wm deiconify .

Leave a Reply

Your email address will not be published. Required fields are marked *