#!/bin/sh
#
# Beispiele für Gliederungen mit den BWidgets
#
# Carsten Zerbst, carsten.zerbst@groy-groy.de
# \
exec /usr/local/bin/wish8.3 $0 $@

lappend auto_path [file join [pwd] BWidget-1.4.1]
puts $auto_path
puts [package names]
package require BWidget 1.4.1

TitleFrame .pfeile -text "Knopf mit Pfeil"
grid .pfeile -row 0 -column 0 -sticky nesw -pady 5 -padx 5

set f [.pfeile getframe]
ArrowButton $f.nord -dir top 
ArrowButton $f.ost -dir right 
ArrowButton $f.süd -dir bottom 
ArrowButton $f.west -dir left 

grid x $f.nord x -padx 5 -pady 5
grid $f.west x $f.ost -padx 5 -pady 5
grid x $f.süd  x -padx 5 -pady 5

TitleFrame .eingaben -text "Eingaben"
grid .eingaben -row 0 -column 1 -sticky nesw -pady 5 -padx 5
set f [.eingaben getframe]

LabelEntry $f.le -label "Eingabe mit Label" -entrybg white 
grid $f.le -sticky nesw -pady 5 -padx 5

ComboBox $f.cb -entrybg white -text ComboBox
grid $f.cb -sticky nesw -pady 5 -padx 5

SpinBox $f.sb -entrybg white -values {SpinBox}
grid $f.sb -sticky nesw -pady 5 -padx 5

grid columnconfigure . 0 -weight 1
grid columnconfigure . 1 -weight 1