#
# Bindings for Resizeth
#


set Bindings(Resize) {
    {Shrink_X 		{th_resize_widget %W 0 -1 %ICX %IPX}}
    {Expand_X 		{th_resize_widget %W 0 +1 %ICX %IPX}}
    {Shrink_Y 		{th_resize_widget %W 1 -1 %ICY %IPY}}
    {Expand_Y 		{th_resize_widget %W 1 +1 %ICY %IPY}}
}


# th_bind.tcl needs this to set up the Function menu and Key label.
set Local_Bindings {Shrink_X Expand_X Shrink_Y Expand_Y}


set TH_Bindings_Help "" ; append TH_Bindings_Help {
Rexize Functions

One resizes a widget by enlarging or shrinking it by several rows or columns at
a time. To shrink the widget horizontally, one uses Control-[, to expand it one
uses Control-} "\{" {. To shrink the widget vertically, one uses Control-], to expand
it, one uses Control-} "\}" {. One can think of the functionality by what each key
does to the lower right corner:

           Control-
              [
Resize:     ] + } "\}" {
              } "\{" {
}
