Finding a record
Locating a record is a common procedure in most data-driven applications. In our application, we have limited this to locating the first occurrence by last name. To accomplish this, we will create a new toplevel window to request input and trigger procedures that interact with our main window.
How to do it…
In the address book file, enter the following text at the location defined in our main page for procedures, as defined within the comments after the previous section's procedures.
proc findRecord { } {
set strLast ""
toplevel .find
frame .find.f -borderwidth 1 -relief solid -padx 10 -pady 10
entry .find.f.e -borderwidth 5 -relief solid
button .find.f.ok -text "Find" -command {set strLast [.find.f.e \ get]; lookup $strLast}
button .find.f.cancel -text "Cancel" -command {destroy .find}
pack .find.f
grid .find.f.e -row 0 -column 0 -columnspan 2 -sticky news
grid .find.f.ok -row 1 -column 0 -sticky news
grid .find.f.cancel -row 1 -column 1 -sticky news
}
proc lookup {strLast...
