xqclients.tcl


[code value={
    set qclients_library LIBRARY_DIR
    set qclients_version 1.3
    lappend auto_path $qclients_library
}]
[prologue]
[menubar]
[code value={Qclients:MenuSetup}]
[options autoalign]
[frame attr=Name border=3 relief=groove]
	[radiobutton attr=Name.Title value="Mr" value="Ms" value="Mrs" value="Prof" value="Dr" noexpand]
	[break]
	[entry attr=Name.First width=15 noexpand]
	[entry attr=Name.Middle width=10 noexpand]
	[entry attr=Name.Last width=10]
	[break]
[end frame]
[break]
[frame attr=Address border=3 relief=groove]
	[entry attr=Address.Street width=10]
	[break]
	[entry attr=Address.City width=10]
	[entry attr=Address.State width=2 noexpand]
	[entry attr=Address.Zip label="Zip code" width=10 noexpand]
	[break]
[end frame]
[break]
[frame attr=Phone border=3 relief=groove]
	[entry attr=Phone.Desc label="Description" width=10]
	[entry attr=Phone.AreaCode label="Area code" width=5 noexpand]
	[entry attr=Phone.Number width=8 noexpand]
[end frame]
[break]
[frame attr=Work border=3 relief=groove]
	[entry attr=Work.JobTitle width=10]
	[break]
	[entry attr=Work.Name width=10]
	[break]
	[frame attr=Work.Address]
		[entry attr=Work.Address.Street width=10]
		[break]
		[entry attr=Work.Address.City width=10]
		[entry attr=Work.Address.State width=2 noexpand]
		[entry attr=Work.Address.Zip label="Zip code" width=10 noexpand]
		[break]
	[end frame]
	[break]
[end frame]
[break]
[frame border=3 relief=groove]
[entry attr=SSN label="SSN#" width=11 noexpand]
[break]
[entry attr=CreditCard label="Credit card" width=18 noexpand]
[entry attr=DateOfExp label="Date of exp." width=10 noexpand]
[break]
[radiobutton attr=Discount value="10%" value="15%" value="20%" value="25%" value="50%" noexpand]
[break]
[radiobutton attr=ReferredBy value="Word of mouth" value="Yellow pages" value="Promotion" value="Other" noexpand]
[break]
[text attr=Comments width=40 height=4]
[end frame]
[epilogue]