openmedialibrary_platform_w.../tcl/tix8.4.3/demos/samples/EditGrid.tcl

282 lines
6.6 KiB
Tcl
Raw Normal View History

2019-01-20 10:35:31 +00:00
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# $Id: EditGrid.tcl,v 1.3 2001/12/09 05:31:07 idiscovery Exp $
#
# Tix Demostration Program
#
# This sample program is structured in such a way so that it can be
# executed from the Tix demo program "widget": it must have a
# procedure called "RunSample". It should also have the "if" statment
# at the end of this file so that it can be run as a standalone
# program using tixwish.
# Demonstrates the use of editable entries in a Grid widget.
#
proc RunSample {w} {
global editgrid
wm title $w "Doe Inc. Performance"
wm geometry $w 640x300
label $w.lab -justify left -text \
"The left column is calculated automatically. To calculate the right column,
press the \"Calculate\" button"
pack $w.lab -side top -anchor c -padx 3 -pady 3
# Create the buttons
#
set f [frame $w.f -relief flat]
pack $f -side right -fill y
set add [button $f.add -text "Add Row" -width 9 \
-command "EditGrid_addRow"]
set edit [button $f.edit -text "Edit" -width 9 \
-command "EditGrid_edit"]
set cal [button $f.cal -text "Calculate" -width 9 \
-command "EditGrid_calculate"]
set close [button $f.close -text "Close" -width 9 \
-command "destroy $w"]
pack $add -side top -padx 10
pack $edit -side top -padx 10
pack $cal -side top -padx 10 -pady 2
pack $close -side bottom -padx 10
# Create the grid and set options to make it editable.
#
tixScrolledGrid $w.g -bd 0
pack $w.g -expand yes -fill both -padx 3 -pady 3
set grid [$w.g subwidget grid]
$grid config \
-formatcmd "EditGrid_format $grid" \
-editnotifycmd "EditGrid_editNotify" \
-editdonecmd "EditGrid_editDone" \
-selectunit cell \
-selectmode single
# Insert some initial data
#
$grid set 0 1 -text "City #1"
$grid set 0 2 -text "City #2"
$grid set 0 3 -text "City #3"
$grid set 0 5 -text "Combined"
$grid set 2 0 -text "Population"
$grid set 4 0 -text "Avg. Income"
$grid set 2 1 -text 125
$grid set 2 2 -text 81
$grid set 2 3 -text 724
$grid set 4 1 -text 24432.12
$grid set 4 2 -text 18290.24
$grid set 4 3 -text 18906.34
# Global data used by other EditGrid_ procedures.
#
set editgrid(g) $grid
set editgrid(top) 1
set editgrid(bot) 3
set editgrid(result) 5
EditGrid_calPop
EditGrid_calIncome
}
# EditGrid_edit --
#
# Prompts the user to edit a cell.
#
proc EditGrid_edit {} {
global editgrid
set grid $editgrid(g)
set ent [$grid anchor get]
if [string comp $ent ""] {
$grid edit set [lindex $ent 0] [lindex $ent 1]
}
}
# EditGrid_addRow --
#
# Adds a new row to the table.
#
proc EditGrid_addRow {} {
global editgrid
set grid $editgrid(g)
$grid edit apply
$grid move row $editgrid(result) $editgrid(result) 1
incr editgrid(bot)
set editgrid(result) [expr $editgrid(bot) + 2]
$grid set 0 $editgrid(bot) -text "City #$editgrid(bot)"
$grid set 2 $editgrid(bot) -text 0
$grid set 4 $editgrid(bot) -text 0.0
EditGrid_calPop
EditGrid_calIncome
}
# EditGrid_calPop --
#
# Calculates the total population
#
proc EditGrid_calPop {} {
global editgrid
set grid $editgrid(g)
set pop 0
for {set i $editgrid(top)} {$i <= $editgrid(bot)} {incr i} {
incr pop [$grid entrycget 2 $i -text]
}
$grid set 2 $editgrid(result) -text $pop
}
# EditGrid_calIncome --
#
# Calculates the average income.
#
proc EditGrid_calIncome {} {
global editgrid
set grid $editgrid(g)
set income 0
set total_pop 0
for {set i $editgrid(top)} {$i <= $editgrid(bot)} {incr i} {
set pop [$grid entrycget 2 $i -text]
set inc [$grid entrycget 4 $i -text]
set income [expr $income + $pop.0 * $inc]
incr total_pop $pop
}
$grid set 4 $editgrid(result) -text [expr $income/$total_pop]
}
# EditGrid_calculate --
#
# Recalculates both columns.
#
proc EditGrid_calculate {} {
global editgrid
set grid $editgrid(g)
$grid edit apply
EditGrid_calIncome
}
# EditGrid_editNotify --
#
# Returns true if an entry can be edited.
#
proc EditGrid_editNotify {x y} {
global editgrid
set grid $editgrid(g)
if {$x == 2 || $x == 4} {
if {$y >= $editgrid(top) && $y <= $editgrid(bot)} {
set editgrid(oldValue) [$grid entrycget $x $y -text]
return 1
}
}
return 0
}
# EditGrid_editDone --
#
# Gets called when the user is done editing an entry.
#
proc EditGrid_editDone {x y} {
global editgrid
set grid $editgrid(g)
if {$x == 2} {
set pop [$grid entrycget $x $y -text]
if [catch {
format %d $pop
}] {
$grid entryconfig $x $y -text $editgrid(oldValue)
tk_dialog .editGridWarn "" \
"$pop is not an valid integer. Try again" \
warning 0 Ok
} else {
$grid entryconfig 4 $editgrid(result) -text "-"
EditGrid_calPop
}
} else {
set income [$grid entrycget $x $y -text]
if [catch {
format %f $income
}] {
$grid entryconfig $x $y -text $editgrid(oldValue)
tk_dialog .editGridWarn "" \
"$income is not an valid floating number. Try again" \
warning 0 Ok
} else {
$grid entryconfig 4 $editgrid(result) -text "-"
}
}
}
# EditGrid_format --
#
# This command is called whenever the background of the grid
# needs to be reformatted. The x1, y1, x2, y2 sprcifies the four
# corners of the area that needs to be reformatted.
#
proc EditGrid_format {w area x1 y1 x2 y2} {
global editgrid
set bg(s-margin) gray65
set bg(x-margin) gray65
set bg(y-margin) gray65
set bg(main) gray20
case $area {
main {
foreach col {2 4} {
$w format border $col 1 $col $editgrid(bot) \
-relief flat -filled 1 -yon 1 -yoff 1\
-bd 0 -bg #b0b0f0 -selectbackground #a0b0ff
$w format border $col 2 $col $editgrid(bot) \
-relief flat -filled 1 -yon 1 -yoff 1\
-bd 0 -bg #80b080 -selectbackground #80b0ff
}
$w format grid $x1 $y1 $x2 $y2 \
-relief raised -bd 1 -bordercolor $bg($area) -filled 0 -bg red\
-xon 1 -yon 1 -xoff 0 -yoff 0 -anchor se
}
y-margin {
$w format border $x1 $y1 $x2 $y2 \
-fill 1 -relief raised -bd 1 -bg $bg($area) \
-selectbackground gray80
}
default {
$w format border $x1 $y1 $x2 $y2 \
-filled 1 \
-relief raised -bd 1 -bg $bg($area) \
-selectbackground gray80
}
}
# case $area {
# {main y-margin} {
# set y [expr $editgrid(bot) + 1]
# $w format border 0 $y 100 $y -bg black -filled 1 -bd 0
# }
# }
}
if {![info exists tix_demo_running]} {
wm withdraw .
set w .demo
toplevel $w; wm transient $w ""
RunSample $w
bind $w <Destroy> exit
}