xqrunlog.tcl

# QddbScript for Qddb Runner's Log Database
# Copyright (c) 1997-2001 Herrin Software Development, Inc.
# All rights reserved.

[code value={
    set qrunlog_library LIBRARY_DIR
    set qrunlog_version 1.3
    lappend auto_path $qrunlog_library
}]
[prologue]
[menubar]
[code value={Qrunlog:MenuSetup}]
[options autoalign]
[frame border=4 relief=raised]
[entry attr=DateOfRun width=16]
[entry attr=TimeOfRun width=16]
[code value="[=TimeOfRun cget -w].f_0.l configure -width 10"]
[break]
[entry attr=Course width=16]
[entry attr=Distance width=16]
[code value="[=Distance cget -w].f_0.l configure -width 10"]
[break]
[entry attr=RaceTime label="Race time" width=16]
[entry attr=Place width=16]
[code value="[=Place cget -w].f_0.l configure -width 10"]
[break]
[options noautoalign]
[text attr=WeatherConditions label="Weather conditions" width=60 height=4]
[code value="pack [=WeatherConditions cget -w].f_0 -side top -anchor nw"]
[break]
[text attr=Comments width=60 height=8]
[code value="pack [=Comments cget -w].f_0 -side top -anchor nw"]
[end frame]
[epilogue]