Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added support to the Entry widget for the -validate {none focus focusin focusout key all} -invalidcommand -validatecommand -invcmd and -vcmd flags to support the validation features of the entry widget. These flags simply are passed down to the underlying entry widget if they are specified. They work identically to the flag descriptions given in the entry man page. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9f740baa745eb9400e0e7cedcef23e64 |
| User & Date: | kuchler 2000-02-08 17:48:17.000 |
Context
|
2000-02-11
| ||
| 00:07 | * tree.tcl: Added "range" subcommand to selection. Given two visible nodes, node1 and node2, it will set the selection to the visible nodes between (and including) node1 and node2. check-in: 3c515a19e2 user: ericm tags: trunk | |
|
2000-02-08
| ||
| 17:48 | Added support to the Entry widget for the -validate {none focus focusin focusout key all} -invalidcommand -validatecommand -invcmd and -vcmd flags to support the validation features of the entry widget. These flags simply are passed down to the underlying entry widget if they are specified. They work identically to the flag descriptions given in the entry man page. check-in: 9f740baa74 user: kuchler tags: trunk | |
|
2000-02-06
| ||
| 00:43 | Rearranged build/install files to use a shared config module check-in: 22a4ce2f62 user: wart tags: trunk | |
Changes
Changes to entry.tcl.
1 2 3 | # ------------------------------------------------------------------------------ # entry.tcl # This file is part of Unifix BWidget Toolkit | | | 1 2 3 4 5 6 7 8 9 10 11 | # ------------------------------------------------------------------------------ # entry.tcl # This file is part of Unifix BWidget Toolkit # $Id: entry.tcl,v 1.2 2000/02/08 17:48:17 kuchler Exp $ # ------------------------------------------------------------------------------ # Index of commands: # - Entry::create # - Entry::configure # - Entry::cget # - Entry::_destroy # - Entry::_init_drag_cmd |
| ︙ | ︙ | |||
24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
{-foreground TkResource "" 0 entry}
{-disabledforeground TkResource "" 0 button}
{-state Enum normal 0 {normal disabled}}
{-text String "" 0}
{-textvariable String "" 0}
{-editable Boolean 1 0}
{-command String "" 0}
{-relief TkResource "" 0 entry}
{-borderwidth TkResource "" 0 entry}
{-fg Synonym -foreground}
{-bd Synonym -borderwidth}
}
DynamicHelp::include Entry balloon
DragSite::include Entry "" 3
DropSite::include Entry {
TEXT {move {}}
FGCOLOR {move {}}
| > > > > > | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
{-foreground TkResource "" 0 entry}
{-disabledforeground TkResource "" 0 button}
{-state Enum normal 0 {normal disabled}}
{-text String "" 0}
{-textvariable String "" 0}
{-editable Boolean 1 0}
{-command String "" 0}
{-invalidcommand String "" 0 entry}
{-validate Enum none 0 {none focus focusin focusout key all}}
{-validatecommand String "" 0 entry}
{-relief TkResource "" 0 entry}
{-borderwidth TkResource "" 0 entry}
{-fg Synonym -foreground}
{-bd Synonym -borderwidth}
{-invcmd Synonym -invalidcommand}
{-vcmd Synonym -validatecommand}
}
DynamicHelp::include Entry balloon
DragSite::include Entry "" 3
DropSite::include Entry {
TEXT {move {}}
FGCOLOR {move {}}
|
| ︙ | ︙ | |||
93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
}
if { $editable == 0 } {
$path configure -cursor left_ptr
}
if { ![string compare $state "disabled"] } {
$path configure -foreground [Widget::getoption $path -disabledforeground]
}
DragSite::setdrag $path $path Entry::_init_drag_cmd Entry::_end_drag_cmd 1
DropSite::setdrop $path $path Entry::_over_cmd Entry::_drop_cmd 1
DynamicHelp::sethelp $path $path 1
rename $path ::$path:cmd
proc ::$path { cmd args } "return \[Entry::_path_command $path \$cmd \$args\]"
| > > > > > > > > > > > > > > > | 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 |
}
if { $editable == 0 } {
$path configure -cursor left_ptr
}
if { ![string compare $state "disabled"] } {
$path configure -foreground [Widget::getoption $path -disabledforeground]
}
set validate [Widget::getoption $path -validate]
if { ![string equal $validate "none"]} {
set validatecommand [Widget::getoption $path -validatecommand]
set invalidcommand [Widget::getoption $path -invalidcommand]
$path configure -validate $validate
if { ![string equal $validatecommand ""]} {
$path configure -validatecommand $validatecommand
}
if { ![string equal $invalidcommand ""]} {
$path configure -invalidcommand $invalidcommand
}
}
DragSite::setdrag $path $path Entry::_init_drag_cmd Entry::_end_drag_cmd 1
DropSite::setdrop $path $path Entry::_over_cmd Entry::_drop_cmd 1
DynamicHelp::sethelp $path $path 1
rename $path ::$path:cmd
proc ::$path { cmd args } "return \[Entry::_path_command $path \$cmd \$args\]"
|
| ︙ | ︙ |