#!/bin/sh
# \
        exec itkwish "$0" ${1+"$@"}

option add *background #d9d9d9

. configure -background #d9d9d9

frame .fr  
label .fr.lab \
		-font "-adobe-helvetica-medium-r-normal--18-180-75-75-p-98-iso8859-1" \
		-text "Paragraph Options..." -foreground steelblue
pack .fr.lab \
		-anchor w -padx 10 -pady 5
pack .fr \
		-side top \
		-fill both \
		-expand no \
		-anchor nw 

tabnotebook .tn \
	-equaltabs false \
	-raiseselect false \
	-tabpos s \
	-angle 15\
	-backdrop mistyrose2 \
	-tabbackground mistyrose3 \
	-tabforeground mistyrose4 \
	-foreground black \
	-width 400 -height 200 

pack .tn -anchor nw -fill both -expand yes -side left -padx 10 -pady 10
 
# Multi-line labels work...
#.tn add -label "Basic\nPara"
.tn add -label "Basic"
.tn add -label "Default Font"
.tn add -label "Pagination"
.tn add -label "Numbering"
.tn add -label "Advanced"
#.tn add -bitmap "@/usr/openwin/include/X11/bitmaps/FlipHoriz"

set basCS [.tn childsite 0]
set fntCS [.tn childsite "Default Font"]
set pagCS [.tn childsite 2]
set numCS [.tn childsite 3]
set advCS [.tn childsite end]

#
# Basic Page
#
frame $basCS.frm

optionmenu $basCS.frm.align \
		-labelpos w \
		-labeltext "Alignment:" \
		-items {"As Is" Left Center Right Justified}
pack $basCS.frm.align -side left -anchor nw -padx 10 -pady 10

pack $basCS.frm -fill both -expand yes -anchor nw

#
#  Font Page
#
frame $fntCS.frm

optionmenu $fntCS.frm.fam \
		-labelpos w \
		-labeltext "Family:" \
		-items {"As is" Courier Times Helvetica Symbol "Avant Garde" Bookman}
pack $fntCS.frm.fam -anchor e -padx 10 -pady 10

optionmenu $fntCS.frm.siz \
		-labelpos w \
		-labeltext "Size:" \
		-items {6 7 8 10 12 14 16 18 24 32 48}
pack $fntCS.frm.siz -anchor e -padx 10 -pady 10

optionmenu $fntCS.frm.ang \
		-labelpos w \
		-labeltext "Angle:" \
		-items {"As Is" Regular Italic}
pack $fntCS.frm.ang -anchor e -padx 10 -pady 10

optionmenu $fntCS.frm.wgt \
		-labelpos w \
		-labeltext "Weight:" \
		-items {"As Is" Regular Bold}
pack $fntCS.frm.wgt -anchor e -padx 10 -pady 10 
pack $fntCS.frm -fill y -expand yes -anchor nw

#
#  Pagination Page
#
frame $pagCS.frm

optionmenu $pagCS.frm.start \
		-labelpos n \
		-labeltext "Start:" \
		-items {"As is" Anywhere "Top of Column" "Top of Page" "Top of Left Page" "Top of Right Page"}
pack $pagCS.frm.start -anchor e -padx 10 -pady 10

pack $pagCS.frm -fill y -expand yes -anchor nw

#
#  Numbering Page
#
frame $numCS.frm

entry $numCS.frm.fmt -relief sunken
pack $numCS.frm.fmt -anchor w -padx 10 -pady 10

scrolledlistbox $numCS.frm.blk \
		-labelpos n \
		-labeltext "Building Blocks:" \
		-items {"\\b" "\\t" "<n>" "<n+>" "<n=1>" "<a>" "<a+>" "a=1" "<A>" "<A+>"}

pack $numCS.frm.blk -anchor w -padx 10 -pady 10

pack $numCS.frm -fill y -expand yes -anchor nw

#
#  Advanced Page
#
frame $advCS.frm

entryfield $advCS.frm.max -relief sunken \
		-labelpos w \
		-labeltext "Max # Adjacent:"
pack $advCS.frm.max -anchor e -padx 10 -pady 10

entryfield $advCS.frm.wrd -relief sunken \
		-labelpos w \
		-labeltext "Shortest Word:"
pack $advCS.frm.wrd -anchor e -padx 10 -pady 10

entryfield $advCS.frm.pfx -relief sunken \
		-labelpos w \
		-labeltext "Shortest Prefix:"
pack $advCS.frm.pfx -anchor e -padx 10 -pady 10

entryfield $advCS.frm.sfx -relief sunken \
		-labelpos w \
		-labeltext "Shortest Suffix:"
pack $advCS.frm.sfx -anchor e -padx 10 -pady 10

pack $advCS.frm -fill y -expand yes -anchor nw


.tn select 0

#update idletasks
