xqbugs.tcl

# QddbScript for Qddb Bugs Database System
# Copyright (c) 1997-2001 Herrin Software Development, Inc.
# All rights reserved.

[code value="
	set qbugs_library LIBRARY_DIR
	lappend auto_path $qbugs_library
	Qbugs:Init
"]
[prologue]
[menubar]
[code value={Qbugs:MenuSetup}]
[options autoalign]
[frame border=3 relief=groove]
[entry attr=TrackingCode label="Bug number" width=8 noexpand]
[radiobutton attr=Status
	value="Open" value="Wkg" value="Def" value="Can" value="Closed"]
[break]
[entry attr=Abstract width=10]
[break]
[text attr=Description width=50 height=8]
[break]
[radiobutton attr=Severity width=10
	value="1" value="2" value="3" value="4"]
[radiobutton attr=Category label="Type"
	value="Bug" value="Enhancement" value="Docs"]
[break]
[entry attr=RelatedIssues width=10]
[end frame]
[frame attr=Originator border=3 relief=groove]
	[entry attr=Originator.Submittedby label="Submitted by" width=10]
	[entry attr=Originator.Company label="Company" width=10]
	[code value="[=Originator.Company cget -w].f_0.l configure -width 10"]
	[break]
	[entry attr=Originator.DateSubmitted label="Date" width=10]
	[entry attr=Originator.TimeSubmitted label="Time" width=10]
	[code value="[=Originator.TimeSubmitted cget -w].f_0.l configure -width 10"]
	[break]
	[entry attr=Originator.Email label="Email" width=10]
[end frame]
[break]
[notebook]
[tab label=Software underline=6]
[frame attr=Software border=3 relief=groove]
	[entry attr=Software.OperatingSystem label="Platform" width=10]
	[entry attr=Software.Release label="Version" width=10]
	[code value="[=Software.Release cget -w].f_0.l configure -width 10"]
	[break]
	[text attr=Software.Configuration label="Configuration" width=10 
		height=6]
[end frame]
[end tab]
[tab label=Hardware underline=4]
[frame attr=Hardware border=3 relief=groove]
	[entry attr=Hardware.Processor label="Processor" width=10]
	[entry attr=Hardware.Memory label="Memory" width=10]
	[code value="[=Hardware.Memory cget -w].f_0.l configure -width 10"]
	[break]
	[entry attr=Hardware.GraphicsCard label="Graphics" width=10]
	[entry attr=Hardware.Monitor label="Monitor" width=10]
	[code value="[=Hardware.Monitor cget -w].f_0.l configure -width 10"]
	[break]
	[text attr=Hardware.Notes height=4]
[end frame]
[end tab]
[tab label=Miscellaneous underline=1]
[frame border=3 relief=groove]
	[entry attr=CC width=10]
	[break]
	[text attr=Comments height=8]
[end frame]
[end tab]
[end notebook]
[epilogue]