Gnocl -the Tcl/Gtk Bindings

  Sometimes you just want to drop a small toolbar or widget holder on screen without all the decorations and controls. This code minimal minimal object is about as simple as it gets.  proc gnocl::sticky { {orientation "horizontal"} } {     if { [lsearch "vertical horizontal" $orientation] == -1 } {        return -code error \       "Error! \"$orientation\" should be one of vertical or horizontal (default."       }        set box [gnocl::box -orientation $orientation \-borderWidth 0 -padding 0]     set wid [gnocl::window -decorated 0 -child $box -height 25 -width 25]     if { $orientation == "vertical"} { set tmp height} else {set tmp width}     set eBox [gnocl::eventBox -borderWidth 0 -${tmp}Request 5 -background black]     $eBox configure \         -onButtonPress { %w configure -data "%x %y" -background red} \         -onButtonRelease { %w configure -data "%x %y" -background black } \         -onMotion { %t_ configu

    Just a few updates:     gnocl::fixed        o new option for move command, -align {x y} ; pair of floats (0-1.0) for positioning     gnocl::pixBuf        o new command getOrientation, returns either portrait or landscape     gnocl::pointer        o new command, get returns pointer screen x y coordinates     gnocl::window        o pointer command now has -screen option to return screen coordinates     gnocl::toolBar        o -iconSize and -style configure and cget fixed.     gnocl::text        o -shadow option now works properly (applied to scrolled window container).        o search now has new option -wholeword <boolean> ; select between wholewords (1) and substring (0, default)     gnocl::callback         o new subcommands, prepend and append. Extend widget signal callback scripts.