[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to gnats/contrib/tkgnats/tkpr_library.tcl
From: |
Michael Richardson |
Subject: |
Changes to gnats/contrib/tkgnats/tkpr_library.tcl |
Date: |
Wed, 18 Dec 2002 23:19:38 -0500 |
Index: gnats/contrib/tkgnats/tkpr_library.tcl
diff -c gnats/contrib/tkgnats/tkpr_library.tcl:1.4
gnats/contrib/tkgnats/tkpr_library.tcl:1.5
*** gnats/contrib/tkgnats/tkpr_library.tcl:1.4 Mon Dec 3 12:45:50 2001
--- gnats/contrib/tkgnats/tkpr_library.tcl Wed Dec 18 23:19:38 2002
***************
*** 1210,1219 ****
frame $frname.labels
frame $frname.values
frame $frname.bars
! pack $frname.labels -side left -anchor w -padx 2 -pady 0 -fill y -expand
1
! pack $frname.values -side left -anchor w -padx 0 -pady 0 -fill y -expand
1
! pack $frname.bars -side left -anchor w -padx 0 -pady 0 -fill y -expand
1
! pack $frname -anchor w -pady 0
}
# text field related procs
--- 1210,1218 ----
frame $frname.labels
frame $frname.values
frame $frname.bars
! grid columnconfigure $frname 0 -weight 0
! grid columnconfigure $frname 1 -weight 0
! grid columnconfigure $frname 2 -weight 1
}
# text field related procs
***************
*** 1450,1461 ****
}
}
! proc bagged_radiobar {fr n labeltext blist offLabel dstbag {valwid 0}} {
! radiobar $fr $n $labeltext $blist $offLabel > $dstbag $valwid
}
# make one in a list a radiobutton bar
! proc radiobar {fr n labeltext blist offLabel {varprefix ""} {aname ""}
{valwid 0}} {
global TkGnats flds tcl_platform
if {$tcl_platform(platform) == "unix"} {
set buttonbd 2
--- 1449,1460 ----
}
}
! proc bagged_radiobar {fr n labeltext blist offLabel dstbag {valwid 0} {rownum
0}} {
! radiobar $fr $n $labeltext $blist $offLabel > $dstbag $valwid $rownum
}
# make one in a list a radiobutton bar
! proc radiobar {fr n labeltext blist offLabel {varprefix ""} {aname ""}
{valwid 0} {rownum 0}} {
global TkGnats flds tcl_platform
if {$tcl_platform(platform) == "unix"} {
set buttonbd 2
***************
*** 1469,1486 ****
}
global $vname
set alias [get_field_alias $labeltext]
set $vname ""
! button $fr.labels.$n -text "${alias}: " -command "helpMsg $alias" \
-relief flat -padx 0 -pady 0 -borderwidth 0 -width 14 -anchor w \
-highlightthickness 0 -borderwidth 0
! pack $fr.labels.$n -side top -anchor w -padx 0 -pady 0 -fill none
-expand 1 -ipady 0
if {$valwid != 0} {
! label $fr.values.$n -text "[string trim $flds($varprefix$labeltext) "
\n\t"]" \
-relief groove -anchor w -width $valwid -background
$TkGnats(ReadOnlyBackground) \
-padx 2 -pady 0 -highlightthickness 0 -borderwidth 2
! pack $fr.values.$n -side top -anchor w -padx 0 -pady 0 -fill none
-expand 1 -ipady 0
}
if {[check_suppressed_field $labeltext] == 2} {
--- 1468,1493 ----
}
global $vname
+ # alternate the colours so one can see the seperations
+ if {($rownum & 1) == 1} {
+ set panelbg "lightblue"
+ } {
+ set panelbg "grey"
+ }
+
set alias [get_field_alias $labeltext]
set $vname ""
! button $fr.labels_$n -text "${alias}: " -command "helpMsg $alias" \
-relief flat -padx 0 -pady 0 -borderwidth 0 -width 14 -anchor w \
-highlightthickness 0 -borderwidth 0
!
! grid $fr.labels_$n -in $fr -column 0 -row $rownum -sticky w -padx 0
-pady 0 -ipady 0
if {$valwid != 0} {
! label $fr.values_$n -text "[string trim $flds($varprefix$labeltext) "
\n\t"]" \
-relief groove -anchor w -width $valwid -background
$TkGnats(ReadOnlyBackground) \
-padx 2 -pady 0 -highlightthickness 0 -borderwidth 2
! grid $fr.values_$n -in $fr -column 1 -row $rownum -sticky {w n s}
-padx 0 -pady 0 -ipady 0
}
if {[check_suppressed_field $labeltext] == 2} {
***************
*** 1488,1516 ****
} {
set state normal
}
! frame $fr.bars.$n
foreach b $blist {
! radiobutton $fr.bars.$n._$b \
-text $b -relief flat -variable $vname -pady 0 \
-highlightthickness 0 -borderwidth $buttonbd -state $state
# Buttons that say None should set variable to the empty
# string...
if {"$b" == "$offLabel"} {
! $fr.bars.$n._$b configure -value ""
} {
! $fr.bars.$n._$b configure -value $b
}
! pack $fr.bars.$n._$b -side left -anchor w -padx 8 -pady 0 -fill none
-expand 0 -ipady 0
}
! pack $fr.bars.$n -side top -anchor w -expand true -fill x -padx 0 -pady 0
}
proc radiobar_set {fr n b} {
! $fr.bars.$n._$b invoke
}
# make one in a list a radiobutton bar
! proc checkbar {fr n labeltext blist offLabel} {
global tcl_platform
if {$tcl_platform(platform) == "unix"} {
set buttonbd 2
--- 1495,1535 ----
} {
set state normal
}
! frame $fr.bars_$n -bg $panelbg
! set bcount 0
! set bframe 0
! frame $fr.bars_$n.$bframe -bg $panelbg
! pack $fr.bars_$n.$bframe -side top -anchor nw -fill x
!
foreach b $blist {
! radiobutton $fr.bars_$n._$b -bg $panelbg \
-text $b -relief flat -variable $vname -pady 0 \
-highlightthickness 0 -borderwidth $buttonbd -state $state
# Buttons that say None should set variable to the empty
# string...
if {"$b" == "$offLabel"} {
! $fr.bars_$n._$b configure -value ""
} {
! $fr.bars_$n._$b configure -value $b
}
! pack $fr.bars_$n._$b -in $fr.bars_$n.$bframe -side left -anchor w
-padx 8 -pady 0 -fill none -expand 0 -ipady 0
! incr bcount
! if {$bcount > 7} {
! set bcount 0
! incr bframe
! frame $fr.bars_$n.$bframe -bg $panelbg
! pack $fr.bars_$n.$bframe -side top -anchor nw -fill x
! }
}
! grid $fr.bars_$n -in $fr -column 3 -row $rownum -sticky {w e} -padx 0
-pady 0
}
proc radiobar_set {fr n b} {
! $fr.bars_$n._$b invoke
}
# make one in a list a radiobutton bar
! proc checkbar {fr n labeltext blist offLabel {rownum 0}} {
global tcl_platform
if {$tcl_platform(platform) == "unix"} {
set buttonbd 2
***************
*** 1519,1546 ****
}
upvar #0 gbag ${labeltext}
set alias [get_field_alias $labeltext]
! button $fr.labels.$n -text "${alias}: " -command "helpMsg $alias" \
-relief flat -width 14 -padx 0 -pady 0 -borderwidth 0 -anchor w
-highlightthickness 0
! pack $fr.labels.$n -side top -anchor w -padx 0 -pady 0 -fill none
-expand 1 -ipady 0
! frame $fr.bars.$n
foreach b $blist {
! checkbutton $fr.bars.$n._$b \
-offvalue "" \
-text $b -relief flat -highlightthickness 0 -borderwidth
$buttonbd \
-variable [format "%s(%s)" ${labeltext} ${b}] -pady 0
# Buttons that say None should set variable to the empty string...
if {"$b" == "$offLabel"} {
! $fr.bars.$n._$b configure -onvalue "_ALL_" -offvalue ""
} {
! $fr.bars.$n._$b configure -onvalue $b -offvalue ""
}
set gbag($b) ""
! pack $fr.bars.$n._$b -side left -anchor w -padx 8 -pady 0 -fill none
-expand 0 -ipady 0
}
# set active [lindex $blist 0]
! # $fr.bars.$n.$active select
! pack $fr.bars.$n -side top -anchor w -expand true -fill x -padx 0 -pady 0
}
#
--- 1538,1589 ----
}
upvar #0 gbag ${labeltext}
+ # alternate the colours so one can see the seperations
+ if {($rownum & 1) == 1} {
+ set panelbg "lightblue"
+ } {
+ set panelbg "grey"
+ }
+
set alias [get_field_alias $labeltext]
! button $fr.labels_$n -text "${alias}: " -command "helpMsg $alias" \
-relief flat -width 14 -padx 0 -pady 0 -borderwidth 0 -anchor w
-highlightthickness 0
!
! grid $fr.labels_$n -in $fr -column 0 -row $rownum -sticky w -padx 0
-pady 0 -ipady 0
!
! frame $fr.bars_$n -bg $panelbg
! set bcount 0
! set bframe 0
! frame $fr.bars_$n.$bframe -bg $panelbg
! pack $fr.bars_$n.$bframe -side top -anchor nw -fill x
!
foreach b $blist {
! checkbutton $fr.bars_$n._$b -bg $panelbg \
-offvalue "" \
-text $b -relief flat -highlightthickness 0 -borderwidth
$buttonbd \
-variable [format "%s(%s)" ${labeltext} ${b}] -pady 0
+
# Buttons that say None should set variable to the empty string...
if {"$b" == "$offLabel"} {
! $fr.bars_$n._$b configure -onvalue "_ALL_" -offvalue ""
} {
! $fr.bars_$n._$b configure -onvalue $b -offvalue ""
}
set gbag($b) ""
! pack $fr.bars_$n._$b -in $fr.bars_$n.$bframe -side left -anchor w
-padx 8 -pady 0 -fill none -expand 0 -ipady 0
!
! incr bcount
! if {$bcount > 7} {
! set bcount 0
! incr bframe
! frame $fr.bars_$n.$bframe -bg $panelbg
! pack $fr.bars_$n.$bframe -side top -anchor nw -fill x
! }
}
# set active [lindex $blist 0]
! # $fr.bars_$n.$active select
!
! grid $fr.bars_$n -in $fr -column 3 -row $rownum -sticky {w e} -padx 0
-pady 0
}
#
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Changes to gnats/contrib/tkgnats/tkpr_library.tcl,
Michael Richardson <=