proc ptk_setup { dir } {
	namespace eval icons {}
	set icons::lib [file join $dir icons]
	source [file join $dir icons.tcl]
	source [file join $dir combobox.tcl]
	source [file join $dir ezfont.tcl]
	source [file join $dir ptk.tcl]
	source [file join $dir ptk-nodes.tcl]
	source [file join $dir ptk-leaves.tcl]
	source [file join $dir ptk-menus.tcl]
	source [file join $dir ptk-help.tcl]
	#puts "#pkg: ptk_setup \"$dir\" ok"
}

#package ifneeded pg 0.0 [list source [file join $dir pgui.tcl]]
package ifneeded combobox 1.06 {source [file join $dir combobox.tcl]}
package ifneeded Ptk 0.1 "ptk_setup $dir"

