Gnocl -the Tcl/Gtk Bindings

 Description     ## project chooser dialog # @param    wid # @returns  none # @notes  Uses global array ::app to store restrieved values proc conze_project_chooser_dialog { wid } {             set dir $::app(dirs,projects)     set vbox [gnocl::vBox -data 0]     set lst [gnocl::list -columns 2 -types "string string" -headersVisible 0 ]     $lst columnConfigure 1 -visible 0     $vbox add $lst -fill {1 1} -expand 1          # create list of available projects     foreach d [lsort [glob -type d -directory $dir *]] {         $lst add [list [list [file tail $d] $d]]     }          # to right align completely, set expand and fill to 0     set hbox [gnocl::hBox]     set b1 [gnocl::button -text Select \             -data "$lst $wid" \             -onClicked {                 set ::app(project) [lindex [[lindex %d 0] getRow \                             [[lindex %d 0] getSelection]] 1]                 %t delete                 $::app(statusBar) push "Project [file tail $

The dialog widget has its own internal functionaluty to create and position buttons at the bottom right corner of the window container. When creating these for ourselves it must be born in mind that default settings for fill and expand are both 0.5. Failing to set these will always place the child objects in the centre, regardless of alignment. For most cases these defaults are acceptable but, to create that dialog-button arrangement, use the following snippet as a model!   # to right align completely, set expand and fill to 0 set hbox [gnocl::hBox] set b1 [gnocl::button -text Select \                -data $lst                 -onClicked { puts DO-SOMETHING-WITH-%d} ] set b2 [gnocl::button -text Cancel -onClicked { puts DONE! } ] $vbox add $hbox -expand 0 -fill 0 -align right $hbox add $b1 $hbox add $b2