Tk-Components

Artifact Content
Login

Artifact 59046d82bec57b2ba8e7fe2f7e4306213781d7b4:


package require mactoolbar

#global %Y
#set %Y {expr [winfo rooty %W] - 54}
wm withdraw .
toplevel .f
wm title .f "Demo"

mactoolbar::createbutton  hello "Hello" "Say Hello" [file join [file dirname [info script]] logo100.gif] {puts "hello"}
mactoolbar::createbutton  world "Hello Again" "Say Hello Again" [file join [file dirname [info script]] pwrdLogo100.gif] {tk_getSaveFile -parent .f}

mactoolbar::create .f

tk::unsupported::MacWindowStyle style .f document {unifiedTitleAndToolbar standardDocument}


label .f.l -bg gray -text "Toolbar test" 
pack .f.l -fill both -expand yes