xqalbums.tcl

[code value="
        set qtime_library LIBRARY_DIR
        lappend auto_path $qtime_library
        Qalbums_Init
"]
[prologue]
[menubar]
[code value={
	Qalbums_MenuSetup
}]
[options autoalign]
[frame border=3 relief=groove]
	[entry attr=Artist label="Artist/Title" width=10 ]
	[entry attr=Title label="/" width=10]
	[break]
	[entry attr=Orchestra label="Orchestra/Director" width=10]
	[entry attr=Director label="/" width=10]
	[break]
	[entry attr=RecordLabel label="Label/Yr/Producer" width=10]
	[entry attr=YearReleased label="/" width=4 noexpand]
	[entry attr=ProducedBy label="/" width=10]
	[break]
	[radiobutton attr=Category width=10 height=4
	value="ClassicRock" value="Country" value="YoungCountry"
	value="Jazz" value="Classical" value="Bluegrass"]
	[break]
	[radiobutton attr=Rating width=10 height=1
	value="Awesome" value="Good" value="Fair" value="Poor" value="Noise"]
	[break]
	[entry attr=AlbumCover label="Cover" width=10]
[end frame]
[frame attr=Musicians border=3 relief=groove]
	[entry attr=Musicians.Name width=10]
	[break]
	[entry attr=Musicians.Instrument  width=10]
[end frame]
[break]
[break]
[frame attr=Tracks border=3 relief=groove]
	[entry attr=Tracks.Name label="Name/Track#/Duration" width=10]
	[entry attr=Tracks.Number label="/" width=4 noexpand]
	[entry attr=Tracks.Duration label="/" width=10 noexpand]
	[break]
	[entry attr=Tracks.WrittenBy label="Written by"]
	[break]
	[notebook padx=5m]
	[tab label="Lyrics" underline=0]
	[options noautoalign]
	[text attr=Tracks.Lyrics width=80 height=4]
	[code value={
		pack forget [=Tracks.Lyrics cget -w].f_0.l
		pack [=Tracks.Lyrics cget -w].f_0 -side top -anchor nw
	}]
	[end tab]
	[tab label="Notes" underline=1]
	[text attr=Tracks.Comments width=80 height=4]
	[code value={
		pack forget [=Tracks.Comments cget -w].f_0.l
		pack [=Tracks.Comments cget -w].f_0 -side top -anchor nw
	}]
	[end tab]
	[end notebook]
[end frame]
[break]
[frame border=3 relief=groove]
	[text attr=Comments label="Album comments" width=80 height=4]
	[code value="pack [=Comments cget -w].f_0 -side top -anchor nw"]
[end frame]
[epilogue]