gnats-diffs
[Top][All Lists]
Advanced

[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
  }
  
  #



reply via email to

[Prev in Thread] Current Thread [Next in Thread]