Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | * doc/*.html: Bumped the version number to 3.10; various improvements. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
a440495ea847fea80c01897807156e1f |
User & Date: | csaba 2019-10-21 13:30:45.592 |
Context
2019-10-21
| ||
17:19 | * scripts/scrollableframe.tcl: Minor improvement. * doc/scrollableframe.html: Minor correction. check-in: 3257c94cda user: csaba tags: trunk | |
13:30 | * doc/*.html: Bumped the version number to 3.10; various improvements. check-in: a440495ea8 user: csaba tags: trunk | |
13:29 | * doc/stylesheet.css: Updated. check-in: 87ce388a38 user: csaba tags: trunk | |
Changes
Changes to modules/mentry/doc/index.html.
1 2 | <html> <head> | > | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | <!DOCTYPE html> <html> <head> <title>The Multi-Entry Widget Package Mentry 3.10</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, entry, label"> </head> <body> <div align="center"> <h1>The Multi-Entry Widget Package Mentry 3.10</h1> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> |
︙ | ︙ |
Changes to modules/mentry/doc/mentry.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>Mentry Programmer's Guide</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, entry, label"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | <!DOCTYPE html> <html> <head> <title>Mentry Programmer's Guide</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, entry, label"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Mentry Programmer's Guide</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <h4><a href="#overview">Overview</a></h4> <ul> |
︙ | ︙ | |||
52 53 54 55 56 57 58 59 60 61 62 63 64 65 | <li><a href="#ex_tile">Tile-Based Demo Scripts</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="overview">Overview</h2> <h3 id="ov_what">What Is Mentry?</h3> <p>Mentry is a library package for Tcl/Tk versions 8.0 or higher, written in | > | 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | <li><a href="#ex_tile">Tile-Based Demo Scripts</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="overview">Overview</h2> <h3 id="ov_what">What Is Mentry?</h3> <p>Mentry is a library package for Tcl/Tk versions 8.0 or higher, written in |
︙ | ︙ | |||
141 142 143 144 145 146 147 | <p>you can make sure that the three entries will only accept numeric input, thus providing a comfortable and safe user interface for editing 10-digit phone numbers.</p> <h3 id="ov_get">How to Get It?</h3> <p>Mentry is available for free download from the same URL as Wcb. The | | | | 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 | <p>you can make sure that the three entries will only accept numeric input, thus providing a comfortable and safe user interface for editing 10-digit phone numbers.</p> <h3 id="ov_get">How to Get It?</h3> <p>Mentry is available for free download from the same URL as Wcb. The distribution file is <code>mentry3.10.tar.gz</code> for UNIX and <code>mentry3_10.zip</code> for Windows. These files contain the same information, except for the additional carriage return character preceding the linefeed at the end of each line in the text files for Windows.</p> <p>Mentry is also included in tklib, which has the address</p> <blockquote> <address> |
︙ | ︙ | |||
164 165 166 167 168 169 170 | the <code>auto_path</code> variable. For example, you can install it as a directory at the same level as the Tcl and Tk script libraries. The locations of these library directories are given by the <code>tcl_library</code> and <code>tk_library</code> variables, respectively.</p> <p>To install Mentry <i>on UNIX</i>, <code>cd</code> to the desired directory | | | | | | | | 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 | the <code>auto_path</code> variable. For example, you can install it as a directory at the same level as the Tcl and Tk script libraries. The locations of these library directories are given by the <code>tcl_library</code> and <code>tk_library</code> variables, respectively.</p> <p>To install Mentry <i>on UNIX</i>, <code>cd</code> to the desired directory and unpack the distribution file <code>mentry3.10.tar.gz</code>:</p> <blockquote> <pre> gunzip -c mentry3.10.tar.gz | tar -xf - </pre> </blockquote> <p>On most UNIX systems this can be replaced with</p> <blockquote> <pre> tar -zxf mentry3.10.tar.gz </pre> </blockquote> <p>Both commands will create a directory named <code>mentry3.10</code>, with the subdirectories <code>demos</code>, <code>doc</code>, and <code>scripts</code>.</p> <p><i>On Windows</i>, use WinZip or some other program capable of unpacking the distribution file <code>mentry3_10.zip</code> into the directory <code>mentry3.10</code>, with the subdirectories <code>demos</code>, <code>doc</code>, and <code>scripts</code>.</p> <p>The file <code>mentryThemes.tcl</code> in the <code>scripts</code> directory is only needed for applications using the package Mentry_tile (see next section).</p> <p>Notice that in tklib the Mentry <code>demos</code> directory is replaced |
︙ | ︙ | |||
381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 | 0.4 or higher, and <code>tileqt</code> itself won't work with tile versions earlier than 0.7.</p> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="examples">Examples</h2> <h3 id="ex_phoneNumber">A mentry Widget for Phone Numbers</h3> <p>Let's resume the <a href="#ov_example">example</a> mentioned in the Overview in a bit more systematical manner. First, we will write a procedure for creating a mentry widget that allows to display and edit 10-digit phone numbers and accepts any configuration options supported by the <code><a href="mentryWidget.html">mentry::mentry</a></code> command:</p> <blockquote> <pre> | > | | < > | < > | | 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 | 0.4 or higher, and <code>tileqt</code> itself won't work with tile versions earlier than 0.7.</p> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="examples">Examples</h2> <h3 id="ex_phoneNumber">A mentry Widget for Phone Numbers</h3> <p>Let's resume the <a href="#ov_example">example</a> mentioned in the Overview in a bit more systematical manner. First, we will write a procedure for creating a mentry widget that allows to display and edit 10-digit phone numbers and accepts any configuration options supported by the <code><a href="mentryWidget.html">mentry::mentry</a></code> command:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # phoneNumberMentry # # Creates a new mentry widget win that allows to display and edit 10-digit # phone numbers. Sets the type attribute of the widget to PhoneNumber and # returns the name of the newly created widget. #------------------------------------------------------------------------------</span> proc phoneNumberMentry {win args} { <span class="cmt"># # Create a mentry widget consisting of two entries of width 3 and one of # width 4, separated by "-" characters, and set its type to PhoneNumber #</span> eval [list mentry::mentry $win] $args $win configure -body {3 - 3 - 4} $win attrib type PhoneNumber <span class="cmt"># # Allow only decimal digits in all entry children; use # wcb::cbappend (or wcb::cbprepend) instead of wcb::callback # in order to keep the wcb::checkEntryLen callback, # registered by mentry::mentry for all entry children #</span> for {set n 0} {$n < 3} {incr n} { wcb::cbappend [$win entrypath $n] before insert wcb::checkStrForNum $win adjustentry $n "0123456789" } return $win } |
︙ | ︙ | |||
478 479 480 481 482 483 484 | characters specified by that string.</p> <p>Our second procedure outputs a phone number to a mentry widget having a <code>type</code> attribute value of <code>"PhoneNumber"</code>:</p> <blockquote> <pre> | | | < > | < > | | | < > | < > | < > | | 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 | characters specified by that string.</p> <p>Our second procedure outputs a phone number to a mentry widget having a <code>type</code> attribute value of <code>"PhoneNumber"</code>:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # putPhoneNumber # # Outputs the phone number num to the mentry widget win of type PhoneNumber. # The phone number must be a string of length 10, consisting of decimal digits. #------------------------------------------------------------------------------</span> proc putPhoneNumber {num win} { <span class="cmt"># # Check the syntax of num #</span> if {[string length $num] != 10 || ![regexp {^[0-9]*$} $num]} { return -code error "expected 10 decimal digits but got \"$num\"" } <span class="cmt"># # Check the widget and display the properly formatted phone number #</span> checkIfPhoneNumberMentry $win $win put 0 [string range $num 0 2] [string range $num 3 5] \ [string range $num 6 9] } </pre> </blockquote> <p>We use the <code><a href="mentryWidget.html#put">put</a></code> subcommand of the Tcl procedure corresponding to the mentry widget to display the three substrings of the given phone number in the corresponding entries, starting with the entry child whose index is specified as the first argument following the word <code>put</code>.</p> <p>Next, we need a procedure that returns the phone number contained in a mentry widget having a <code>type</code> attribute value of <code>"PhoneNumber"</code>:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # getPhoneNumber # # Returns the phone number contained in the mentry widget win of type # PhoneNumber. #------------------------------------------------------------------------------</span> proc getPhoneNumber win { <span class="cmt"># # Check the widget #</span> checkIfPhoneNumberMentry $win <span class="cmt"># # Generate an error if any entry child is empty or incomplete #</span> for {set n 0} {$n < 3} {incr n} { if {[$win isempty $n]} { focus [$win entrypath $n] return -code error EMPTY } if {![$win isfull $n]} { focus [$win entrypath $n] return -code error INCOMPL } } <span class="cmt"># # Return the phone number built from the # values contained in the entry children #</span> $win getarray strs return $strs(0)$strs(1)$strs(2) } </pre> </blockquote> <p>The procedure runs over the indices of the entry children of the given |
︙ | ︙ | |||
580 581 582 583 584 585 586 | <p>The last two procedures presented above contain an invocation of the command <code>checkIfPhoneNumberMentry</code>, which is implemented as folows:</p> <blockquote> <pre> | | | | 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 | <p>The last two procedures presented above contain an invocation of the command <code>checkIfPhoneNumberMentry</code>, which is implemented as folows:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # checkIfPhoneNumberMentry # # Generates an error if win is not a mentry widget of type PhoneNumber. #------------------------------------------------------------------------------</span> proc checkIfPhoneNumberMentry win { if {![winfo exists $win]} { return -code error "bad window path name \"$win\"" } if {[string compare [winfo class $win] "Mentry"] != 0 || [string compare [$win attrib type] "PhoneNumber"] != 0} { |
︙ | ︙ | |||
623 624 625 626 627 628 629 | <blockquote> <pre> package require mentry set title "Phone Number" wm title . $title | < > | < > | < > | < > | < > | | 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 | <blockquote> <pre> package require mentry set title "Phone Number" wm title . $title <span class="cmt"># # Add some entries to the Tk option database #</span> source [file join [file dirname [info script]] option.tcl] . . . <span class="cmt"># # Frame .f with a mentry displaying a phone number #</span> frame .f label .f.l -text "A mentry widget for phone numbers:" phoneNumberMentry .f.me -background white pack .f.l .f.me <span class="cmt"># # Message strings corresponding to the values # returned by getPhoneNumber on failure #</span> array set msgs { EMPTY "Field value missing" INCOMPL "Incomplete field value" } <span class="cmt"># # Button .get invoking the procedure getPhoneNumber #</span> button .get -text "Get from mentry" -command { if {[catch { set num "" set num [getPhoneNumber .f.me] } result] != 0} { bell tk_messageBox -icon error -message $msgs($result) \ -title $title -type ok } } <span class="cmt"># # Label .num displaying the result of getPhoneNumber #</span> label .num -textvariable num -background white . . . putPhoneNumber 1234567890 .f.me focus [.f.me entrypath 0] </pre> |
︙ | ︙ | |||
687 688 689 690 691 692 693 | implements the procedures <code>ethernetAddrMentry</code>, <code>putEthernetAddr</code>, and <code>getEthernetAddr</code>; the last two invoke the helper procedure <code>checkIfEthernetAddrMentry</code>, while the first one is implemented as follows:</p> <blockquote> <pre> | | | < > | < > | | 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 | implements the procedures <code>ethernetAddrMentry</code>, <code>putEthernetAddr</code>, and <code>getEthernetAddr</code>; the last two invoke the helper procedure <code>checkIfEthernetAddrMentry</code>, while the first one is implemented as follows:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # ethernetAddrMentry # # Creates a new mentry widget win that allows to display and edit Ethernet # addresses. Sets the type attribute of the widget to EthernetAddr and returns # the name of the newly created widget. #------------------------------------------------------------------------------</span> proc ethernetAddrMentry {win args} { <span class="cmt"># # Create a mentry widget consisting of 6 entry children of # width 2, separated by colons, and set its type to EthernetAddr #</span> eval [list mentry::mentry $win] $args $win configure -body {2 : 2 : 2 : 2 : 2 : 2} $win attrib type EthernetAddr <span class="cmt"># # Install automatic uppercase conversion and allow only hexadecimal # digits in all entry children; use wcb::cbappend (or wcb::cbprepend) # instead of wcb::callback in order to keep the wcb::checkEntryLen # callback, registered by mentry::mentry for all entry children #</span> for {set n 0} {$n < 6} {incr n} { wcb::cbappend [$win entrypath $n] before insert wcb::convStrToUpper \ {wcb::checkStrForRegExp {^[0-9A-F]*$}} $win adjustentry $n "0123456789ABCDEF" } return $win |
︙ | ︙ | |||
735 736 737 738 739 740 741 | <p>The procedure <code>putEthernetAddr</code> expects as its first argument a string of the form <code>"XX:XX:XX:XX:XX:XX"</code>, where each <code>"XX"</code> must be a hexadecimal string in the range <code>0</code> - <code>255</code>:</p> <blockquote> <pre> | | | < > | < > | < > | | | < > | < > | < > | | 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 | <p>The procedure <code>putEthernetAddr</code> expects as its first argument a string of the form <code>"XX:XX:XX:XX:XX:XX"</code>, where each <code>"XX"</code> must be a hexadecimal string in the range <code>0</code> - <code>255</code>:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # putEthernetAddr # # Outputs the Ethernet address addr to the mentry widget win of type # EthernetAddr. The address must be a string of the form XX:XX:XX:XX:XX:XX, # where each XX must be a hexadecimal string in the range 0 - 255. Leading # zeros are allowed (but not required), hence the components may have more (but # also less) than two characters; the procedure displays them with exactly two # digits. #------------------------------------------------------------------------------</span> proc putEthernetAddr {addr win} { set errorMsg "expected an Ethernet address but got \"$addr\"" <span class="cmt"># # Check the syntax of addr #</span> set lst [split $addr :] if {[llength $lst] != 6} { return -code error $errorMsg } <span class="cmt"># # Try to convert the 6 components of addr to hexadecimal # strings and check whether they are in the range 0 - 255 #</span> for {set n 0} {$n < 6} {incr n} { set val 0x[lindex $lst $n] if {[catch {format "%02X" $val} str$n] != 0 || $val < 0 || $val > 255} { return -code error $errorMsg } } <span class="cmt"># # Check the widget and display the properly formatted Ethernet address #</span> checkIfEthernetAddrMentry $win $win put 0 $str0 $str1 $str2 $str3 $str4 $str5 } </pre> </blockquote> <p>The procedure <code>getEthernetAddr</code> raises an error if any entry child of the given mentry widget is empty. It accepts also entry strings of length one, but in the return value all components will have exactly two digits:</p> <blockquote> <pre> <span class="cmt">#------------------------------------------------------------------------------ # getEthernetAddr # # Returns the Ethernet address contained in the mentry widget win of type # EthernetAddr. #------------------------------------------------------------------------------</span> proc getEthernetAddr win { <span class="cmt"># # Check the widget #</span> checkIfEthernetAddrMentry $win <span class="cmt"># # Generate an error if any entry child is empty #</span> for {set n 0} {$n < 6} {incr n} { if {[$win isempty $n]} { focus [$win entrypath $n] return -code error EMPTY } } <span class="cmt"># # Return the properly formatted Ethernet address built # from the values contained in the entry children #</span> $win getarray strs return [format "%02X:%02X:%02X:%02X:%02X:%02X" \ 0x$strs(0) 0x$strs(1) 0x$strs(2) 0x$strs(3) 0x$strs(4) 0x$strs(5)] } </pre> </blockquote> |
︙ | ︙ | |||
883 884 885 886 887 888 889 | <blockquote> <pre> package require mentry set title "Date & Time" wm title . $title | < > | < > | < > | < > | | 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 | <blockquote> <pre> package require mentry set title "Date & Time" wm title . $title <span class="cmt"># # Add some entries to the Tk option database #</span> source [file join [file dirname [info script]] option.tcl] <span class="cmt"># # Date and time formats supported by this demo # script and the corresponding field separators #</span> array set dateFmts {0 mdy 1 dmy 2 Ymd} array set dateSeps {0 / 1 . 2 - } array set timeFmts {0 IMS 1 HMS} array set timeSeps {0 : 1 : } <span class="cmt"># # Choose the date & time formats; don't use the %p field descriptor # for displaying the AM/PM indicator, because it doesn't work on # UNIX if Tcl/Tk 8.4 or higher is used in a non-default locale #</span> wm withdraw . set clockVal [clock seconds] if {[clock format $clockVal -format "%H"] < 12} { set meridian AM } else { set meridian PM } set dateIdx [tk_dialog .choice $title "Please choose a date format" {} -1 \ [clock format $clockVal -format "%m/%d/%y"] \ [clock format $clockVal -format "%d.%m.%y"] \ [clock format $clockVal -format "%Y-%m-%d"]] set timeIdx [tk_dialog .choice $title "Please choose a time format" {} -1 \ [clock format $clockVal -format "%I:%M:%S $meridian"] \ [clock format $clockVal -format "%H:%M:%S"]] wm deiconify . <span class="cmt"># # Frame .f with mentries displaying the date & time #</span> frame .f label .f.lDate -text "Date: " mentry::dateMentry .f.date $dateFmts($dateIdx) $dateSeps($dateIdx) \ -justify center -background white frame .f.gap -width 10 label .f.lTime -text "Time: " mentry::timeMentry .f.time $timeFmts($timeIdx) $timeSeps($timeIdx) \ |
︙ | ︙ | |||
953 954 955 956 957 958 959 | <p>The demo script <code>datetime2.tcl</code> displays both the date and time in the same mentry widget, with the aid of the third command described above:</p> <blockquote> <pre> | < > | | 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 | <p>The demo script <code>datetime2.tcl</code> displays both the date and time in the same mentry widget, with the aid of the third command described above:</p> <blockquote> <pre> <span class="cmt"># # Frame .f with a mentry displaying the date & time #</span> frame .f label .f.l -text "Date & time: " mentry::dateTimeMentry .f.me $dateFmts($dateIdx)$timeFmts($timeIdx) \ $dateSeps($dateIdx) $timeSeps($timeIdx) \ -justify center -background white pack .f.l .f.me </pre> |
︙ | ︙ | |||
995 996 997 998 999 1000 1001 | <i>boolean</i></code>. On failure, the procedure sets the focus to the first erronous entry child, generates an error, and returns one of the values contained in the following code fragment taken from the scripts <code>datetime1.tcl</code> and <code>datetime2.tcl</code>: <blockquote> <pre> | < > | | 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 | <i>boolean</i></code>. On failure, the procedure sets the focus to the first erronous entry child, generates an error, and returns one of the values contained in the following code fragment taken from the scripts <code>datetime1.tcl</code> and <code>datetime2.tcl</code>: <blockquote> <pre> <span class="cmt"># # Message strings corresponding to the values # returned by mentry::getClockVal on failure #</span> array set msgs { EMPTY "Field value missing" BAD "Invalid field value" BAD_DATE "Invalid date" BAD_YEAR "Unsupported year" } </pre> |
︙ | ︙ | |||
1027 1028 1029 1030 1031 1032 1033 | </ul> <p>The demo script <code>datetime1.tcl</code> invokes the last two commands as follows:</p> <blockquote> <pre> | < > | < > | | 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 | </ul> <p>The demo script <code>datetime1.tcl</code> invokes the last two commands as follows:</p> <blockquote> <pre> <span class="cmt"># # Button .get invoking the procedure mentry::getClockVal #</span> button .get -text "Get from mentries" -command { if {[catch { set dateTime "" set base [mentry::getClockVal .f.date] set clockVal [mentry::getClockVal .f.time -base $base] set dateTime [clock format $clockVal -format "%c"] } result] != 0} { bell tk_messageBox -icon error -message $msgs($result) \ -title $title -type ok } } <span class="cmt"># # Label .dateTime displaying the result of mentry::getClockVal #</span> label .dateTime -textvariable dateTime -background white . . . set clockVal [clock seconds] mentry::putClockVal $clockVal .f.date mentry::putClockVal $clockVal .f.time |
︙ | ︙ | |||
1067 1068 1069 1070 1071 1072 1073 | of the <code>-base</code> option when passing the name of the time mentry to the same procedure.</p> <p>The demo script <code>datetime2.tcl</code> is simpler:</p> <blockquote> <pre> | < > | < > | | | < > | | | < > | | | | | | < > | < > | | | | < > | | | | | | 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 | of the <code>-base</code> option when passing the name of the time mentry to the same procedure.</p> <p>The demo script <code>datetime2.tcl</code> is simpler:</p> <blockquote> <pre> <span class="cmt"># # Button .get invoking the procedure mentry::getClockVal #</span> button .get -text "Get from mentry" -command { if {[catch { set dateTime "" set clockVal [mentry::getClockVal .f.me] set dateTime [clock format $clockVal -format "%c"] } result] != 0} { bell tk_messageBox -icon error -message $msgs($result) \ -title $title -type ok } } <span class="cmt"># # Label .dateTime displaying the result of mentry::getClockVal #</span> label .dateTime -textvariable dateTime -background white . . . set clockVal [clock seconds] mentry::putClockVal $clockVal .f.me focus [.f.me entrypath 0] </pre> </blockquote> <h3 id="ex_tile">Tile-Based Demo Scripts</h3> <p>The Mentry distribution contains also tile-based counterparts of the demo scripts discussed above. As described in the <a href="#ov_tile">More on Mentry_tile</a> section of this tutorial, it is quite easy to port an application using the Mentry package to one based on Mentry_tile. For example, let's see how to transform the demo script <code>phonenumber.tcl</code> into a tile-based one, called <code>phonenumber_tile.tcl</code>. The changes are shown below in <span class="red">red</span> color:</p> <blockquote> <pre> package require mentry<span class="red">_tile</span> set title "Phone Number" wm title . $title <span class="cmt"># # Add some entries to the Tk option database #</span> source [file join [file dirname [info script]] option<span class="red">_tile</span>.tcl] . . . <span class="red"># # Improve the window's appearance by using a tile # frame as a container for the other widgets # ttk::frame .base</span> <span class="cmt"># # Frame <span class="red">.base</span>.f with a mentry displaying a phone number #</span> <span class="red">ttk::</span>frame .base.f <span class="red">ttk::</span>label .base.f.l -text "A mentry widget for phone numbers:" phoneNumberMentry <span class="red">.base</span>.f.me pack <span class="red">.base</span>.f.l <span class="red">.base</span>.f.me <span class="cmt"># # Message strings corresponding to the values # returned by getPhoneNumber on failure #</span> array set msgs { EMPTY "Field value missing" INCOMPL "Incomplete field value" } <span class="cmt"># # Button <span class="red">.base</span>.get invoking the procedure getPhoneNumber #</span> <span class="red">ttk</span>::button <span class="red">.base</span>.get -text "Get from mentry" -command { if {[catch { set num "" set num [getPhoneNumber <span class="red">.base</span>.f.me] } result] != 0} { bell tk_messageBox -icon error -message $msgs($result) \ -title $title -type ok } } <span class="cmt"># # Label <span class="red">.base</span>.num displaying the result of getPhoneNumber #</span> <span class="red">ttk::</span>label <span class="red">.base</span>.num -textvariable num -background white . . . putPhoneNumber 1234567890 <span class="red">.base</span>.f.me focus [<span class="red">.base</span>.f.me entrypath 0] </pre> </blockquote> <p>That's all! The resulting window has a nice theme-specific appearance:</p> <blockquote> |
︙ | ︙ |
Changes to modules/mentry/doc/mentryDateTime.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>Multi-Entry Widgets for Date and Time</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, date, time, clock"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | <!DOCTYPE html> <html> <head> <title>Multi-Entry Widgets for Date and Time</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, date, time, clock"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Multi-Entry Widgets for Date and Time</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#dateMentry">The <code><b>mentry::dateMentry</b></code> Command</a></li> |
︙ | ︙ | |||
42 43 44 45 46 47 48 49 50 51 52 53 54 55 | <li><a href="#getClockVal">The <code><b>mentry::getClockVal</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="dateMentry">The <code><b>mentry::dateMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | <li><a href="#getClockVal">The <code><b>mentry::getClockVal</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="dateMentry">The <code><b>mentry::dateMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
116 117 118 119 120 121 122 123 124 125 126 127 128 129 | <dd>mentry, widget, date</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="timeMentry">The <code><b>mentry::timeMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | <dd>mentry, widget, date</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="timeMentry">The <code><b>mentry::timeMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
191 192 193 194 195 196 197 198 199 200 201 202 203 204 | <dd>mentry, widget, time</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="dateTimeMentry">The <code><b>mentry::dateTimeMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 | <dd>mentry, widget, time</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="dateTimeMentry">The <code><b>mentry::dateTimeMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
278 279 280 281 282 283 284 285 286 287 288 289 290 291 | <dd>mentry, widget, date, time</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putClockVal">The <code><b>mentry::putClockVal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 | <dd>mentry, widget, date, time</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putClockVal">The <code><b>mentry::putClockVal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
323 324 325 326 327 328 329 330 331 332 333 334 335 336 | <dd>mentry, widget, date, time, clock</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getClockVal">The <code><b>mentry::getClockVal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 | <dd>mentry, widget, date, time, clock</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getClockVal">The <code><b>mentry::getClockVal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ |
Changes to modules/mentry/doc/mentryFixedPoint.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>Multi-Entry Widgets for Real Numbers in Fixed-Point Format</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, real number"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | <!DOCTYPE html> <html> <head> <title>Multi-Entry Widgets for Real Numbers in Fixed-Point Format</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, real number"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Multi-Entry Widgets for Real Numbers<br> in Fixed-Point Format</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#fixedPointMentry">The <code><b>mentry::fixedPointMentry</b></code> Command</a></li> <li><a href="#putReal">The <code><b>mentry::putReal</b></code> Command</a></li> <li><a href="#getReal">The <code><b>mentry::getReal</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="fixedPointMentry">The <code><b>mentry::fixedPointMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
83 84 85 86 87 88 89 90 91 92 93 94 95 96 | <dd>mentry, widget, real number</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putReal">The <code><b>mentry::putReal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | <dd>mentry, widget, real number</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putReal">The <code><b>mentry::putReal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
123 124 125 126 127 128 129 130 131 132 133 134 135 136 | <dd>mentry, widget, real number</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getReal">The <code><b>mentry::getReal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | <dd>mentry, widget, real number</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getReal">The <code><b>mentry::getReal</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ |
Changes to modules/mentry/doc/mentryIPAddr.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>Multi-Entry Widgets for IP Addresses</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, IP address"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | <!DOCTYPE html> <html> <head> <title>Multi-Entry Widgets for IP Addresses</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, IP address"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Multi-Entry Widgets for IP Addresses</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#ipAddrMentry">The <code><b>mentry::ipAddrMentry</b></code> Command</a></li> <li><a href="#putIPAddr">The <code><b>mentry::putIPAddr</b></code> Command</a></li> <li><a href="#getIPAddr">The <code><b>mentry::getIPAddr</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="ipAddrMentry">The <code><b>mentry::ipAddrMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
96 97 98 99 100 101 102 103 104 105 106 107 108 109 | <dd>mentry, widget, IP address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putIPAddr">The <code><b>mentry::putIPAddr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | <dd>mentry, widget, IP address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putIPAddr">The <code><b>mentry::putIPAddr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
135 136 137 138 139 140 141 142 143 144 145 146 147 148 | <dd>mentry, widget, IP address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getIPAddr">The <code><b>mentry::getIPAddr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | <dd>mentry, widget, IP address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getIPAddr">The <code><b>mentry::getIPAddr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ |
Changes to modules/mentry/doc/mentryIPv6Addr.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>Multi-Entry Widgets for IPv6 Addresses</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, IPv6 address"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | <!DOCTYPE html> <html> <head> <title>Multi-Entry Widgets for IPv6 Addresses</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, IPv6 address"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Multi-Entry Widgets for IPv6 Addresses</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#ipv6AddrMentry">The <code><b>mentry::ipv6AddrMentry</b></code> Command</a></li> <li><a href="#putIPv6Addr">The <code><b>mentry::putIPv6Addr</b></code> Command</a></li> <li><a href="#getIPv6Addr">The <code><b>mentry::getIPv6Addr</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="ipv6AddrMentry">The <code><b>mentry::ipv6AddrMentry</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
98 99 100 101 102 103 104 105 106 107 108 109 110 111 | <dd>mentry, widget, IPv6 address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putIPAddr">The <code><b>mentry::putIPv6Addr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | <dd>mentry, widget, IPv6 address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="putIPAddr">The <code><b>mentry::putIPv6Addr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
141 142 143 144 145 146 147 148 149 150 151 152 153 154 | <dd>mentry, widget, IPv6 address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getIPv6Addr">The <code><b>mentry::getIPv6Addr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 | <dd>mentry, widget, IPv6 address</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getIPv6Addr">The <code><b>mentry::getIPv6Addr</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ |
Changes to modules/mentry/doc/mentryThemes.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>Commands Related to Tile Themes</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, theme, tile"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | <!DOCTYPE html> <html> <head> <title>Commands Related to Tile Themes</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, theme, tile"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Commands Related to Tile Themes</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#overview">Overview</a></li> |
︙ | ︙ | |||
41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | <li><a href="#setThemeDefaults">The <code><b>mentry::setThemeDefaults</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="overview">Overview</h2> <p>The commands described in this reference page should only be invoked when using the package Mentry_tile. They enable you to set and query the current theme, to retrieve a list of the available themes, and to make sure that your widgets will have a theme-specific appearance.</p> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="setTheme">The <code><b>mentry::setTheme</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > > | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | <li><a href="#setThemeDefaults">The <code><b>mentry::setThemeDefaults</b></code> Command</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="overview">Overview</h2> <p>The commands described in this reference page should only be invoked when using the package Mentry_tile. They enable you to set and query the current theme, to retrieve a list of the available themes, and to make sure that your widgets will have a theme-specific appearance.</p> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="setTheme">The <code><b>mentry::setTheme</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
97 98 99 100 101 102 103 104 105 106 107 108 109 110 | <dd>mentry, theme, tile</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getCurrentTheme">The <code><b>mentry::getCurrentTheme</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | <dd>mentry, theme, tile</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getCurrentTheme">The <code><b>mentry::getCurrentTheme</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
133 134 135 136 137 138 139 140 141 142 143 144 145 146 | <dd>mentry, theme, tile</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getThemes">The <code><b>mentry::getThemes</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 | <dd>mentry, theme, tile</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="getThemes">The <code><b>mentry::getThemes</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
169 170 171 172 173 174 175 176 177 178 179 180 181 182 | <dd>mentry, theme, tile</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="setThemeDefaults">The <code><b>mentry::setThemeDefaults</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 | <dd>mentry, theme, tile</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="setThemeDefaults">The <code><b>mentry::setThemeDefaults</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ |
Changes to modules/mentry/doc/mentryWidget.html.
1 2 3 4 5 6 7 8 9 10 | <html> <head> <title>The mentry::mentry Command</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, entry, label"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | | > > > > | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | <!DOCTYPE html> <html> <head> <title>The mentry::mentry Command</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content="mentry, widget, entry, label"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>The <code><b>mentry::mentry</b></code> Command</h1> <h2>For Mentry Version 3.10</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#quick_ref">Quick Reference</a></li> <li><a href="#detailed_ref">Detailed Reference</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="quick_ref">Quick Reference</h2> <dl> <dt><a href="#name">NAME</a></dt> <dd><code>mentry::mentry</code> – Create and manipulate multi-entry widgets</dd> <dt class="tm"><a href="#synopsis">SYNOPSIS</a></dt> <dd> <pre> <b>mentry::mentry</b> <i>pathName</i> ?<i>options</i>? </pre> </dd> <dt><a href="#description">DESCRIPTION</a></dt> <dt class="tm"><a href="#std_options">STANDARD OPTIONS</a></dt> <dd> <pre> <b>-borderwidth -highlightcolor -relief -highlightbackground -highlightthickness</b> </pre> </dd> |
︙ | ︙ | |||
107 108 109 110 111 112 113 | <dd> <pre> <i>number</i> <b>end</b> </pre> </dd> | < < | 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | <dd> <pre> <i>number</i> <b>end</b> </pre> </dd> <dt class="tm"><a href="#widget_command">WIDGET COMMAND</a></dt> <dd><code><i>pathName</i> <b><a href="#adjustentry">adjustentry</a></b> <i>index</i> <i>string</i></code></dd> <dd><code><i>pathName</i> <b><a href="#attrib">attrib</a></b> ?<i>name</i>? ?<i>value</i> <i>name</i> <i>value</i> ...?</code></dd> |
︙ | ︙ | |||
189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 | <dd>mentry, widget, entry, label</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="detailed_ref">Detailed Reference</h2> <dl> <dt id="name"><b>NAME</b></dt> <dd><code>mentry::mentry</code> – Create and manipulate multi-entry widgets</dd> <dt class="tm" id="synopsis"><b>SYNOPSIS</b></dt> <dd> <pre> <b>mentry::mentry</b> <i>pathName</i> ?<i>options</i>? </pre> </dd> | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 | <dd>mentry, widget, entry, label</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="detailed_ref">Detailed Reference</h2> <dl> <dt id="name"><b>NAME</b></dt> <dd><code>mentry::mentry</code> – Create and manipulate multi-entry widgets</dd> <dt class="tm" id="synopsis"><b>SYNOPSIS</b></dt> <dd> <pre> <b>mentry::mentry</b> <i>pathName</i> ?<i>options</i>? </pre> </dd> <dt id="description"><b>DESCRIPTION</b></dt> <dd>The <code><b>mentry::mentry</b></code> command creates a new window named <code><i>pathName</i></code> and of the class <code><b>Mentry</b></code>, and makes it into a <b>mentry</b> widget. Additional options, described below, may be specified on the command line or in the option database to configure aspects of the mentry such as its colors, font, and children. The <code><b>mentry::mentry</b></code> command returns its <code><i>pathName</i></code> argument. At the time this command is invoked, there must not exist a window named <code><i>pathName</i></code>, but <code><i>pathName</i></code>'s parent must exist.</dd> <dd class="tm">The word <i>mentry</i> is an abbreviation of <i>multi-entry</i>. A mentry is a mega-widget consisting of any number of entries separated by labels, all embedded in a frame. Due to appropriately chosen configuration options for the entries and labels, a mentry widget looks like one single entry containing preinserted text pieces that cannot be moved, changed, or deleted by the user.</dd> <dd class="tm">The initial width of each entry child (specified by the <code><b><a href="#body">-body</a></b></code> configuration option) also determines the maximal number of characters that can be inserted into it. This is achieved with the aid of the <code><b><a href= "wcbRef.html#callback">wcb::callback</a></b></code> command, by registering the <code><b><a href= "wcbRef.html#entrycb">wcb::checkEntryLen</a></b></code> before-<code><b>insert</b></code> callback with the entry child. In order to keep this callback, additional before-<code><b>insert</b></code> callbacks (if needed) should only be registered with the <code><b><a href= "wcbRef.html#cbappend">wcb::cbappend</a></b></code> and <code><b><a href= "wcbRef.html#cbprepend">wcb::cbprepend</a></b></code> commands. When reaching this limit in an entry having the input focus, the latter is set automatically to the next enabled entry child, the contents of that widget is selected, and the insertion cursor is set to its end. This is made sure by defining an appropriate after-<code><b>insert</b></code> callback, which must be kept to be the last such callback for the entry. For this reason, additional after-<code><b>insert</b></code> callbacks (if needed) should only be registered with the <code><b>wcb::cbprepend</b></code> command. The same command should be used exclusively to define after-<code><b>motion</b></code> callbacks (if needed), because <code><b>mentry::mentry</b></code> registers one that must be the last after-<code><b>motion</b></code> callback for each entry child.</dd> <dd class="tm">Each mentry widget may have any number of <b>attributes</b>, which can be used in commands that create or manipulate mentry widgets for particular purposes. For example, each date mentry created by the <code><b><a href= "mentryDateTime.html#dateMentry">mentry::dateMentry</a></b></code> command has a <code><b>type</b></code> attribute having the value <code>"Date"</code> and a <code><b>format</b></code> attribute specifying the meanings of its components. The values of these attributes are queried and used in the bodies of the procedures <code><b><a href= "mentryDateTime.html#putClockVal">mentry::putClockVal</a></b></code> and <code><b><a href= "mentryDateTime.html#getClockVal">mentry::getClockVal</a></b></code>.</dd> <dt class="tm" id="std_options"><b>STANDARD OPTIONS</b></dt> <dd> <pre> <b>-borderwidth -highlightcolor -relief -highlightbackground -highlightthickness</b> </pre> </dd> |
︙ | ︙ | |||
291 292 293 294 295 296 297 | <dt class="tm" id="widget_options"><b>WIDGET-SPECIFIC OPTIONS</b></dt> <dd class="tm" id="body"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> | < < < | 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 | <dt class="tm" id="widget_options"><b>WIDGET-SPECIFIC OPTIONS</b></dt> <dd class="tm" id="body"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> <td><code><b>-body</b></code></td> </tr> <tr> <td>Database Name:</td> <td><code><b> body</b></code></td> </tr> <tr> <td>Database Class:</td> <td><code><b> Body</b></code></td> </tr> </table> <blockquote> <p>Specifies the initial widths of the entry children of the given multi-entry widget, as well as the texts to be displayed in the labels |
︙ | ︙ | |||
342 343 344 345 346 347 348 | </blockquote> </dd> <dd id="disabledbackground"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> | < < < < < < < < < < < < | 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 | </blockquote> </dd> <dd id="disabledbackground"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> <td><code><b>-disabledbackground</b></code></td> </tr> <tr> <td>Database Name:</td> <td><code><b> disabledBackground</b></code></td> </tr> <tr> <td>Database Class:</td> <td><code><b> DisabledBackground</b></code></td> </tr> </table> <blockquote> <p>This option, which is only supported for Tk versions 8.4 or higher, specifies the background color to use for all entry and label children of the given multi-entry widget when it is disabled. If the value of this option is the empty string then the normal background color is used. This option is only supported by the Mentry package, but not by Mentry_tile.</p> </blockquote> </dd> <dd id="disabledforeground"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> <td><code><b>-disabledforeground</b></code></td> </tr> <tr> <td>Database Name:</td> <td><code><b> disabledForeground</b></code></td> </tr> <tr> <td>Database Class:</td> <td><code><b> DisabledForeground</b></code></td> </tr> </table> <blockquote> <p>This option, which is only supported for Tk versions 8.4 or higher, specifies the foreground color to use for all entry and label children of the given multi-entry widget when it is disabled. If the value of this option is the empty string then the normal foreground color is used. This option is only supported by the Mentry package, but not by Mentry_tile.</p> </blockquote> </dd> <dd id="readonlybackground"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> <td><code><b>-readonlybackground</b></code></td> </tr> <tr> <td>Database Name:</td> <td><code><b> readonlyBackground</b></code></td> </tr> <tr> <td>Database Class:</td> <td><code><b> ReadonlyBackground</b></code></td> </tr> </table> <blockquote> <p>This option, which is only supported for Tk versions 8.4 or higher, specifies the background color to use for all entry and label children of the given multi-entry widget when it is readonly. If the value of this option is the empty string then the normal background color is used. This option is only supported by the Mentry package, but not by Mentry_tile.</p> </blockquote> </dd> <dd id="takefocus"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> <td><code><b>-takefocus</b></code></td> </tr> <tr> <td>Database Name:</td> <td><code><b> takeFocus</b></code></td> </tr> <tr> <td>Database Class:</td> <td><code><b> TakeFocus</b></code></td> </tr> </table> <blockquote> <p>This option determines whether the widget accepts the focus during keyboard traversal. It is almost identical to the standard option |
︙ | ︙ | |||
469 470 471 472 473 474 475 | </blockquote> </dd> <dd id="textvariable"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> | < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | < < | 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 | </blockquote> </dd> <dd id="textvariable"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td>Command-Line Name: </td> <td><code><b>-textvariable</b></code></td> </tr> <tr> <td>Database Name:</td> <td><code><b> textvariable</b></code></td> </tr> <tr> <td>Database Class:</td> <td><code><b> Variable</b></code></td> </tr> </table> <blockquote> <p>If the value of this option is not an empty string then it must be an array. In this case, for each entry child of the given multi-entry widget the value of the array element with the index of the entry as element name specifies the value of the <code><b>-textvariable</b></code> option for that entry. The entry indices start with <code>0</code>. For example, specifying <code>-textvariable arr</code> for a multi-entry widget having two entry children is equivalent to specifying <code>-textvariable arr(0)</code> for the first and <code>-textvariable arr(1)</code> for the second entry child of that widget.</p> </blockquote> </dd> <dt id="indices"><b>INDICES</b></dt> <dd>Some of the widget commands for mentries take an index as argument. An index specifies a particular entry or label child of the mentry, in any of the following ways:</dd> <dd class="tm"> <table border="0" cellpadding="6" cellspacing="0"> <tr valign="top"> <td><code><i>number </i></code></td> <td>Specifies the child as a numerical index, where <code>0</code> corresponds to the first entry or label child.</td> </tr> <tr valign="top"> <td><code><b>end</b></code></td> <td>Indicates the last entry or label child of the mentry.</td> </tr> </table> </dd> <dd class="tm">The word <code><b>end</b></code> can be abbreviated as <code><b>en</b></code> or <code><b>e</b></code>. Out-of-range indices |
︙ | ︙ |
Changes to modules/mentry/doc/wcbRef.html.
1 2 3 4 5 6 7 8 9 10 11 | <html> <head> <title>Wcb Command Reference</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content= "callback, widget, Tk entry, tile entry, BWidget Entry, Tk spinbox, tile spinbox, tile combobox, listbox, tablelist, tile treeview, text, ctext"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> | > | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | <!DOCTYPE html> <html> <head> <title>Wcb Command Reference</title> <meta name="Author" content="Csaba Nemethi"> <meta name="Keywords" content= "callback, widget, Tk entry, tile entry, BWidget Entry, Tk spinbox, tile spinbox, tile combobox, listbox, tablelist, tile treeview, text, ctext"> <link rel="stylesheet" type="text/css" href="stylesheet.css"> </head> <body> <div align="center"> <h1>Wcb Command Reference</h1> <h2>For Wcb Version 3.6</h2> <h3>by</h3> <h2>Csaba Nemethi</h2> <address> <a href="mailto:[email protected]">[email protected]</a> </address> </div> <hr> <h2 id="contents">Contents</h2> <ul> <li><a href="#callback">The <code><b>wcb::callback</b></code> Command</a></li> |
︙ | ︙ | |||
68 69 70 71 72 73 74 75 76 77 78 79 80 81 | <li><a href="#textcb">Before-<code><b>insert</b></code> Callbacks for text and ctext Widgets</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="callback">The <code><b>wcb::callback</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | <li><a href="#textcb">Before-<code><b>insert</b></code> Callbacks for text and ctext Widgets</a></li> </ul> <div align="center"> <p><a href="index.html">Start page</a></p> </div> <hr> <h2 id="callback">The <code><b>wcb::callback</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
438 439 440 441 442 443 444 445 446 447 448 449 450 451 | spinbox, tile combobox, listbox, tablelist, tile treeview, text, ctext</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="cbappend">The <code><b>wcb::cbappend</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 | spinbox, tile combobox, listbox, tablelist, tile treeview, text, ctext</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="cbappend">The <code><b>wcb::cbappend</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
473 474 475 476 477 478 479 480 481 482 483 484 485 486 | <dd>callback, append, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="cbprepend">The <code><b>wcb::cbprepend</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 | <dd>callback, append, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="cbprepend">The <code><b>wcb::cbprepend</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
508 509 510 511 512 513 514 515 516 517 518 519 520 521 | <dd>callback, prepend, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="cancel">The <code><b>wcb::cancel</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 | <dd>callback, prepend, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="cancel">The <code><b>wcb::cancel</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
546 547 548 549 550 551 552 553 554 555 556 557 558 559 | <dd>cancel, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="canceled">The <code><b>wcb::canceled</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 | <dd>cancel, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="canceled">The <code><b>wcb::canceled</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
583 584 585 586 587 588 589 590 591 592 593 594 595 596 | <dd>cancel, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="extend">The <code><b>wcb::extend</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 | <dd>cancel, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="extend">The <code><b>wcb::extend</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
622 623 624 625 626 627 628 629 630 631 632 633 634 635 | <dd>extend, argument, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="replace">The <code><b>wcb::replace</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 | <dd>extend, argument, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="replace">The <code><b>wcb::replace</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
664 665 666 667 668 669 670 671 672 673 674 675 676 677 | <dd>replace, argument, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="pathname">The <code><b>wcb::pathname</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 | <dd>replace, argument, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="pathname">The <code><b>wcb::pathname</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
704 705 706 707 708 709 710 711 712 713 714 715 716 717 | <dd>path name, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="changeEntryText">The <code><b>wcb::changeEntryText</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 | <dd>path name, command, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="changeEntryText">The <code><b>wcb::changeEntryText</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
749 750 751 752 753 754 755 756 757 758 759 760 761 762 | combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="postInsertEntryLen">The <code><b>wcb::postInsertEntryLen</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 | combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="postInsertEntryLen">The <code><b>wcb::postInsertEntryLen</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
786 787 788 789 790 791 792 793 794 795 796 797 798 799 | tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="postInsertEntryText">The <code><b>wcb::postInsertEntryText</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 | tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="postInsertEntryText">The <code><b>wcb::postInsertEntryText</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
823 824 825 826 827 828 829 830 831 832 833 834 835 836 | tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="postDeleteEntryText">The <code><b>wcb::postDeleteEntryText</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> | > | 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 | tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="postDeleteEntryText">The <code><b>wcb::postDeleteEntryText</b></code> Command</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
865 866 867 868 869 870 871 | way to invoke this command from within a before-<code><b>delete</b></code> callback is as shown in the following example:</dd> <dd> <blockquote> <pre> proc myBeforeDeleteCallback {w args} { | < > | | > | 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 | way to invoke this command from within a before-<code><b>delete</b></code> callback is as shown in the following example:</dd> <dd> <blockquote> <pre> proc myBeforeDeleteCallback {w args} { <span class="cmt"># # Get the text that would be contained in the widget after # deleting the characters specified by $args, which stands # for the one or two arguments passed to delete; pass these # arguments to wcb::postDeleteEntryText by expanding $args #</span> set newText [eval [list wcb::postDeleteEntryText $w] $args] if {!<i>some_condition_on_</i>$newText} { wcb::cancel } } </pre> </blockquote> </dd> <dd>The following alternative, more elegant solution requires Tcl/Tk 8.5 or later:</dd> <dd> <blockquote> <pre> proc myBeforeDeleteCallback {w args} { <span class="cmt"># . . .</span> set newText [wcb::postDeleteEntryText $w {*}$args] . . . } </pre> </blockquote> </dd> <dt><b>KEYWORDS</b></dt> <dd>delete, Tk entry, tile entry, BWidget Entry, Tk spinbox, tile spinbox, tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="entrycb">Before-<code><b>insert</b></code> Callbacks for entry, spinbox, and combobox Widgets</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ | |||
1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 | spinbox, tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="textcb">Before-<code><b>insert</b></code> Callbacks for text and ctext Widgets</h2> <dl> <dt><b>NAME</b></dt> | > | 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 | spinbox, tile combobox, widget</dd> </dl> <div align="center"> <p><a href="#contents">Contents</a> <a href= "index.html">Start page</a></p> </div> <hr> <h2 id="textcb">Before-<code><b>insert</b></code> Callbacks for text and ctext Widgets</h2> <dl> <dt><b>NAME</b></dt> |
︙ | ︙ |