#!/bin/sh
#
# Beispiele für Gliederungen mit den BWidgets
#
# Carsten Zerbst,
[email protected]
# \
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
