Lines Matching refs:as
17 toplevel .as
18 wm title .as "Site setup"
19 pack [label .as.l -text "Where is the Tequila server?"] \
20 [entry .as.e -width 30 -textvariable as_host] \
21 [button .as.b -text "OK" -command {set as_status 1}] -padx 4 -pady 4
22 bind .as <Return> {.as.b invoke}
23 bind .as <Escape> {exit}
24 wm protocol .as WM_DELETE_WINDOW {exit}
26 raise .as
27 .as.e selection adjust end
28 focus .as.e
30 destroy .as