4 #puts [winfo vrootwidth .]
5 #puts [winfo vrootheight .]
7 wm title . {Hourglass sitetool}
10 ## Tell embedding newlisp to (exit)
11 bind . <Destroy> {puts {newLISP: (exit)}}
15 proc tooltipOn {w name} {
16 if {![winfo exist .balloon]} {
18 wm overrideredirect .balloon 1
19 label .balloon.l -foreground blue -background lightyellow \
20 -highlightthick 0 -relief solid -borderwidth 1 \
21 -font {sanserif} -textvariable balloon_text \
22 -justify left -wrap 480 -padx 10
26 set ::balloon_text $desc($name)
27 set x [expr {[winfo rootx $w]+10}]
28 set y [expr {[winfo rooty $w]+[winfo height $w]+5}]
29 set g [format +%d+%d $x $y]
30 # This is probably overdoing it, but better too much than too little
31 wm geometry .balloon $g
33 wm geometry .balloon $g
35 after idle "[list wm geometry .balloon $g]; raise .balloon"
39 if {[winfo exist .balloon]} {
44 proc setting {name defval} {
47 set wname .fr.settings.name$count ;
48 set wvalue .fr.settings.value$count ;
49 set weq .fr.settings.eq$count ;
50 label $wname -text "$name" -font sanserif;
52 text $wvalue -height 1 -wrap none -padx 4 -font sanserif -width 30;
53 $wvalue insert end "$defval";
54 grid $wname -row $count -column 0;
55 grid $weq -row $count -column 1;
56 grid $wvalue -row $count -column 2;
57 #pack .fr.settings ; #grid $me -row $count -column 0 -sticky w;
58 bind $wname <Enter> [list tooltipOn $wname $name]
59 bind $wname <Leave> {tooltipOff}
64 grid columnconfigure .fr.settings 0 -weight 1 -uniform A;
66 setting {listener.net} {192.168.255}
67 setting {listener.ports} {80 443 1080}
68 setting {listener.activity.dir} {activity}
69 setting {listener.tap} {hourglass}
71 setting {control.action} {ipset-control.lsp}
72 setting {control.dat} {control.dat}
73 setting {control.net} {10.0.0.0/24}
74 setting {control.extra.dat} {control-extra.dat}
75 setting {control.usage.dat} {usage.dat}
76 setting {control.usage.tmp} {.usage.dat}
77 setting {control.activity.gap} {10}
78 setting {control.activity.clip} {1000}
80 setting {ipset.bin} {/usr/sbin/ipset}
81 setting {ipset.table} {TIMO}
83 setting {wui.port} {1070}
84 setting {wui.passwd} {htpasswd}
86 button .fr.exit -text "exit" -command {exit}
89 grid .fr -column 0 -row 0 -sticky w -padx {10 4} -pady {12 0}