# Beispiele für Basiswidget aus den BWidgets

#!/bin/sh
#
# Beispiele für Basiswidget aus den BWidgets
#
# Carsten Zerbst, [email protected]
# \
exec /usr/local/bin/wish8.3 $0 $@

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

set notebook [NoteBook .nb]
pack $notebook -expand true -fill both

# 1. Notebook mit Titleframe
set frame [$notebook insert end tf -text "TitleFrame"]
TitleFrame $frame.titel -text "Rahmen mit Titel"
pack $frame.titel -expand true -fill both

set f [$frame.titel getframe]
label $f.label -text "ein Eintrag"
pack $f.label

# 2. Notebook mit PanedWindow,
# ScrolledWindow und ScrolledFrame
set frame [$notebook insert end sp -text "PanedWindow" ]
set panedWindow [PanedWindow $frame.pw -side top ]
pack $frame.pw -expand true -fill both

set pane [$panedWindow add -weight 1]
set sw [ScrolledWindow $pane.sw]
set text [text $sw.text -wrap none -width 50 -heigh 50 -bg white]
$text insert 0.0 "linker Text in ScrolledWindow"
$sw setwidget $text
pack $sw -fill both -expand yes

set pane [$panedWindow add -weight 9]
set sw [ScrolledWindow $pane.sw]

pack $sw -fill both -expand yes
set sf [ScrollableFrame $sw.sf]
$sw setwidget $sf

set f [$sf getframe]
label $f.label -text "Ein Label im ScrollableFrame"
pack $f.label

# foreach t {a b c d e f g} {

# $notebook insert end $t -text "Tab $t"
# }

$notebook raise [$notebook page 0]

wm title . "Anordnung"
wm geometry . 200x200