1 2############################ 3# code to load stock images 4 5 6if {![info exist vTcl(sourcing)]} { 7proc vTcl:rename {name} { 8 9 regsub -all "\\." $name "_" ret 10 regsub -all "\\-" $ret "_" ret 11 regsub -all " " $ret "_" ret 12 regsub -all "/" $ret "__" ret 13 14 return [string tolower $ret] 15} 16 17proc vTcl:image:create_new_image {filename description type} { 18 19 global vTcl env 20 21 # image already existing ? 22 if [info exists vTcl(images,files)] { 23 24 set index [lsearch -exact $vTcl(images,files) $filename] 25 26 if {$index != "-1"} { 27 # cool, no more work to do 28 return 29 } 30 } 31 32 # wait a minute... does the file actually exist? 33 if {! [file exists $filename] } { 34 35 # try current directory 36 set script [file dirname [info script]] 37 set filename [file join $script [file tail $filename] ] 38 39 # puts "looking for $filename..." 40 } 41 42 if {! [file exists $filename] } { 43 44 set description "file not found!" 45 46 set object [image create bitmap -data { 47 #define open_width 16 48 #define open_height 16 49 static char open_bits[] = { 50 0x7F, 0xFE, 51 0x41, 0x82, 52 0x21, 0x81, 53 0x41, 0x82, 54 0x21, 0x81, 55 0x21, 0x81, 56 0x21, 0x81, 57 0x91, 0x80, 58 0x21, 0x81, 59 0x91, 0x80, 60 0x21, 0x81, 61 0x21, 0x81, 62 0x21, 0x81, 63 0x41, 0x82, 64 0x41, 0x82, 65 0x7F, 0xFE};}] 66 67 } else { 68 69 set object [image create [vTcl:image:get_creation_type $filename] -file $filename] 70 } 71 72 set reference [vTcl:rename $filename] 73 74 set vTcl(images,$reference,image) $object 75 set vTcl(images,$reference,description) $description 76 set vTcl(images,$reference,type) $type 77 set vTcl(images,filename,$object) $filename 78 79 lappend vTcl(images,files) $filename 80 81 # return image name in case caller might want it 82 return $object 83} 84 85proc vTcl:image:get_image {filename} { 86 87 global vTcl 88 set reference [vTcl:rename $filename] 89 90 # let's do some checking first 91 if {! [info exists vTcl(images,$reference,image)] } { 92 93 # well, the path may be wrong; in that case check 94 # only the filename instead, without the path 95 96 set imageTail [file tail $filename] 97 98 foreach oneFile $vTcl(images,files) { 99 100 if { [file tail $oneFile] == $imageTail } { 101 102 set reference [vTcl:rename $oneFile] 103 break 104 } 105 } 106 } 107 108 return $vTcl(images,$reference,image) 109} 110 111proc vTcl:image:get_creation_type {filename} { 112 113 set ext [file extension $filename] 114 set ext [string tolower $ext] 115 116 switch $ext { 117 118 .ppm - 119 .gif {return photo} 120 .xbm {return bitmap} 121 122 default {return photo} 123 } 124} 125 126vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/copy.gif" \ 127 "" \ 128 "stock" 129vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/cut.gif" \ 130 "" \ 131 "stock" 132vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/paste.gif" \ 133 "" \ 134 "stock" 135vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/new.gif" \ 136 "" \ 137 "stock" 138vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/open.gif" \ 139 "" \ 140 "stock" 141vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/save.gif" \ 142 "" \ 143 "stock" 144vTcl:image:create_new_image "/usr/local/vtcl-1.2.2/images/edit/replace.gif" \ 145 "" \ 146 "stock" 147} 148############################ 149# code to load user images 150 151############################ 152# code to load stock fonts 153 154 155if {![info exist vTcl(sourcing)]} { 156set vTcl(fonts,counter) 0 157proc vTcl:font:add_font {font_descr font_type newkey} { 158 159 global vTcl 160 161 incr vTcl(fonts,counter) 162 set newfont [eval font create $font_descr] 163 164 lappend vTcl(fonts,objects) $newfont 165 166 # each font has its unique key so that when a project is 167 # reloaded, the key is used to find the font description 168 169 if {$newkey == ""} { 170 set newkey vTcl:font$vTcl(fonts,counter) 171 } 172 173 set vTcl(fonts,$newfont,type) $font_type 174 set vTcl(fonts,$newfont,key) $newkey 175 set vTcl(fonts,$vTcl(fonts,$newfont,key),object) $newfont 176 177 # in case caller needs it 178 return $newfont 179} 180 181proc vTcl:font:get_font {key} { 182 183 global vTcl 184 185 return $vTcl(fonts,$key,object) 186} 187 188vTcl:font:add_font \ 189 "-family helvetica -size 12 -weight normal -slant roman -underline 0 -overstrike 0" \ 190 stock \ 191 vTcl:font1 192vTcl:font:add_font \ 193 "-family helvetica -size 12 -weight normal -slant roman -underline 1 -overstrike 0" \ 194 stock \ 195 underline 196vTcl:font:add_font \ 197 "-family courier -size 12 -weight normal -slant roman -underline 0 -overstrike 0" \ 198 stock \ 199 vTcl:font3 200vTcl:font:add_font \ 201 "-family times -size 12 -weight normal -slant roman -underline 0 -overstrike 0" \ 202 stock \ 203 vTcl:font4 204vTcl:font:add_font \ 205 "-family helvetica -size 12 -weight bold -slant roman -underline 0 -overstrike 0" \ 206 stock \ 207 vTcl:font5 208vTcl:font:add_font \ 209 "-family courier -size 12 -weight bold -slant roman -underline 0 -overstrike 0" \ 210 stock \ 211 vTcl:font6 212vTcl:font:add_font \ 213 "-family times -size 12 -weight bold -slant roman -underline 0 -overstrike 0" \ 214 stock \ 215 vTcl:font7 216vTcl:font:add_font \ 217 "-family lucida -size 18 -weight normal -slant roman -underline 0 -overstrike 0" \ 218 stock \ 219 vTcl:font8 220vTcl:font:add_font \ 221 "-family lucida -size 18 -weight normal -slant italic -underline 0 -overstrike 0" \ 222 stock \ 223 vTcl:font9 224} 225############################ 226# code to load user fonts 227 228vTcl:font:add_font \ 229 "-family fixed -size 9 -weight normal -slant roman -underline 0 -overstrike 0" \ 230 user \ 231 vTcl:font10 232############################################################################# 233# Visual Tcl v1.22 Project 234# 235 236################################# 237# GLOBAL VARIABLES 238# 239global algo; 240global askuserspec; 241global compress; 242global compressval; 243global configs; 244global connwait; 245global fork; 246global gateway; 247global ipverconnect; 248global launcher; 249global noagentforward; 250global noexec; 251global nopriv; 252global quiet; 253global sshverconnect; 254global stricthost; 255global termicon; 256global verbose; 257global widget; 258 set widget(.vTcl.fontmgr.listbox) {.vTcl.fontmgr.fra28.cpd29.01} 259 set widget(.vTcl.fontmgr.text) {.vTcl.fontmgr.cpd43.03} 260 set widget(addent) {.top17.fra44.fra19.fra28.02} 261 set widget(agentent) {.top17.fra44.fra19.fra27.02} 262 set widget(askeduser) {.top21.fra22.ent24} 263 set widget(askpassent) {.top17.fra44.fra19.fra29.02} 264 set widget(backbutton) {.top53.fra29.but33} 265 set widget(browserent) {.top17.fra44.fra19.fra18.02} 266 set widget(cfgfileent) {.top17.fra21.fra24.ent21} 267 set widget(commandent) {.top17.fra21.fra24.ent26} 268 set widget(comment) {.top17.fra21.ent23} 269 set widget(commentent) {.top17.ent32} 270 set widget(comprlev) {.top17.fra21.fra25.02} 271 set widget(configsbut) {.top17.fra30.fra19.but24} 272 set widget(confirmframe) {.top53.fra42} 273 set widget(connectsbut) {.top17.fra30.fra19.but20} 274 set widget(contbutton) {.top53.fra29.but31} 275 set widget(defsites) {.top17.fra46.fra24.fra25.01} 276 set widget(distconnlist) {.top53.fra34.cpd35.01} 277 set widget(distkeyent) {.top17.fra35.ent40} 278 set widget(distkeyentry) {.top53.fra20.fra26.ent28} 279 set widget(distkeylist) {.top53.fra20.cpd22.01} 280 set widget(distuserlist) {.top53.fra39.01.02} 281 set widget(finishmessage) {.top53.fra42.mes44} 282 set widget(host) {.top17.fra21.ent25} 283 set widget(hostent) {.top17.fra21.fra24.ent20} 284 set widget(hostframe) {.top53.fra34} 285 set widget(hostkeyview) {.top19.cpd21.03} 286 set widget(identityent) {.top17.fra21.fra24.ent19} 287 set widget(identpath) {.top52.fra18.ent26} 288 set widget(idents) {.top17.fra35.fra20.fra22.01} 289 set widget(inport) {.top17.fra21.ent27} 290 set widget(keydisthost) {.top17.fra35.fra17.cpd29.01} 291 set widget(keydistkey) {.top17.fra35.fra17.ent23} 292 set widget(keydistuser) {.top17.fra35.fra17.fra17.01} 293 set widget(keyframe) {.top53.fra20} 294 set widget(keygenent) {.top17.fra44.fra19.fra26.02} 295 set widget(keylist) {.top52.fra34.cpd17.01} 296 set widget(keysbut) {.top17.fra30.fra19.but23} 297 set widget(knownhosts) {.top50.fra51.cpd54.01} 298 set widget(lfcomment) {.top43.lab25} 299 set widget(lfcommentent) {.top43.fra45.ent34} 300 set widget(lfhost) {.top43.fra45.ent17} 301 set widget(lfin) {.top43.fra45.ent46} 302 set widget(lforwards) {.top43.cpd44.01} 303 set widget(lfout) {.top43.fra45.ent48} 304 set widget(messageline) {.top53.lab17} 305 set widget(newaddr) {.top40.fra21.ent25} 306 set widget(newtit) {.top40.fra21.ent23} 307 set widget(newuser) {.top40.fra21.ent27} 308 set widget(outport) {.top17.fra21.ent29} 309 set widget(pe) {.top17.fra21.fra48.fra19.ent20} 310 set widget(portent) {.top17.fra21.fra24.ent24} 311 set widget(profileent) {.top17.fra21.fra48.fra19.ent20} 312 set widget(profiles) {.top17.fra21.fra48.cpd18.01} 313 set widget(profilesbut) {.top17.fra30.fra19.but22} 314 set widget(proplabel) {.top20.lab36} 315 set widget(remotekeysfile) {.top40.fra54.cpd57.03} 316 set widget(remotercfile) {.top40.fra42.cpd49.03} 317 set widget(remoteshostsfile) {.top40.fra41.cpd50.03} 318 set widget(rev,.top17.cpd18.03) {textfield} 319 set widget(rev,.top17.cpd31.01) {textfield} 320 set widget(rev,.top17.ent32) {commentent} 321 set widget(rev,.top17.fra17.lab18) {status} 322 set widget(rev,.top17.fra17.lab19) {statusagent} 323 set widget(rev,.top17.fra21.ent23) {comment} 324 set widget(rev,.top17.fra21.ent25) {host} 325 set widget(rev,.top17.fra21.ent27) {inport} 326 set widget(rev,.top17.fra21.ent29) {outport} 327 set widget(rev,.top17.fra21.fra24.ent18) {titleent} 328 set widget(rev,.top17.fra21.fra24.ent19) {identityent} 329 set widget(rev,.top17.fra21.fra24.ent20) {hostent} 330 set widget(rev,.top17.fra21.fra24.ent21) {cfgfileent} 331 set widget(rev,.top17.fra21.fra24.ent22) {userent} 332 set widget(rev,.top17.fra21.fra24.ent24) {portent} 333 set widget(rev,.top17.fra21.fra24.ent26) {commandent} 334 set widget(rev,.top17.fra21.fra24.ent42) {subsysent} 335 set widget(rev,.top17.fra21.fra25.02) {comprlev} 336 set widget(rev,.top17.fra21.fra25.fra23.ent26) {identityent} 337 set widget(rev,.top17.fra21.fra48.cpd18.01) {profiles} 338 set widget(rev,.top17.fra21.fra48.fra19.ent20) {pe} 339 set widget(rev,.top17.fra27.fra30.cpd31.01) {scphosts} 340 set widget(rev,.top17.fra27.fra30.cpd32.01) {scpusers} 341 set widget(rev,.top17.fra30.but26) {sscreenbut} 342 set widget(rev,.top17.fra30.fra19.but20) {connectsbut} 343 set widget(rev,.top17.fra30.fra19.but21) {scpbut} 344 set widget(rev,.top17.fra30.fra19.but22) {profilesbut} 345 set widget(rev,.top17.fra30.fra19.but23) {keysbut} 346 set widget(rev,.top17.fra30.fra19.but24) {configsbut} 347 set widget(rev,.top17.fra35.ent40) {distkeyent} 348 set widget(rev,.top17.fra35.fra17.cpd29.01) {keydisthost} 349 set widget(rev,.top17.fra35.fra17.ent23) {keydistkey} 350 set widget(rev,.top17.fra35.fra17.fra17.01) {keydistuser} 351 set widget(rev,.top17.fra35.fra17.fra33.ent35) {keydistuser} 352 set widget(rev,.top17.fra35.fra20.fra22.01) {idents} 353 set widget(rev,.top17.fra44.ent25) {sshbinent} 354 set widget(rev,.top17.fra44.fra17.ent19) {xterment} 355 set widget(rev,.top17.fra44.fra19.fra17.ent20) {scanent} 356 set widget(rev,.top17.fra44.fra19.fra18.02) {browserent} 357 set widget(rev,.top17.fra44.fra19.fra20.ent22) {sshent} 358 set widget(rev,.top17.fra44.fra19.fra26.02) {keygenent} 359 set widget(rev,.top17.fra44.fra19.fra27.02) {agentent} 360 set widget(rev,.top17.fra44.fra19.fra28.02) {addent} 361 set widget(rev,.top17.fra44.fra19.fra29.02) {askpassent} 362 set widget(rev,.top17.fra44.fra19.fra32.02) {xterment} 363 set widget(rev,.top17.fra44.fra19.fra34.ent36) {scpent} 364 set widget(rev,.top17.fra44.fra29.ent25) {sshent} 365 set widget(rev,.top17.fra46.fra24.fra25.01) {defsites} 366 set widget(rev,.top17.fra46.fra26.fra27.01) {specsites} 367 set widget(rev,.top19.cpd20.03) {viewkey} 368 set widget(rev,.top19.cpd21.03) {hostkeyview} 369 set widget(rev,.top20.lab36) {proplabel} 370 set widget(rev,.top21.fra22.ent24) {askeduser} 371 set widget(rev,.top27.fra26.01) {sspecsites} 372 set widget(rev,.top34.fra35.cpd38.01) {scpdirsl} 373 set widget(rev,.top34.fra35.cpd39.01) {scpfilesl} 374 set widget(rev,.top34.fra37.cpd40.01) {scpdirsr} 375 set widget(rev,.top34.fra37.cpd41.01) {scpfilesr} 376 set widget(rev,.top40.fra21.ent23) {newtit} 377 set widget(rev,.top40.fra21.ent25) {newaddr} 378 set widget(rev,.top40.fra21.ent27) {newuser} 379 set widget(rev,.top40.fra41.cpd50.03) {remoteshostsfile} 380 set widget(rev,.top40.fra42.cpd49.03) {remotercfile} 381 set widget(rev,.top40.fra54.cpd57.03) {remotekeysfile} 382 set widget(rev,.top43.cpd44.01) {lforwards} 383 set widget(rev,.top43.fra45.ent17) {lfhost} 384 set widget(rev,.top43.fra45.ent34) {lfcommentent} 385 set widget(rev,.top43.fra45.ent46) {lfin} 386 set widget(rev,.top43.fra45.ent48) {lfout} 387 set widget(rev,.top43.lab25) {lfcomment} 388 set widget(rev,.top50.fra51.cpd54.01) {knownhosts} 389 set widget(rev,.top51.cpd53.01) {rforwards} 390 set widget(rev,.top51.fra36.01) {rfin} 391 set widget(rev,.top51.fra36.011) {rfcommentent} 392 set widget(rev,.top51.fra36.03) {rfout} 393 set widget(rev,.top51.fra36.08) {rfhost} 394 set widget(rev,.top51.fra54.ent18) {rfhost} 395 set widget(rev,.top51.fra54.ent55) {rfin} 396 set widget(rev,.top51.fra54.ent57) {rfout} 397 set widget(rev,.top51.lab24) {rfcomment} 398 set widget(rev,.top52.fra18.ent26) {identpath} 399 set widget(rev,.top52.fra34.cpd17.01) {keylist} 400 set widget(rev,.top53.fra20) {keyframe} 401 set widget(rev,.top53.fra20.cpd22.01) {distkeylist} 402 set widget(rev,.top53.fra20.fra26.ent28) {distkeyentry} 403 set widget(rev,.top53.fra29.but31) {contbutton} 404 set widget(rev,.top53.fra29.but33) {backbutton} 405 set widget(rev,.top53.fra34) {hostframe} 406 set widget(rev,.top53.fra34.cpd35.01) {distconnlist} 407 set widget(rev,.top53.fra39) {userframe} 408 set widget(rev,.top53.fra39.01.02) {distuserlist} 409 set widget(rev,.top53.fra42) {confirmframe} 410 set widget(rev,.top53.fra42.mes44) {finishmessage} 411 set widget(rev,.top53.lab17) {messageline} 412 set widget(rev,.vTcl.fontmgr.cpd43.03) {.vTcl.fontmgr.text} 413 set widget(rev,.vTcl.fontmgr.fra28.cpd29.01) {.vTcl.fontmgr.listbox} 414 set widget(rfcomment) {.top51.lab24} 415 set widget(rfcommentent) {.top51.fra36.011} 416 set widget(rfhost) {.top51.fra36.08} 417 set widget(rfin) {.top51.fra36.01} 418 set widget(rforwards) {.top51.cpd53.01} 419 set widget(rfout) {.top51.fra36.03} 420 set widget(scanent) {.top17.fra44.fra19.fra17.ent20} 421 set widget(scpbut) {.top17.fra30.fra19.but21} 422 set widget(scpdirsl) {.top34.fra35.cpd38.01} 423 set widget(scpdirsr) {.top34.fra37.cpd40.01} 424 set widget(scpent) {.top17.fra44.fra19.fra34.ent36} 425 set widget(scpfilesl) {.top34.fra35.cpd39.01} 426 set widget(scpfilesr) {.top34.fra37.cpd41.01} 427 set widget(scphosts) {.top17.fra27.fra30.cpd31.01} 428 set widget(scpusers) {.top17.fra27.fra30.cpd32.01} 429 set widget(specsites) {.top17.fra46.fra26.fra27.01} 430 set widget(sscreenbut) {.top17.fra30.but26} 431 set widget(sshbinent) {.top17.fra44.ent25} 432 set widget(sshent) {.top17.fra44.fra19.fra20.ent22} 433 set widget(sspecsites) {.top27.fra26.01} 434 set widget(status) {.top17.fra17.lab18} 435 set widget(statusagent) {.top17.fra17.lab19} 436 set widget(subsysent) {.top17.fra21.fra24.ent42} 437 set widget(textfield) {.top17.cpd31.01} 438 set widget(titleent) {.top17.fra21.fra24.ent18} 439 set widget(userent) {.top17.fra21.fra24.ent22} 440 set widget(userframe) {.top53.fra39} 441 set widget(viewkey) {.top19.cpd20.03} 442 set widget(xterment) {.top17.fra44.fra19.fra32.02} 443global x11forward; 444 445################################# 446# USER DEFINED PROCEDURES 447# 448 449proc {Window} {args} { 450global vTcl 451 set cmd [lindex $args 0] 452 set name [lindex $args 1] 453 set newname [lindex $args 2] 454 set rest [lrange $args 3 end] 455 if {$name == "" || $cmd == ""} {return} 456 if {$newname == ""} { 457 set newname $name 458 } 459 set exists [winfo exists $newname] 460 switch $cmd { 461 show { 462 if {$exists == "1" && $name != "."} {wm deiconify $name; return} 463 if {[info procs vTclWindow(pre)$name] != ""} { 464 eval "vTclWindow(pre)$name $newname $rest" 465 } 466 if {[info procs vTclWindow$name] != ""} { 467 eval "vTclWindow$name $newname $rest" 468 } 469 if {[info procs vTclWindow(post)$name] != ""} { 470 eval "vTclWindow(post)$name $newname $rest" 471 } 472 } 473 hide { if $exists {wm withdraw $newname; return} } 474 iconify { if $exists {wm iconify $newname; return} } 475 destroy { if $exists {destroy $newname; return} } 476 } 477} 478 479 480################################# 481# VTCL GENERATED GUI PROCEDURES 482# 483 484proc vTclWindow. {base {container 0}} { 485 if {$base == ""} { 486 set base . 487 } 488 ################### 489 # CREATING WIDGETS 490 ################### 491 if {!$container} { 492 wm focusmodel $base passive 493 wm geometry $base 115x1+0+0 494 wm maxsize $base 1009 738 495 wm minsize $base 115 1 496 wm overrideredirect $base 0 497 wm resizable $base 1 1 498 wm withdraw $base 499 wm title $base "vt.tcl" 500 } 501 ################### 502 # SETTING GEOMETRY 503 ################### 504} 505 506proc vTclWindow.top17 {base {container 0}} { 507 if {$base == ""} { 508 set base .top17 509 } 510 if {[winfo exists $base] && (!$container)} { 511 wm deiconify $base; return 512 } 513 ################### 514 # CREATING WIDGETS 515 ################### 516 if {!$container} { 517 toplevel $base -class Toplevel \ 518 -borderwidth "4" -menu "$base.m17" -highlightcolor "#000000" 519 wm focusmodel $base passive 520 wm geometry $base 465x464 521 wm maxsize $base 1009 738 522 wm minsize $base 115 1 523 wm overrideredirect $base 0 524 wm resizable $base 1 1 525 wm deiconify $base 526 wm title $base "secpanel" 527 } 528 menu $base.m17 \ 529 -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 530 $base.m17 add cascade \ 531 -menu "$base.m17.men18" -label "Program" 532 $base.m17 add cascade \ 533 -menu "$base.m17.men31" -label "Config" 534 $base.m17 add cascade \ 535 -menu "$base.m17.men19" -label "Help" 536 menu $base.m17.men18 \ 537 -activeborderwidth "1" -borderwidth "1" -tearoff "0" 538 $base.m17.men18 add command \ 539 -command "historyman show" -label "Command history" 540 $base.m17.men18 add command \ 541 -command "command_trace view" -label "View trace window" 542 $base.m17.men18 add separator 543 $base.m17.men18 add command \ 544 -command "do_exit" -label "Exit" 545 menu $base.m17.men19 \ 546 -activeborderwidth "1" -borderwidth "1" -tearoff "0" 547 $base.m17.men19 add command \ 548 -label "Help Index (no help yet)" 549 $base.m17.men19 add cascade \ 550 -menu "$base.m17.men19.men17" -label "Update checks" 551 $base.m17.men19 add separator 552 $base.m17.men19 add command \ 553 -command "about" -label "About secpanel" 554 menu $base.m17.men19.men20 \ 555 -activeborderwidth "1" -borderwidth "1" -tearoff "0" 556 menu $base.m17.men19.men17 \ 557 -activeborderwidth "1" -borderwidth "1" -tearoff "0" 558 $base.m17.men19.men17 add command \ 559 -command "check_sources ssh" -label "Check for SSH updates" \ 560 -state "disabled" 561 $base.m17.men19.men17 add command \ 562 -command "check_sources sp" -label "See secpanel homepage" 563 menu $base.m17.men31 \ 564 -activeborderwidth "1" -borderwidth "1" -tearoff "0" 565 $base.m17.men31 add checkbutton \ 566 -variable "configs(protectdata)" -command "save_globals protectdata" \ 567 -label "Protect Data (not yet fully funct.)" 568 $base.m17.men31 add separator 569 $base.m17.men31 add command \ 570 -command "colorman 1" -label "Program colors" 571 $base.m17.men31 add command \ 572 -command "fontman show" -label "Program fonts" 573 $base.m17.men31 add checkbutton \ 574 -variable "configs(wingeom)" -command "save_globals geom" \ 575 -label "Remember window positions" 576 $base.m17.men31 add checkbutton \ 577 -variable "configs(startsat)" -command "save_globals startsat" \ 578 -label "Start into sat mode" 579 frame $base.fra21 \ 580 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 581 frame $base.fra21.fra23 \ 582 -height "75" -highlightcolor "#000000" -width "125" 583 checkbutton $base.fra21.fra23.01 \ 584 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 585 -text "No agent forwarding" -variable "noagentforward" 586 checkbutton $base.fra21.fra23.02 \ 587 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 588 -text "No X11 forwarding" -variable "x11forward" 589 checkbutton $base.fra21.fra23.che17 \ 590 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 591 -text "No priv. source port" -variable "nopriv" 592 checkbutton $base.fra21.fra23.che20 \ 593 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 594 -text "Verbose" -variable "verbose" 595 checkbutton $base.fra21.fra23.che21 \ 596 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Quiet" \ 597 -variable "quiet" 598 checkbutton $base.fra21.fra23.che22 \ 599 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 600 -text "Fork into background" -variable "fork" 601 checkbutton $base.fra21.fra23.che39 \ 602 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 603 -text "Strict hostkey check" -variable "stricthost" 604 checkbutton $base.fra21.fra23.che29 \ 605 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 606 -text "Wait after connection" -variable "connwait" 607 checkbutton $base.fra21.fra23.che30 \ 608 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 609 -text "Terminal iconified" -variable "termicon" 610 frame $base.fra21.fra24 \ 611 -height "75" -highlightcolor "#000000" -width "125" 612 label $base.fra21.fra24.lab17 \ 613 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Title:" 614 entry $base.fra21.fra24.ent18 \ 615 -borderwidth "1" -highlightcolor "#000000" -width "15" 616 label $base.fra21.fra24.lab19 \ 617 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 618 -relief "raised" -text "Host:" 619 entry $base.fra21.fra24.ent20 \ 620 -borderwidth "1" -highlightcolor "#000000" -width "15" 621 label $base.fra21.fra24.lab21 \ 622 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 623 -relief "raised" -text "User:" 624 entry $base.fra21.fra24.ent22 \ 625 -borderwidth "1" -highlightcolor "#000000" -width "15" 626 label $base.fra21.fra24.lab23 \ 627 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 628 -relief "raised" -text "Port:" 629 entry $base.fra21.fra24.ent24 \ 630 -borderwidth "1" -highlightcolor "#000000" -width "15" 631 label $base.fra21.fra24.lab25 \ 632 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 633 -relief "raised" -text "Exec:" 634 entry $base.fra21.fra24.ent26 \ 635 -borderwidth "1" -highlightcolor "#000000" -width "15" 636 checkbutton $base.fra21.fra24.che17 \ 637 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Ask" \ 638 -variable "askuserspec" 639 label $base.fra21.fra24.lab41 \ 640 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 641 -relief "raised" -text "Subsys:" 642 entry $base.fra21.fra24.ent42 \ 643 -borderwidth "1" -highlightcolor "#000000" -width "15" 644 checkbutton $base.fra21.fra24.che43 \ 645 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 646 -text "No Exec" -variable "noexec" 647 label $base.fra21.fra24.lab18 \ 648 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 649 -text "Identity:" 650 entry $base.fra21.fra24.ent19 \ 651 -borderwidth "1" -highlightcolor "#000000" -width "15" 652 label $base.fra21.fra24.lab20 \ 653 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 654 -text "Cfg-file:" 655 entry $base.fra21.fra24.ent21 \ 656 -borderwidth "1" -highlightcolor "#000000" -width "15" 657 button $base.fra21.fra24.but22 \ 658 -command "choosefile {} {} {} identityent" -highlightcolor "#000000" \ 659 -padx "9" -pady "3" -relief "groove" 660 button $base.fra21.fra24.but23 \ 661 -command "choosefile {} {} {} cfgfileent" -highlightcolor "#000000" \ 662 -padx "9" -pady "3" -relief "groove" 663 label $base.fra21.fra24.lab24 \ 664 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Algo:" 665 menubutton $base.fra21.fra24.men25 \ 666 -highlightcolor "#000000" -indicatoron "1" \ 667 -menu "$base.fra21.fra24.men25.01" -padx "4" -pady "3" \ 668 -relief "groove" -text "idea" -textvariable "algo" 669 menu $base.fra21.fra24.men25.01 \ 670 -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 671 $base.fra21.fra24.men25.01 add radiobutton \ 672 -value "default" -variable "algo" -label "default" 673 $base.fra21.fra24.men25.01 add radiobutton \ 674 -value "idea" -variable "algo" -label "idea" 675 $base.fra21.fra24.men25.01 add radiobutton \ 676 -value "des" -variable "algo" -label "des" 677 $base.fra21.fra24.men25.01 add radiobutton \ 678 -value "3des" -variable "algo" -label "3des" 679 $base.fra21.fra24.men25.01 add radiobutton \ 680 -value "blowfish" -variable "algo" -label "blowfish" 681 $base.fra21.fra24.men25.01 add radiobutton \ 682 -value "arcfour" -variable "algo" -label "arcfour" 683 $base.fra21.fra24.men25.01 add radiobutton \ 684 -value "none" -variable "algo" -label "none" 685 checkbutton $base.fra21.fra24.che26 \ 686 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 687 -text "Compression" -variable "compress" 688 scale $base.fra21.fra24.sca27 \ 689 -borderwidth "1" -highlightcolor "#000000" -orient "horizontal" \ 690 -showvalue "0" -sliderlength "20" -sliderrelief "groove" -to "9.0" \ 691 -troughcolor "#e2e2de" -variable "compressval" 692 label $base.fra21.fra24.lab28 \ 693 -borderwidth "0" -highlightcolor "#000000" -text "0" \ 694 -textvariable "compressval" 695 frame $base.fra21.fra26 \ 696 -height "75" -highlightcolor "#000000" -width "125" 697 button $base.fra21.fra26.01 \ 698 -anchor "w" -command "open_forwardings l" -highlightcolor "#000000" \ 699 -padx "9" -pady "3" -relief "groove" -text "Local forwards" 700 button $base.fra21.fra26.02 \ 701 -anchor "w" -command "open_forwardings r" -highlightcolor "#000000" \ 702 -padx "9" -pady "3" -relief "groove" -text "Remote forwards" 703 checkbutton $base.fra21.fra26.03 \ 704 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 705 -text "Run as gateway" -variable "gateway" 706 frame $base.fra21.fra48 \ 707 -borderwidth "2" -relief "groove" -height "75" \ 708 -highlightcolor "#000000" -width "110" 709 frame $base.fra21.fra48.cpd18 \ 710 -relief "raised" -height "30" -highlightcolor "#000000" -width "3" 711 listbox $base.fra21.fra48.cpd18.01 \ 712 -borderwidth "1" -height "3" -highlightcolor "#000000" -width "10" \ 713 -xscrollcommand "$base.fra21.fra48.cpd18.02 set" \ 714 -yscrollcommand "$base.fra21.fra48.cpd18.03 set" 715 bind $base.fra21.fra48.cpd18.01 <Double-Button-1> { 716 load_profile ssh 717 } 718 scrollbar $base.fra21.fra48.cpd18.02 \ 719 -borderwidth "1" -command "$base.fra21.fra48.cpd18.01 xview" \ 720 -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" \ 721 -troughcolor "#e2e2de" -width "10" 722 scrollbar $base.fra21.fra48.cpd18.03 \ 723 -borderwidth "1" -command "$base.fra21.fra48.cpd18.01 yview" \ 724 -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" \ 725 -width "10" 726 frame $base.fra21.fra48.fra19 \ 727 -height "75" -highlightcolor "#000000" -width "125" 728 entry $base.fra21.fra48.fra19.ent20 \ 729 -borderwidth "1" -highlightcolor "#000000" -width "2" 730 label $base.fra21.fra48.fra19.lab21 \ 731 -borderwidth "1" -highlightcolor "#000000" -text "Profile Name" 732 frame $base.fra21.fra48.fra40 \ 733 -height "75" -highlightcolor "#000000" -width "125" 734 button $base.fra21.fra48.fra40.but41 \ 735 -command "save_profile" -highlightcolor "#000000" -padx "9" -pady "3" \ 736 -relief "groove" -text "Save" 737 button $base.fra21.fra48.fra40.but42 \ 738 -command "delete_profile" -highlightcolor "#000000" -padx "9" \ 739 -pady "3" -relief "groove" -text "Delete" 740 button $base.fra21.fra48.fra40.but43 \ 741 -command "load_profile ssh" -highlightcolor "#000000" -padx "9" \ 742 -pady "3" -relief "groove" -text "Load" 743 button $base.fra21.fra48.fra40.but44 \ 744 -command "clear_profiles" -highlightcolor "#000000" -padx "9" \ 745 -pady "3" -relief "groove" -text "New" 746 frame $base.fra21.fra35 \ 747 -height "75" -highlightcolor "#000000" -width "125" 748 radiobutton $base.fra21.fra35.rad36 \ 749 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "IPv4" \ 750 -value "4" -variable "ipverconnect" 751 radiobutton $base.fra21.fra35.rad37 \ 752 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "IPv6" \ 753 -value "6" -variable "ipverconnect" 754 radiobutton $base.fra21.fra35.rad38 \ 755 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "SSH 1" \ 756 -value "1" -variable "sshverconnect" 757 radiobutton $base.fra21.fra35.rad39 \ 758 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "SSH 2" \ 759 -value "2" -variable "sshverconnect" 760 frame $base.fra30 \ 761 -height "75" -highlightcolor "#000000" -width "125" 762 frame $base.fra30.fra19 \ 763 -height "75" -highlightcolor "#000000" -width "125" 764 button $base.fra30.fra19.but20 \ 765 -command "changetab connect" -highlightcolor "#000000" -padx "9" \ 766 -pady "3" -relief "groove" 767 bind $base.fra30.fra19.but20 <Enter> { 768 showstatus "Lists of configured SSH connections" 769 } 770 bind $base.fra30.fra19.but20 <Leave> { 771 showstatus "" 772 } 773 button $base.fra30.fra19.but22 \ 774 -command "changetab ssh" -highlightcolor "#000000" -padx "9" \ 775 -pady "3" -relief "groove" 776 bind $base.fra30.fra19.but22 <Enter> { 777 showstatus "Manage connection profiles" 778 } 779 bind $base.fra30.fra19.but22 <Leave> { 780 showstatus "" 781 } 782 button $base.fra30.fra19.but23 \ 783 -command "changetab key" -highlightcolor "#000000" -padx "9" \ 784 -pady "3" -relief "groove" 785 bind $base.fra30.fra19.but23 <Enter> { 786 showstatus "Manage your keypairs" 787 } 788 bind $base.fra30.fra19.but23 <Leave> { 789 showstatus "" 790 } 791 button $base.fra30.fra19.but24 \ 792 -command "changetab terminal" -highlightcolor "#000000" -padx "9" \ 793 -pady "3" -relief "groove" 794 bind $base.fra30.fra19.but24 <Enter> { 795 showstatus "Configurations" 796 } 797 bind $base.fra30.fra19.but24 <Leave> { 798 showstatus "" 799 } 800 button $base.fra30.but26 \ 801 -borderwidth "0" -command "changetab small" -highlightcolor "#000000" \ 802 -padx "9" -pady "3" -relief "flat" 803 bind $base.fra30.but26 <Enter> { 804 showstatus "Switch to satellite GUI" 805 } 806 bind $base.fra30.but26 <Leave> { 807 showstatus "" 808 } 809 frame $base.fra35 \ 810 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 811 frame $base.fra35.fra17 \ 812 -borderwidth "2" -relief "groove" -height "75" \ 813 -highlightcolor "#000000" -width "125" 814 button $base.fra35.fra17.but17 \ 815 -command "keygen 0" -highlightcolor "#000000" -padx "9" -pady "3" \ 816 -relief "groove" -text "Manage keypairs" 817 button $base.fra35.fra17.but19 \ 818 -command "keygen dist" -highlightcolor "#000000" -relief "groove" \ 819 -text "Distribute public keys" 820 button $base.fra35.fra17.but18 \ 821 -command "hostkey edit" -highlightcolor "#000000" -padx "9" -pady "3" \ 822 -relief "groove" -text "Manage hostkeys" 823 label $base.fra35.fra17.lab19 \ 824 -anchor "w" -borderwidth "0" -highlightcolor "#000000" \ 825 -text "Key handling" -font "helvetica 10 bold" 826 frame $base.fra35.fra20 \ 827 -borderwidth "2" -relief "groove" -height "75" \ 828 -highlightcolor "#000000" -width "125" 829 button $base.fra35.fra20.but22 \ 830 -command "manage_agent launch" -highlightcolor "#000000" -padx "9" \ 831 -pady "3" -relief "groove" -text "Launch agent" 832 button $base.fra35.fra20.but26 \ 833 -command "manage_agent remident" -highlightcolor "#000000" -padx "9" \ 834 -pady "3" -relief "groove" -text "Remove identity" 835 checkbutton $base.fra35.fra20.che28 \ 836 -borderwidth "1" -command "save_globals agent" \ 837 -highlightcolor "#000000" -text "Launch agent at startup" \ 838 -variable "launcher" 839 frame $base.fra35.fra20.fra22 \ 840 -borderwidth "1" -height "30" -highlightcolor "#000000" -width "30" 841 listbox $base.fra35.fra20.fra22.01 \ 842 -borderwidth "1" -height "3" -highlightcolor "#000000" -width "18" \ 843 -xscrollcommand "$base.fra35.fra20.fra22.02 set" \ 844 -yscrollcommand "$base.fra35.fra20.fra22.03 set" 845 scrollbar $base.fra35.fra20.fra22.02 \ 846 -borderwidth "1" -command "$base.fra35.fra20.fra22.01 xview" \ 847 -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" \ 848 -troughcolor "#e2e2de" -width "10" 849 scrollbar $base.fra35.fra20.fra22.03 \ 850 -borderwidth "1" -command "$base.fra35.fra20.fra22.01 yview" \ 851 -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" \ 852 -width "10" 853 button $base.fra35.fra20.but20 \ 854 -command "manage_agent addident" -highlightcolor "#000000" -padx "9" \ 855 -pady "3" -relief "groove" -text "Add identity" 856 button $base.fra35.fra20.but17 \ 857 -command "manage_agent kill" -highlightcolor "#000000" -padx "9" \ 858 -pady "3" -relief "groove" -text "Kill agent" 859 label $base.fra35.fra20.lab28 \ 860 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 861 -text "SSH-Agent" -font "helvetica 10 bold" 862 button $base.fra35.fra20.but18 \ 863 -command "manage_agent chdef" -highlightcolor "#000000" -padx "9" \ 864 -pady "3" -relief "groove" -text "Set def. ident." 865 button $base.fra35.fra20.but188 \ 866 -command "manage_agent rmdef" -highlightcolor "#000000" -padx "9" \ 867 -pady "3" -relief "groove" -text "Remove def. ident." 868 button $base.fra35.fra20.but30 \ 869 -command "manage_agent info" -highlightcolor "#000000" -padx "9" \ 870 -pady "3" -relief "groove" -text "Agent info" 871 frame $base.fra44 \ 872 -borderwidth "1" -height "75" -highlightcolor "#000000" 873 frame $base.fra44.fra27 \ 874 -relief "groove" -height "75" -highlightcolor "#000000" 875 button $base.fra44.fra27.but28 \ 876 -command "save_globals bins" -highlightcolor "#000000" -padx "9" \ 877 -pady "3" -relief "groove" -text "Save" 878 frame $base.fra44.fra19 \ 879 -height "75" -highlightcolor "#000000" 880 frame $base.fra44.fra19.fra20 \ 881 -borderwidth "1" -height "75" -highlightcolor "#000000" 882 label $base.fra44.fra19.fra20.lab21 \ 883 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "SSH" 884 entry $base.fra44.fra19.fra20.ent22 \ 885 -borderwidth "1" -highlightcolor "#000000" 886 button $base.fra44.fra19.fra20.but23 \ 887 -borderwidth "0" -command "browsebin ssh" -highlightcolor "#000000" \ 888 -padx "9" -pady "3" -relief "flat" 889 frame $base.fra44.fra19.fra26 \ 890 -borderwidth "1" -height "75" -highlightcolor "#000000" 891 label $base.fra44.fra19.fra26.01 \ 892 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 893 -text "SSH-Keygen" 894 entry $base.fra44.fra19.fra26.02 \ 895 -borderwidth "1" -highlightcolor "#000000" 896 button $base.fra44.fra19.fra26.03 \ 897 -borderwidth "0" -command "browsebin keygen" \ 898 -highlightcolor "#000000" -padx "9" -pady "3" -relief "flat" 899 frame $base.fra44.fra19.fra27 \ 900 -borderwidth "1" -height "75" -highlightcolor "#000000" 901 label $base.fra44.fra19.fra27.01 \ 902 -anchor "w" -highlightcolor "#000000" -text "SSH-Agent" 903 entry $base.fra44.fra19.fra27.02 \ 904 -borderwidth "1" -highlightcolor "#000000" 905 button $base.fra44.fra19.fra27.03 \ 906 -borderwidth "0" -command "browsebin agent" -highlightcolor "#000000" \ 907 -padx "9" -pady "3" -relief "flat" 908 frame $base.fra44.fra19.fra28 \ 909 -borderwidth "1" -height "75" -highlightcolor "#000000" 910 label $base.fra44.fra19.fra28.01 \ 911 -anchor "w" -highlightcolor "#000000" -text "SSH-Add" 912 entry $base.fra44.fra19.fra28.02 \ 913 -borderwidth "1" -highlightcolor "#000000" 914 button $base.fra44.fra19.fra28.03 \ 915 -borderwidth "0" -command "browsebin add" -highlightcolor "#000000" \ 916 -padx "9" -pady "3" -relief "flat" 917 frame $base.fra44.fra19.fra29 \ 918 -borderwidth "1" -height "75" -highlightcolor "#000000" 919 label $base.fra44.fra19.fra29.01 \ 920 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 921 -text "SSH-Askpass" 922 entry $base.fra44.fra19.fra29.02 \ 923 -borderwidth "1" -highlightcolor "#000000" 924 button $base.fra44.fra19.fra29.03 \ 925 -borderwidth "0" -command "browsebin askpass" \ 926 -highlightcolor "#000000" -padx "9" -pady "3" -relief "flat" 927 frame $base.fra44.fra19.fra32 \ 928 -borderwidth "1" -height "75" -highlightcolor "#000000" 929 label $base.fra44.fra19.fra32.01 \ 930 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 931 -text "XTerminal" 932 menubutton $base.fra44.fra19.fra32.men35 \ 933 -highlightcolor "#000000" -indicatoron "1" \ 934 -menu "$base.fra44.fra19.fra32.men35.01" -padx "4" -pady "3" \ 935 -relief "groove" -textvariable "configs(termver)" 936 menu $base.fra44.fra19.fra32.men35.01 \ 937 -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 938 frame $base.fra44.fra19.fra30 \ 939 -borderwidth "1" -height "75" -highlightcolor "#000000" 940 label $base.fra44.fra19.fra30.01 \ 941 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "SFTP" 942 menubutton $base.fra44.fra19.fra30.men34 \ 943 -indicatoron "1" -menu "$base.fra44.fra19.fra30.men34.m" -padx "4" \ 944 -pady "3" -relief "groove" -textvariable "configs(sftpbin)" 945 menu $base.fra44.fra19.fra30.men34.m \ 946 -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 947 frame $base.fra44.fra19.fra18 \ 948 -borderwidth "1" -height "75" -highlightcolor "#000000" 949 label $base.fra44.fra19.fra18.01 \ 950 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 951 -text "WWW browser" 952 entry $base.fra44.fra19.fra18.02 \ 953 -borderwidth "1" -highlightcolor "#000000" 954 button $base.fra44.fra19.fra18.03 \ 955 -borderwidth "0" -command "browsebin browser" \ 956 -highlightcolor "#000000" -padx "9" -pady "3" -relief "flat" 957 frame $base.fra44.fra19.fra34 \ 958 -relief "groove" -height "75" -width "125" 959 label $base.fra44.fra19.fra34.lab35 \ 960 -borderwidth "0" -relief "raised" -text "SCP" -anchor "w" 961 entry $base.fra44.fra19.fra34.ent36 \ 962 -borderwidth "1" 963 button $base.fra44.fra19.fra34.but34 \ 964 -borderwidth "0" -command "browsebin scp" -highlightcolor "#000000" \ 965 -padx "9" -pady "3" -relief "flat" 966 label $base.fra44.lab30 \ 967 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 968 -text "Programs used by secpanel" -font "helvetica 10 bold" 969 frame $base.fra46 \ 970 -borderwidth "1" -height "75" -highlightcolor "#000000" 971 frame $base.fra46.fra26 \ 972 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 973 frame $base.fra46.fra26.fra27 \ 974 -relief "raised" -height "30" -highlightcolor "#000000" -width "30" 975 listbox $base.fra46.fra26.fra27.01 \ 976 -borderwidth "1" -height "6" -highlightcolor "#000000" \ 977 -selectmode "extended" \ 978 -xscrollcommand "$base.fra46.fra26.fra27.02 set" \ 979 -yscrollcommand "$base.fra46.fra26.fra27.03 set" 980 bind $base.fra46.fra26.fra27.01 <Button-3> { 981 set li [.top17.fra46.fra26.fra27.01 nearest %y] 982 .top17.fra46.fra26.fra27.01 selection clear 0 end 983 .top17.fra46.fra26.fra27.01 activate $li 984 .top17.fra46.fra26.fra27.01 selection set $li 985 showmenu 986 } 987 bind $base.fra46.fra26.fra27.01 <Double-Button-1> { 988 connect 989 } 990 bind $base.fra46.fra26.fra27.01 <Enter> { 991 showstatus "Right click mouse to handle entries" 992 } 993 bind $base.fra46.fra26.fra27.01 <Leave> { 994 showstatus "" 995 } 996 scrollbar $base.fra46.fra26.fra27.02 \ 997 -borderwidth "1" -command "$base.fra46.fra26.fra27.01 xview" \ 998 -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" \ 999 -troughcolor "#e2e2de" -width "10" 1000 scrollbar $base.fra46.fra26.fra27.03 \ 1001 -borderwidth "1" -command "$base.fra46.fra26.fra27.01 yview" \ 1002 -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" \ 1003 -width "10" 1004 frame $base.fra46.fra26.fra29 \ 1005 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 1006 frame $base.fra46.fra26.fra29.fra28 \ 1007 -height "75" -highlightcolor "#000000" -width "125" 1008 button $base.fra46.fra26.fra29.fra28.but29 \ 1009 -command "newconn 1" -highlightcolor "#000000" -padx "9" -pady "3" \ 1010 -relief "groove" -text "New" 1011 button $base.fra46.fra26.fra29.fra28.but30 \ 1012 -command "propconn specsites" -highlightcolor "#000000" -padx "9" \ 1013 -pady "3" -relief "groove" -text "Edit" 1014 button $base.fra46.fra26.fra29.fra28.but31 \ 1015 -command "delconn" -highlightcolor "#000000" -padx "9" -pady "3" \ 1016 -relief "groove" -text "Delete" 1017 frame $base.fra46.fra26.fra29.fra36 \ 1018 -relief "groove" -height "75" -width "125" 1019 button $base.fra46.fra26.fra29.fra36.but37 \ 1020 -command "connect specsites" -highlightcolor "#000000" -padx "9" \ 1021 -pady "3" -relief "groove" -text "Connect" 1022 button $base.fra46.fra26.fra29.fra36.but38 \ 1023 -command "connect multi" -highlightcolor "#000000" -padx "9" \ 1024 -pady "3" -relief "groove" -text "Multi" 1025 button $base.fra46.fra26.fra29.fra36.but39 \ 1026 -command "connect custom" -highlightcolor "#000000" -padx "9" \ 1027 -pady "3" -relief "groove" -state "disabled" -text "Custom" 1028 button $base.fra46.fra26.fra29.fra36.but34 \ 1029 -command "connect_sftp" -relief "groove" -text "SFTP" 1030 label $base.fra46.fra26.lab34 \ 1031 -anchor "w" -borderwidth "1" -highlightcolor "#000000" \ 1032 -text "Connections" 1033 frame $base.fra17 \ 1034 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 1035 label $base.fra17.lab18 \ 1036 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -width "30" 1037 label $base.fra17.lab19 \ 1038 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -width "30" 1039 ################### 1040 # SETTING GEOMETRY 1041 ################### 1042 grid columnconf $base 0 -weight 1 1043 grid rowconf $base 1 -weight 1 1044 1045 grid rowconf $base.fra21 0 -weight 1 1046 grid columnconf $base.fra21 0 -weight 1 1047 grid columnconf $base.fra21 1 -weight 1 1048 1049 grid $base.fra21.fra23 \ 1050 -in $base.fra21 -column "0" -row "1" -columnspan "1" -rowspan "1" \ 1051 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "new" 1052 grid $base.fra21.fra23.01 \ 1053 -in $base.fra21.fra23 -column "0" -row "0" -columnspan "1" \ 1054 -rowspan "1" -sticky "ew" 1055 grid $base.fra21.fra23.02 \ 1056 -in $base.fra21.fra23 -column "0" -row "1" -columnspan "1" \ 1057 -rowspan "1" -sticky "ew" 1058 grid $base.fra21.fra23.che17 \ 1059 -in $base.fra21.fra23 -column "0" -row "3" -columnspan "1" \ 1060 -rowspan "1" -sticky "ew" 1061 grid $base.fra21.fra23.che20 \ 1062 -in $base.fra21.fra23 -column "0" -row "6" -columnspan "1" \ 1063 -rowspan "1" -sticky "ew" 1064 grid $base.fra21.fra23.che21 \ 1065 -in $base.fra21.fra23 -column "0" -row "5" -columnspan "1" \ 1066 -rowspan "1" -sticky "ew" 1067 grid $base.fra21.fra23.che22 \ 1068 -in $base.fra21.fra23 -column "0" -row "4" -columnspan "1" \ 1069 -rowspan "1" -sticky "ew" 1070 grid $base.fra21.fra23.che39 \ 1071 -in $base.fra21.fra23 -column "0" -row "2" -columnspan "1" \ 1072 -rowspan "1" -sticky "ew" 1073 grid $base.fra21.fra23.che29 \ 1074 -in $base.fra21.fra23 -column "0" -row "7" -columnspan "1" \ 1075 -rowspan "1" -sticky "ew" 1076 grid $base.fra21.fra23.che30 \ 1077 -in $base.fra21.fra23 -column "0" -row "8" -columnspan "1" \ 1078 -rowspan "1" -sticky "ew" 1079 grid $base.fra21.fra24 \ 1080 -in $base.fra21 -column "1" -row "1" -columnspan "1" -rowspan "1" \ 1081 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "new" 1082 grid columnconf $base.fra21.fra24 1 -weight 1 1083 grid $base.fra21.fra24.lab17 \ 1084 -in $base.fra21.fra24 -column "0" -row "1" -columnspan "1" \ 1085 -rowspan "1" -sticky "ew" 1086 grid $base.fra21.fra24.ent18 \ 1087 -in $base.fra21.fra24 -column "1" -row "1" -columnspan "2" \ 1088 -rowspan "1" -sticky "ew" 1089 grid $base.fra21.fra24.lab19 \ 1090 -in $base.fra21.fra24 -column "0" -row "2" -columnspan "1" \ 1091 -rowspan "1" -sticky "ew" 1092 grid $base.fra21.fra24.ent20 \ 1093 -in $base.fra21.fra24 -column "1" -row "2" -columnspan "2" \ 1094 -rowspan "1" -sticky "ew" 1095 grid $base.fra21.fra24.lab21 \ 1096 -in $base.fra21.fra24 -column "0" -row "3" -columnspan "1" \ 1097 -rowspan "1" -sticky "ew" 1098 grid $base.fra21.fra24.ent22 \ 1099 -in $base.fra21.fra24 -column "1" -row "3" -columnspan "1" \ 1100 -rowspan "1" -sticky "ew" 1101 grid $base.fra21.fra24.lab23 \ 1102 -in $base.fra21.fra24 -column "0" -row "4" -columnspan "1" \ 1103 -rowspan "1" -sticky "ew" 1104 grid $base.fra21.fra24.ent24 \ 1105 -in $base.fra21.fra24 -column "1" -row "4" -columnspan "2" \ 1106 -rowspan "1" -sticky "ew" 1107 grid $base.fra21.fra24.lab25 \ 1108 -in $base.fra21.fra24 -column "0" -row "5" -columnspan "1" \ 1109 -rowspan "1" -sticky "ew" 1110 grid $base.fra21.fra24.ent26 \ 1111 -in $base.fra21.fra24 -column "1" -row "5" -columnspan "1" \ 1112 -rowspan "1" -sticky "ew" 1113 grid $base.fra21.fra24.che17 \ 1114 -in $base.fra21.fra24 -column "2" -row "3" -columnspan "1" \ 1115 -rowspan "1" -sticky "ew" 1116 grid $base.fra21.fra24.lab41 \ 1117 -in $base.fra21.fra24 -column "0" -row "6" -columnspan "1" \ 1118 -rowspan "1" -sticky "ew" 1119 grid $base.fra21.fra24.ent42 \ 1120 -in $base.fra21.fra24 -column "1" -row "6" -columnspan "2" \ 1121 -rowspan "1" -sticky "ew" 1122 grid $base.fra21.fra24.che43 \ 1123 -in $base.fra21.fra24 -column "2" -row "5" -columnspan "1" \ 1124 -rowspan "1" -sticky "ew" 1125 grid $base.fra21.fra24.lab18 \ 1126 -in $base.fra21.fra24 -column "0" -row "7" -columnspan "1" \ 1127 -rowspan "1" -sticky "ew" 1128 grid $base.fra21.fra24.ent19 \ 1129 -in $base.fra21.fra24 -column "1" -row "7" -columnspan "1" \ 1130 -rowspan "1" -sticky "ew" 1131 grid $base.fra21.fra24.lab20 \ 1132 -in $base.fra21.fra24 -column "0" -row "8" -columnspan "1" \ 1133 -rowspan "1" -sticky "ew" 1134 grid $base.fra21.fra24.ent21 \ 1135 -in $base.fra21.fra24 -column "1" -row "8" -columnspan "1" \ 1136 -rowspan "1" -sticky "ew" 1137 grid $base.fra21.fra24.but22 \ 1138 -in $base.fra21.fra24 -column "2" -row "7" -columnspan "1" \ 1139 -rowspan "1" -sticky "w" 1140 grid $base.fra21.fra24.but23 \ 1141 -in $base.fra21.fra24 -column "2" -row "8" -columnspan "1" \ 1142 -rowspan "1" -sticky "w" 1143 grid $base.fra21.fra24.lab24 \ 1144 -in $base.fra21.fra24 -column "0" -row "9" -columnspan "1" \ 1145 -rowspan "1" -sticky "ew" 1146 grid $base.fra21.fra24.men25 \ 1147 -in $base.fra21.fra24 -column "1" -row "9" -columnspan "2" \ 1148 -rowspan "1" -padx "2" -sticky "ew" 1149 grid $base.fra21.fra24.che26 \ 1150 -in $base.fra21.fra24 -column "0" -row "10" -columnspan "2" \ 1151 -rowspan "1" -sticky "ew" 1152 grid $base.fra21.fra24.sca27 \ 1153 -in $base.fra21.fra24 -column "2" -row "10" -columnspan "1" \ 1154 -rowspan "1" -sticky "ew" 1155 grid $base.fra21.fra24.lab28 \ 1156 -in $base.fra21.fra24 -column "1" -row "10" -columnspan "1" \ 1157 -rowspan "1" -sticky "e" 1158 grid $base.fra21.fra26 \ 1159 -in $base.fra21 -column "1" -row "3" -columnspan "1" -rowspan "1" \ 1160 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1161 grid columnconf $base.fra21.fra26 0 -weight 1 1162 grid rowconf $base.fra21.fra26 0 -weight 1 1163 grid $base.fra21.fra26.01 \ 1164 -in $base.fra21.fra26 -column "0" -row "0" -columnspan "1" \ 1165 -rowspan "1" -sticky "ew" 1166 grid $base.fra21.fra26.02 \ 1167 -in $base.fra21.fra26 -column "0" -row "1" -columnspan "1" \ 1168 -rowspan "1" -sticky "ew" 1169 grid $base.fra21.fra26.03 \ 1170 -in $base.fra21.fra26 -column "3" -row "0" -columnspan "1" \ 1171 -rowspan "1" -sticky "ew" 1172 grid $base.fra21.fra48 \ 1173 -in $base.fra21 -column "0" -row "0" -columnspan "2" -rowspan "1" \ 1174 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1175 grid columnconf $base.fra21.fra48 1 -weight 1 1176 grid columnconf $base.fra21.fra48 2 -weight 1 1177 grid columnconf $base.fra21.fra48 3 -weight 1 1178 grid rowconf $base.fra21.fra48 1 -weight 1 1179 grid $base.fra21.fra48.cpd18 \ 1180 -in $base.fra21.fra48 -column "2" -row "0" -columnspan "2" \ 1181 -rowspan "2" -sticky "nesw" 1182 grid columnconf $base.fra21.fra48.cpd18 0 -weight 1 1183 grid rowconf $base.fra21.fra48.cpd18 0 -weight 1 1184 grid $base.fra21.fra48.cpd18.01 \ 1185 -in $base.fra21.fra48.cpd18 -column "0" -row "0" -columnspan "1" \ 1186 -rowspan "1" -sticky "nesw" 1187 grid $base.fra21.fra48.cpd18.02 \ 1188 -in $base.fra21.fra48.cpd18 -column "0" -row "1" -columnspan "1" \ 1189 -rowspan "1" -sticky "ew" 1190 grid $base.fra21.fra48.cpd18.03 \ 1191 -in $base.fra21.fra48.cpd18 -column "1" -row "0" -columnspan "1" \ 1192 -rowspan "1" -sticky "ns" 1193 grid $base.fra21.fra48.fra19 \ 1194 -in $base.fra21.fra48 -column "0" -row "0" -columnspan "1" \ 1195 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "new" 1196 grid columnconf $base.fra21.fra48.fra19 0 -weight 1 1197 grid $base.fra21.fra48.fra19.ent20 \ 1198 -in $base.fra21.fra48.fra19 -column "0" -row "1" -columnspan "2" \ 1199 -rowspan "1" -sticky "new" 1200 grid $base.fra21.fra48.fra19.lab21 \ 1201 -in $base.fra21.fra48.fra19 -column "0" -row "0" -columnspan "1" \ 1202 -rowspan "1" -sticky "ew" 1203 grid $base.fra21.fra48.fra40 \ 1204 -in $base.fra21.fra48 -column "1" -row "0" -columnspan "1" \ 1205 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "n" 1206 grid $base.fra21.fra48.fra40.but41 \ 1207 -in $base.fra21.fra48.fra40 -column "0" -row "0" -columnspan "1" \ 1208 -rowspan "1" -sticky "ew" 1209 grid $base.fra21.fra48.fra40.but42 \ 1210 -in $base.fra21.fra48.fra40 -column "0" -row "1" -columnspan "1" \ 1211 -rowspan "1" -sticky "ew" 1212 grid $base.fra21.fra48.fra40.but43 \ 1213 -in $base.fra21.fra48.fra40 -column "1" -row "0" -columnspan "1" \ 1214 -rowspan "1" -sticky "ew" 1215 grid $base.fra21.fra48.fra40.but44 \ 1216 -in $base.fra21.fra48.fra40 -column "1" -row "1" -columnspan "1" \ 1217 -rowspan "1" -sticky "ew" 1218 grid $base.fra21.fra35 \ 1219 -in $base.fra21 -column "0" -row "3" -columnspan "1" -rowspan "1" \ 1220 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1221 grid columnconf $base.fra21.fra35 0 -weight 1 1222 grid columnconf $base.fra21.fra35 1 -weight 1 1223 grid rowconf $base.fra21.fra35 0 -weight 1 1224 grid rowconf $base.fra21.fra35 1 -weight 1 1225 grid $base.fra21.fra35.rad36 \ 1226 -in $base.fra21.fra35 -column "0" -row "1" -columnspan "1" \ 1227 -rowspan "1" -sticky "ew" 1228 grid $base.fra21.fra35.rad37 \ 1229 -in $base.fra21.fra35 -column "1" -row "1" -columnspan "1" \ 1230 -rowspan "1" -sticky "ew" 1231 grid $base.fra21.fra35.rad38 \ 1232 -in $base.fra21.fra35 -column "0" -row "0" -columnspan "1" \ 1233 -rowspan "1" -sticky "ew" 1234 grid $base.fra21.fra35.rad39 \ 1235 -in $base.fra21.fra35 -column "1" -row "0" -columnspan "1" \ 1236 -rowspan "1" -sticky "ew" 1237 grid $base.fra30 \ 1238 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -padx "2" \ 1239 -pady "2" -sticky "ew" 1240 grid columnconf $base.fra30 0 -weight 1 1241 grid columnconf $base.fra30 1 -weight 1 1242 grid $base.fra30.fra19 \ 1243 -in $base.fra30 -column "0" -row "0" -columnspan "1" -rowspan "1" \ 1244 -sticky "w" 1245 grid $base.fra30.fra19.but20 \ 1246 -in $base.fra30.fra19 -column "0" -row "0" -columnspan "1" \ 1247 -rowspan "1" 1248 grid $base.fra30.fra19.but22 \ 1249 -in $base.fra30.fra19 -column "2" -row "0" -columnspan "1" \ 1250 -rowspan "1" 1251 grid $base.fra30.fra19.but23 \ 1252 -in $base.fra30.fra19 -column "3" -row "0" -columnspan "1" \ 1253 -rowspan "1" 1254 grid $base.fra30.fra19.but24 \ 1255 -in $base.fra30.fra19 -column "4" -row "0" -columnspan "1" \ 1256 -rowspan "1" 1257 grid $base.fra30.but26 \ 1258 -in $base.fra30 -column "1" -row "0" -columnspan "1" -rowspan "1" \ 1259 -sticky "e" 1260 1261 grid rowconf $base.fra35 1 -weight 1 1262 grid columnconf $base.fra35 0 -weight 1 1263 grid columnconf $base.fra35 1 -weight 1 1264 1265 grid $base.fra35.fra17 \ 1266 -in $base.fra35 -column "0" -row "1" -columnspan "1" -rowspan "1" \ 1267 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1268 grid columnconf $base.fra35.fra17 0 -weight 1 1269 grid rowconf $base.fra35.fra17 5 -weight 1 1270 grid rowconf $base.fra35.fra17 7 -weight 1 1271 grid $base.fra35.fra17.but17 \ 1272 -in $base.fra35.fra17 -column "0" -row "2" -columnspan "2" \ 1273 -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1274 grid $base.fra35.fra17.but19 \ 1275 -in $base.fra35.fra17 -column "0" -row "3" -columnspan "1" \ 1276 -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1277 grid $base.fra35.fra17.but18 \ 1278 -in $base.fra35.fra17 -column "0" -row "1" -columnspan "1" \ 1279 -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1280 grid $base.fra35.fra17.lab19 \ 1281 -in $base.fra35.fra17 -column "0" -row "0" -columnspan "1" \ 1282 -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1283 grid $base.fra35.fra20 \ 1284 -in $base.fra35 -column "1" -row "1" -columnspan "1" -rowspan "1" \ 1285 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1286 grid columnconf $base.fra35.fra20 0 -weight 1 1287 grid rowconf $base.fra35.fra20 6 -weight 1 1288 grid $base.fra35.fra20.but22 \ 1289 -in $base.fra35.fra20 -column "0" -row "1" -columnspan "1" \ 1290 -rowspan "1" -sticky "ew" 1291 grid $base.fra35.fra20.but26 \ 1292 -in $base.fra35.fra20 -column "0" -row "7" -columnspan "1" \ 1293 -rowspan "1" -sticky "ew" 1294 grid $base.fra35.fra20.che28 \ 1295 -in $base.fra35.fra20 -column "0" -row "2" -columnspan "1" \ 1296 -rowspan "1" -sticky "ew" 1297 grid $base.fra35.fra20.fra22 \ 1298 -in $base.fra35.fra20 -column "0" -row "6" -columnspan "1" \ 1299 -rowspan "1" -sticky "nesw" 1300 grid columnconf $base.fra35.fra20.fra22 0 -weight 1 1301 grid rowconf $base.fra35.fra20.fra22 0 -weight 1 1302 grid $base.fra35.fra20.fra22.01 \ 1303 -in $base.fra35.fra20.fra22 -column "0" -row "0" -columnspan "1" \ 1304 -rowspan "1" -sticky "nesw" 1305 grid $base.fra35.fra20.fra22.02 \ 1306 -in $base.fra35.fra20.fra22 -column "0" -row "1" -columnspan "1" \ 1307 -rowspan "1" -sticky "ew" 1308 grid $base.fra35.fra20.fra22.03 \ 1309 -in $base.fra35.fra20.fra22 -column "1" -row "0" -columnspan "1" \ 1310 -rowspan "1" -sticky "ns" 1311 grid $base.fra35.fra20.but20 \ 1312 -in $base.fra35.fra20 -column "0" -row "3" -columnspan "1" \ 1313 -rowspan "1" -sticky "ew" 1314 grid $base.fra35.fra20.but17 \ 1315 -in $base.fra35.fra20 -column "0" -row "9" -columnspan "1" \ 1316 -rowspan "1" -sticky "ew" 1317 grid $base.fra35.fra20.lab28 \ 1318 -in $base.fra35.fra20 -column "0" -row "0" -columnspan "1" \ 1319 -rowspan "1" -padx "2" -pady "2" -sticky "new" 1320 grid $base.fra35.fra20.but18 \ 1321 -in $base.fra35.fra20 -column "0" -row "4" -columnspan "1" \ 1322 -rowspan "1" -sticky "ew" 1323 grid $base.fra35.fra20.but188 \ 1324 -in $base.fra35.fra20 -column "0" -row "5" -columnspan "1" \ 1325 -rowspan "1" -sticky "ew" 1326 grid $base.fra35.fra20.but30 \ 1327 -in $base.fra35.fra20 -column "0" -row "8" -columnspan "1" \ 1328 -rowspan "1" -sticky "ew" 1329 1330 grid rowconf $base.fra44 2 -weight 1 1331 grid columnconf $base.fra44 0 -weight 1 1332 1333 grid rowconf $base.fra44 2 -weight 1 1334 grid columnconf $base.fra44 0 -weight 1 1335 grid $base.fra44.fra27 \ 1336 -in $base.fra44 -column "0" -row "3" -columnspan "2" -rowspan "1" \ 1337 -ipadx "2" -ipady "2" -padx "4" -pady "2" -sticky "esw" 1338 grid columnconf $base.fra44.fra27 0 -weight 1 1339 grid $base.fra44.fra27.but28 \ 1340 -in $base.fra44.fra27 -column "0" -row "2" -columnspan "2" \ 1341 -rowspan "1" -sticky "ew" 1342 grid $base.fra44.fra19 \ 1343 -in $base.fra44 -column "0" -row "2" -columnspan "2" -rowspan "1" \ 1344 -ipady "10" -padx "2" -pady "10" -sticky "new" 1345 grid columnconf $base.fra44.fra19 0 -weight 1 1346 grid columnconf $base.fra44.fra19 1 -weight 1 1347 grid $base.fra44.fra19.fra20 \ 1348 -in $base.fra44.fra19 -column "0" -row "0" -columnspan "1" \ 1349 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1350 grid columnconf $base.fra44.fra19.fra20 0 -weight 1 1351 grid $base.fra44.fra19.fra20.lab21 \ 1352 -in $base.fra44.fra19.fra20 -column "0" -row "0" -columnspan "1" \ 1353 -rowspan "1" -sticky "ew" 1354 grid $base.fra44.fra19.fra20.ent22 \ 1355 -in $base.fra44.fra19.fra20 -column "0" -row "1" -columnspan "2" \ 1356 -rowspan "1" -sticky "ew" 1357 grid $base.fra44.fra19.fra20.but23 \ 1358 -in $base.fra44.fra19.fra20 -column "1" -row "0" -columnspan "1" \ 1359 -rowspan "1" 1360 grid $base.fra44.fra19.fra26 \ 1361 -in $base.fra44.fra19 -column "0" -row "1" -columnspan "1" \ 1362 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1363 grid columnconf $base.fra44.fra19.fra26 0 -weight 1 1364 grid $base.fra44.fra19.fra26.01 \ 1365 -in $base.fra44.fra19.fra26 -column "0" -row "0" -columnspan "1" \ 1366 -rowspan "1" -sticky "ew" 1367 grid $base.fra44.fra19.fra26.02 \ 1368 -in $base.fra44.fra19.fra26 -column "0" -row "1" -columnspan "2" \ 1369 -rowspan "1" -sticky "ew" 1370 grid $base.fra44.fra19.fra26.03 \ 1371 -in $base.fra44.fra19.fra26 -column "1" -row "0" -columnspan "1" \ 1372 -rowspan "1" 1373 grid $base.fra44.fra19.fra27 \ 1374 -in $base.fra44.fra19 -column "0" -row "2" -columnspan "1" \ 1375 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1376 grid columnconf $base.fra44.fra19.fra27 0 -weight 1 1377 grid $base.fra44.fra19.fra27.01 \ 1378 -in $base.fra44.fra19.fra27 -column "0" -row "0" -columnspan "1" \ 1379 -rowspan "1" -sticky "ew" 1380 grid $base.fra44.fra19.fra27.02 \ 1381 -in $base.fra44.fra19.fra27 -column "0" -row "1" -columnspan "2" \ 1382 -rowspan "1" -sticky "ew" 1383 grid $base.fra44.fra19.fra27.03 \ 1384 -in $base.fra44.fra19.fra27 -column "1" -row "0" -columnspan "1" \ 1385 -rowspan "1" 1386 grid $base.fra44.fra19.fra28 \ 1387 -in $base.fra44.fra19 -column "1" -row "1" -columnspan "1" \ 1388 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1389 grid columnconf $base.fra44.fra19.fra28 0 -weight 1 1390 grid $base.fra44.fra19.fra28.01 \ 1391 -in $base.fra44.fra19.fra28 -column "0" -row "0" -columnspan "1" \ 1392 -rowspan "1" -sticky "ew" 1393 grid $base.fra44.fra19.fra28.02 \ 1394 -in $base.fra44.fra19.fra28 -column "0" -row "1" -columnspan "2" \ 1395 -rowspan "1" -sticky "ew" 1396 grid $base.fra44.fra19.fra28.03 \ 1397 -in $base.fra44.fra19.fra28 -column "1" -row "0" -columnspan "1" \ 1398 -rowspan "1" 1399 grid $base.fra44.fra19.fra29 \ 1400 -in $base.fra44.fra19 -column "1" -row "0" -columnspan "1" \ 1401 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1402 grid columnconf $base.fra44.fra19.fra29 0 -weight 1 1403 grid $base.fra44.fra19.fra29.01 \ 1404 -in $base.fra44.fra19.fra29 -column "0" -row "0" -columnspan "1" \ 1405 -rowspan "1" -sticky "ew" 1406 grid $base.fra44.fra19.fra29.02 \ 1407 -in $base.fra44.fra19.fra29 -column "0" -row "1" -columnspan "2" \ 1408 -rowspan "1" -sticky "ew" 1409 grid $base.fra44.fra19.fra29.03 \ 1410 -in $base.fra44.fra19.fra29 -column "1" -row "0" -columnspan "1" \ 1411 -rowspan "1" 1412 grid $base.fra44.fra19.fra32 \ 1413 -in $base.fra44.fra19 -column "0" -row "4" -columnspan "1" \ 1414 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1415 grid columnconf $base.fra44.fra19.fra32 0 -weight 1 1416 grid $base.fra44.fra19.fra32.01 \ 1417 -in $base.fra44.fra19.fra32 -column "0" -row "0" -columnspan "1" \ 1418 -rowspan "1" -sticky "ew" 1419 grid $base.fra44.fra19.fra32.men35 \ 1420 -in $base.fra44.fra19.fra32 -column "0" -row "1" -columnspan "1" \ 1421 -rowspan "1" -padx "2" -sticky "ew" 1422 grid $base.fra44.fra19.fra30 \ 1423 -in $base.fra44.fra19 -column "1" -row "4" -columnspan "1" \ 1424 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1425 grid columnconf $base.fra44.fra19.fra30 0 -weight 1 1426 grid $base.fra44.fra19.fra30.01 \ 1427 -in $base.fra44.fra19.fra30 -column "0" -row "0" -columnspan "1" \ 1428 -rowspan "1" -sticky "ew" 1429 grid $base.fra44.fra19.fra30.men34 \ 1430 -in $base.fra44.fra19.fra30 -column "0" -row "1" -columnspan "1" \ 1431 -rowspan "1" -sticky "ew" 1432 grid $base.fra44.fra19.fra18 \ 1433 -in $base.fra44.fra19 -column "1" -row "2" -columnspan "1" \ 1434 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1435 grid columnconf $base.fra44.fra19.fra18 0 -weight 1 1436 grid $base.fra44.fra19.fra18.01 \ 1437 -in $base.fra44.fra19.fra18 -column "0" -row "0" -columnspan "1" \ 1438 -rowspan "1" -sticky "ew" 1439 grid $base.fra44.fra19.fra18.02 \ 1440 -in $base.fra44.fra19.fra18 -column "0" -row "1" -columnspan "2" \ 1441 -rowspan "1" -sticky "ew" 1442 grid $base.fra44.fra19.fra18.03 \ 1443 -in $base.fra44.fra19.fra18 -column "1" -row "0" -columnspan "1" \ 1444 -rowspan "1" 1445 grid $base.fra44.fra19.fra34 \ 1446 -in $base.fra44.fra19 -column "0" -row "3" -columnspan "1" \ 1447 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "ew" 1448 grid columnconf $base.fra44.fra19.fra34 0 -weight 1 1449 grid $base.fra44.fra19.fra34.lab35 \ 1450 -in $base.fra44.fra19.fra34 -column "0" -row "0" -columnspan "1" \ 1451 -rowspan "1" -sticky "ew" 1452 grid $base.fra44.fra19.fra34.ent36 \ 1453 -in $base.fra44.fra19.fra34 -column "0" -row "1" -columnspan "2" \ 1454 -rowspan "1" -sticky "ew" 1455 grid $base.fra44.fra19.fra34.but34 \ 1456 -in $base.fra44.fra19.fra34 -column "1" -row "0" -columnspan "1" \ 1457 -rowspan "1" 1458 grid $base.fra44.lab30 \ 1459 -in $base.fra44 -column "0" -row "0" -columnspan "2" -rowspan "1" \ 1460 -padx "2" -pady "2" -sticky "new" 1461 grid $base.fra46 \ 1462 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" \ 1463 -sticky "nesw" 1464 grid columnconf $base.fra46 0 -weight 1 1465 grid rowconf $base.fra46 0 -weight 1 1466 grid $base.fra46.fra26 \ 1467 -in $base.fra46 -column "0" -row "0" -columnspan "1" -rowspan "1" \ 1468 -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1469 grid columnconf $base.fra46.fra26 0 -weight 1 1470 grid rowconf $base.fra46.fra26 1 -weight 1 1471 grid $base.fra46.fra26.fra27 \ 1472 -in $base.fra46.fra26 -column "0" -row "1" -columnspan "1" \ 1473 -rowspan "1" -padx "2" -pady "2" -sticky "nesw" 1474 grid columnconf $base.fra46.fra26.fra27 0 -weight 1 1475 grid rowconf $base.fra46.fra26.fra27 0 -weight 1 1476 grid $base.fra46.fra26.fra27.01 \ 1477 -in $base.fra46.fra26.fra27 -column "0" -row "0" -columnspan "1" \ 1478 -rowspan "1" -sticky "nesw" 1479 grid $base.fra46.fra26.fra27.02 \ 1480 -in $base.fra46.fra26.fra27 -column "0" -row "1" -columnspan "1" \ 1481 -rowspan "1" -sticky "ew" 1482 grid $base.fra46.fra26.fra27.03 \ 1483 -in $base.fra46.fra26.fra27 -column "1" -row "0" -columnspan "1" \ 1484 -rowspan "1" -sticky "ns" 1485 grid $base.fra46.fra26.fra29 \ 1486 -in $base.fra46.fra26 -column "1" -row "1" -columnspan "1" \ 1487 -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ns" 1488 grid rowconf $base.fra46.fra26.fra29 4 -weight 1 1489 grid $base.fra46.fra26.fra29.fra28 \ 1490 -in $base.fra46.fra26.fra29 -column "0" -row "4" -columnspan "1" \ 1491 -rowspan "1" -sticky "esw" 1492 grid columnconf $base.fra46.fra26.fra29.fra28 0 -weight 1 1493 grid $base.fra46.fra26.fra29.fra28.but29 \ 1494 -in $base.fra46.fra26.fra29.fra28 -column "0" -row "0" \ 1495 -columnspan "1" -rowspan "1" -sticky "ew" 1496 grid $base.fra46.fra26.fra29.fra28.but30 \ 1497 -in $base.fra46.fra26.fra29.fra28 -column "0" -row "1" \ 1498 -columnspan "1" -rowspan "1" -sticky "ew" 1499 grid $base.fra46.fra26.fra29.fra28.but31 \ 1500 -in $base.fra46.fra26.fra29.fra28 -column "0" -row "2" \ 1501 -columnspan "1" -rowspan "1" -sticky "ew" 1502 grid $base.fra46.fra26.fra29.fra36 \ 1503 -in $base.fra46.fra26.fra29 -column "0" -row "0" -columnspan "1" \ 1504 -rowspan "1" 1505 grid $base.fra46.fra26.fra29.fra36.but37 \ 1506 -in $base.fra46.fra26.fra29.fra36 -column "0" -row "0" \ 1507 -columnspan "1" -rowspan "1" -sticky "ew" 1508 grid $base.fra46.fra26.fra29.fra36.but38 \ 1509 -in $base.fra46.fra26.fra29.fra36 -column "0" -row "1" \ 1510 -columnspan "1" -rowspan "1" -sticky "ew" 1511 grid $base.fra46.fra26.fra29.fra36.but39 \ 1512 -in $base.fra46.fra26.fra29.fra36 -column "0" -row "2" \ 1513 -columnspan "1" -rowspan "1" -sticky "ew" 1514 grid $base.fra46.fra26.fra29.fra36.but34 \ 1515 -in $base.fra46.fra26.fra29.fra36 -column "0" -row "3" \ 1516 -columnspan "1" -rowspan "1" -sticky "ew" 1517 grid $base.fra46.fra26.lab34 \ 1518 -in $base.fra46.fra26 -column "0" -row "0" -columnspan "2" \ 1519 -rowspan "1" -sticky "ew" 1520 grid $base.fra17 \ 1521 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -padx "2" \ 1522 -pady "2" -sticky "ew" 1523 grid columnconf $base.fra17 0 -weight 1 1524 grid columnconf $base.fra17 1 -weight 1 1525 grid $base.fra17.lab18 \ 1526 -in $base.fra17 -column "0" -row "0" -columnspan "1" -rowspan "1" \ 1527 -sticky "ew" 1528 grid $base.fra17.lab19 \ 1529 -in $base.fra17 -column "1" -row "0" -columnspan "1" -rowspan "1" \ 1530 -sticky "ew" 1531} 1532 1533proc vTclWindow.top18 {base {container 0}} { 1534 if {$base == ""} { 1535 set base .top18 1536 } 1537 if {[winfo exists $base] && (!$container)} { 1538 wm deiconify $base; return 1539 } 1540 ################### 1541 # CREATING WIDGETS 1542 ################### 1543 if {!$container} { 1544 toplevel $base -class Toplevel -borderwidth "10" -highlightcolor "#000000" 1545 wm focusmodel $base passive 1546 wm geometry $base 250x150 1547 wm maxsize $base 1265 994 1548 wm minsize $base 115 1 1549 wm overrideredirect $base 0 1550 wm resizable $base 1 1 1551 wm title $base "secpanel - Confirm" 1552 } 1553 message $base.mes19 -aspect "300" -padx "5" -pady "2" 1554 frame $base.fra20 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 1555 button $base.fra20.but21 -command "set questres 1" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Yes" 1556 button $base.fra20.but22 -command "set questres 0" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "No" 1557 ################### 1558 # SETTING GEOMETRY 1559 ################### 1560 grid columnconf $base 0 -weight 1 1561 grid rowconf $base 0 -weight 1 1562 grid $base.mes19 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1563 grid $base.fra20 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1564 grid columnconf $base.fra20 0 -weight 1 1565 grid columnconf $base.fra20 1 -weight 1 1566 grid $base.fra20.but21 -in $base.fra20 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1567 grid $base.fra20.but22 -in $base.fra20 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1568} 1569 1570proc vTclWindow.top19 {base {container 0}} { 1571 if {$base == ""} { 1572 set base .top19 1573 } 1574 if {[winfo exists $base] && (!$container)} { 1575 wm deiconify $base; return 1576 } 1577 ################### 1578 # CREATING WIDGETS 1579 ################### 1580 if {!$container} { 1581 toplevel $base -class Toplevel -borderwidth "4" -menu "$base.m17" -highlightcolor "#000000" 1582 wm focusmodel $base passive 1583 wm geometry $base 666x183 1584 wm maxsize $base 1009 738 1585 wm minsize $base 115 1 1586 wm overrideredirect $base 0 1587 wm resizable $base 1 1 1588 wm title $base "secpanel - View key" 1589 } 1590 label $base.lab19 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Fingerprint" 1591 label $base.lab39 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -relief "raised" -text "Bubblebabble digest" 1592 button $base.but41 -command "Window destroy .top19" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Close" 1593 menu $base.m17 -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 1594 frame $base.fra22 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 1595 label $base.fra22.lab23 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -relief "raised" 1596 label $base.fra22.lab24 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -relief "raised" 1597 text $base.tex17 -borderwidth "0" -height "1" -highlightcolor "#000000" -width "8" 1598 text $base.tex18 -borderwidth "0" -cursor "fleur" -height "1" -highlightcolor "#000000" -width "8" 1599 ################### 1600 # SETTING GEOMETRY 1601 ################### 1602 grid columnconf $base 0 -weight 1 1603 grid rowconf $base 2 -weight 1 1604 grid rowconf $base 4 -weight 1 1605 grid $base.lab19 -in $base -column "0" -row "1" -columnspan "2" -rowspan "1" -padx "2" -sticky "ew" 1606 grid $base.lab39 -in $base -column "0" -row "3" -columnspan "2" -rowspan "1" -padx "2" -sticky "ew" 1607 grid $base.but41 -in $base -column "0" -row "5" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1608 grid $base.fra22 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1609 grid columnconf $base.fra22 0 -weight 1 1610 grid columnconf $base.fra22 1 -weight 1 1611 grid $base.fra22.lab23 -in $base.fra22 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1612 grid $base.fra22.lab24 -in $base.fra22 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1613 grid $base.tex17 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "nesw" 1614 grid $base.tex18 -in $base -column "0" -row "4" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "nesw" 1615} 1616 1617proc vTclWindow.top20 {base {container 0}} { 1618 if {$base == ""} { 1619 set base .top20 1620 } 1621 if {[winfo exists $base] && (!$container)} { 1622 wm deiconify $base; return 1623 } 1624 ################### 1625 # CREATING WIDGETS 1626 ################### 1627 if {!$container} { 1628 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1629 wm focusmodel $base passive 1630 wm geometry $base 292x175 1631 wm maxsize $base 785 570 1632 wm minsize $base 115 1 1633 wm overrideredirect $base 0 1634 wm resizable $base 1 1 1635 wm title $base "secpanel - Change Key-Properties" 1636 } 1637 frame $base.fra21 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 1638 label $base.fra21.lab25 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Old password:" 1639 entry $base.fra21.ent26 -borderwidth "1" -highlightcolor "#000000" -show "*" 1640 label $base.fra21.lab27 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "New password:" 1641 label $base.fra21.lab28 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "New password:" 1642 entry $base.fra21.ent30 -borderwidth "1" -highlightcolor "#000000" -show "*" 1643 entry $base.fra21.ent31 -borderwidth "1" -highlightcolor "#000000" -show "*" 1644 label $base.fra21.lab19 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Comment:" 1645 entry $base.fra21.ent20 -borderwidth "1" -highlightcolor "#000000" 1646 frame $base.fra22 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 1647 button $base.fra22.but23 -command "Window destroy .top20" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Cancel" 1648 button $base.fra22.but33 -command "keygen chpwd" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Save" 1649 label $base.lab35 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Changing properties of" 1650 label $base.lab36 -anchor "w" -borderwidth "1" -highlightcolor "#000000" 1651 ################### 1652 # SETTING GEOMETRY 1653 ################### 1654 grid columnconf $base 0 -weight 1 1655 grid rowconf $base 2 -weight 1 1656 grid $base.fra21 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1657 grid columnconf $base.fra21 1 -weight 1 1658 grid $base.fra21.lab25 -in $base.fra21 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1659 grid $base.fra21.ent26 -in $base.fra21 -column "1" -row "0" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 1660 grid $base.fra21.lab27 -in $base.fra21 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1661 grid $base.fra21.lab28 -in $base.fra21 -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "ew" 1662 grid $base.fra21.ent30 -in $base.fra21 -column "1" -row "1" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 1663 grid $base.fra21.ent31 -in $base.fra21 -column "1" -row "2" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 1664 grid $base.fra21.lab19 -in $base.fra21 -column "0" -row "3" -columnspan "1" -rowspan "1" -sticky "ew" 1665 grid $base.fra21.ent20 -in $base.fra21 -column "1" -row "3" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 1666 grid $base.fra22 -in $base -column "0" -row "3" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 1667 grid $base.fra22.but23 -in $base.fra22 -column "0" -row "0" -columnspan "1" -rowspan "1" 1668 grid $base.fra22.but33 -in $base.fra22 -column "1" -row "0" -columnspan "1" -rowspan "1" 1669 grid $base.lab35 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 1670 grid $base.lab36 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 1671} 1672 1673proc vTclWindow.top21 {base {container 0}} { 1674 if {$base == ""} { 1675 set base .top21 1676 } 1677 if {[winfo exists $base] && (!$container)} { 1678 wm deiconify $base; return 1679 } 1680 ################### 1681 # CREATING WIDGETS 1682 ################### 1683 if {!$container} { 1684 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1685 wm focusmodel $base passive 1686 wm geometry $base 199x124 1687 wm maxsize $base 1265 994 1688 wm minsize $base 115 1 1689 wm overrideredirect $base 0 1690 wm resizable $base 1 1 1691 wm title $base "secpanel - Ask for user" 1692 } 1693 frame $base.fra22 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 1694 message $base.fra22.mes23 -anchor "w" -aspect "300" -padx "5" -pady "2" -text "Give login to use for this connection:" 1695 entry $base.fra22.ent24 -borderwidth "1" -highlightcolor "#000000" 1696 bind $base.fra22.ent24 <Key-Return> { 1697 getuser 1698 } 1699 button $base.but25 -command "set userres #####" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Cancel" 1700 button $base.but26 -command "getuser" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Connect" 1701 ################### 1702 # SETTING GEOMETRY 1703 ################### 1704 grid columnconf $base 0 -weight 1 1705 grid columnconf $base 1 -weight 1 1706 grid rowconf $base 0 -weight 1 1707 grid $base.fra22 -in $base -column "0" -row "0" -columnspan "2" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1708 grid columnconf $base.fra22 0 -weight 1 1709 grid rowconf $base.fra22 0 -weight 1 1710 grid $base.fra22.mes23 -in $base.fra22 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1711 grid $base.fra22.ent24 -in $base.fra22 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1712 grid $base.but25 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1713 grid $base.but26 -in $base -column "1" -row "1" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1714} 1715 1716proc vTclWindow.top22 {base {container 0}} { 1717 if {$base == ""} { 1718 set base .top22 1719 } 1720 if {[winfo exists $base] && (!$container)} { 1721 wm deiconify $base; return 1722 } 1723 ################### 1724 # CREATING WIDGETS 1725 ################### 1726 if {!$container} { 1727 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1728 wm focusmodel $base passive 1729 wm geometry $base 250x150 1730 wm maxsize $base 1265 994 1731 wm minsize $base 115 1 1732 wm overrideredirect $base 0 1733 wm resizable $base 1 1 1734 wm title $base "secpanel - Message" 1735 } 1736 message $base.mes23 -aspect "300" -padx "5" -pady "2" 1737 label $base.lab26 -bitmap "info" -highlightcolor "#000000" -text "label" 1738 button $base.but17 -command "Window destroy .top22" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "OK" 1739 ################### 1740 # SETTING GEOMETRY 1741 ################### 1742 grid columnconf $base 1 -weight 1 1743 grid rowconf $base 0 -weight 1 1744 grid $base.mes23 -in $base -column "1" -row "0" -columnspan "1" -rowspan "1" -padx "4" -pady "4" -sticky "nesw" 1745 grid $base.lab26 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -ipadx "4" -ipady "4" -padx "4" -pady "4" -sticky "nesw" 1746 grid $base.but17 -in $base -column "0" -row "1" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1747} 1748 1749proc vTclWindow.top23 {base {container 0}} { 1750 if {$base == ""} { 1751 set base .top23 1752 } 1753 if {[winfo exists $base] && (!$container)} { 1754 wm deiconify $base; return 1755 } 1756 ################### 1757 # CREATING WIDGETS 1758 ################### 1759 if {!$container} { 1760 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1761 wm focusmodel $base passive 1762 wm geometry $base 408x288 1763 wm maxsize $base 1265 994 1764 wm minsize $base 115 1 1765 wm overrideredirect $base 0 1766 wm resizable $base 1 1 1767 wm title $base "secpanel - GUI font settings" 1768 } 1769 frame $base.fra25 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 1770 button $base.fra25.but32 -command "fontman save" -highlightcolor "#000000" -relief "groove" -text "Save" 1771 button $base.fra25.but36 -command "Window destroy .top23" -highlightcolor "#000000" -relief "groove" -text "Cancel" 1772 frame $base.fra18 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 1773 checkbutton $base.fra18.che19 -borderwidth "1" -command "fontman ul" -highlightcolor "#000000" -text "Use system fonts" -variable "configs(sysfonts)" 1774 label $base.lab30 -borderwidth "0" -highlightcolor "#000000" -text "Example text" 1775 frame $base.fra36 -height "75" -highlightcolor "#000000" -width "125" 1776 frame $base.fra36.cpd37 -height "30" -highlightcolor "#000000" -width "30" 1777 listbox $base.fra36.cpd37.01 -borderwidth "1" -highlightcolor "#000000" -xscrollcommand "$base.fra36.cpd37.02 set" -yscrollcommand "$base.fra36.cpd37.03 set" 1778 bind $base.fra36.cpd37.01 <Button-1> { 1779 .top23.fra36.cpd37.01 activate @%x,%y 1780fontman ul 1781 } 1782 scrollbar $base.fra36.cpd37.02 -borderwidth "1" -command "$base.fra36.cpd37.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 1783 scrollbar $base.fra36.cpd37.03 -borderwidth "1" -command "$base.fra36.cpd37.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 1784 frame $base.fra36.cpd38 -height "30" -highlightcolor "#000000" -width "30" 1785 listbox $base.fra36.cpd38.01 -borderwidth "1" -height "2" -highlightcolor "#000000" -width "4" -xscrollcommand "$base.fra36.cpd38.02 set" -yscrollcommand "$base.fra36.cpd38.03 set" 1786 bind $base.fra36.cpd38.01 <Button-1> { 1787 .top23.fra36.cpd38.01 activate @%x,%y 1788fontman ul 1789 } 1790 scrollbar $base.fra36.cpd38.02 -borderwidth "1" -command "$base.fra36.cpd38.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 1791 scrollbar $base.fra36.cpd38.03 -borderwidth "1" -command "$base.fra36.cpd38.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 1792 frame $base.fra36.fra39 -height "75" -highlightcolor "#000000" -width "125" 1793 checkbutton $base.fra36.fra39.che40 -anchor "w" -borderwidth "1" -command "fontman ul" -highlightcolor "#000000" -text "Bold" -variable "configs(fontbold)" 1794 checkbutton $base.fra36.fra39.che41 -anchor "w" -borderwidth "1" -command "fontman ul" -highlightcolor "#000000" -text "Italic" -variable "configs(fontitalic)" 1795 ################### 1796 # SETTING GEOMETRY 1797 ################### 1798 grid columnconf $base 0 -weight 1 1799 grid rowconf $base 0 -weight 1 1800 grid $base.fra25 -in $base -column "0" -row "3" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 1801 grid $base.fra25.but32 -in $base.fra25 -column "1" -row "0" -columnspan "1" -rowspan "1" 1802 grid $base.fra25.but36 -in $base.fra25 -column "0" -row "0" -columnspan "1" -rowspan "1" 1803 grid $base.fra18 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 1804 grid $base.fra18.che19 -in $base.fra18 -column "0" -row "0" -columnspan "1" -rowspan "1" 1805 grid $base.lab30 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 1806 grid $base.fra36 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1807 grid columnconf $base.fra36 0 -weight 1 1808 grid rowconf $base.fra36 0 -weight 1 1809 grid $base.fra36.cpd37 -in $base.fra36 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1810 grid columnconf $base.fra36.cpd37 0 -weight 1 1811 grid rowconf $base.fra36.cpd37 0 -weight 1 1812 grid $base.fra36.cpd37.01 -in $base.fra36.cpd37 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1813 grid $base.fra36.cpd37.02 -in $base.fra36.cpd37 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1814 grid $base.fra36.cpd37.03 -in $base.fra36.cpd37 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 1815 grid $base.fra36.cpd38 -in $base.fra36 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 1816 grid columnconf $base.fra36.cpd38 0 -weight 1 1817 grid rowconf $base.fra36.cpd38 0 -weight 1 1818 grid $base.fra36.cpd38.01 -in $base.fra36.cpd38 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1819 grid $base.fra36.cpd38.02 -in $base.fra36.cpd38 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1820 grid $base.fra36.cpd38.03 -in $base.fra36.cpd38 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 1821 grid $base.fra36.fra39 -in $base.fra36 -column "2" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "n" 1822 grid $base.fra36.fra39.che40 -in $base.fra36.fra39 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1823 grid $base.fra36.fra39.che41 -in $base.fra36.fra39 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1824} 1825 1826proc vTclWindow.top24 {base {container 0}} { 1827 if {$base == ""} { 1828 set base .top24 1829 } 1830 if {[winfo exists $base] && (!$container)} { 1831 wm deiconify $base; return 1832 } 1833 ################### 1834 # CREATING WIDGETS 1835 ################### 1836 if {!$container} { 1837 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1838 wm focusmodel $base passive 1839 wm geometry $base 500x200 1840 wm maxsize $base 1265 930 1841 wm minsize $base 115 1 1842 wm overrideredirect $base 0 1843 wm resizable $base 1 1 1844 wm title $base "secpanel - Command Trace" 1845 } 1846 frame $base.cpd25 -relief "raised" -height "30" -highlightcolor "#000000" -width "30" 1847 scrollbar $base.cpd25.01 -borderwidth "1" -command "$base.cpd25.03 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 1848 scrollbar $base.cpd25.02 -borderwidth "1" -command "$base.cpd25.03 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 1849 text $base.cpd25.03 -borderwidth "1" -height "1" -highlightcolor "#000000" -width "8" -xscrollcommand "$base.cpd25.01 set" -yscrollcommand "$base.cpd25.02 set" 1850 button $base.but26 -command "destroyfilter .top24" -highlightcolor "#000000" -relief "groove" -text "Close" 1851 ################### 1852 # SETTING GEOMETRY 1853 ################### 1854 grid columnconf $base 0 -weight 1 1855 grid rowconf $base 0 -weight 1 1856 grid $base.cpd25 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1857 grid columnconf $base.cpd25 0 -weight 1 1858 grid rowconf $base.cpd25 0 -weight 1 1859 grid $base.cpd25.01 -in $base.cpd25 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1860 grid $base.cpd25.02 -in $base.cpd25 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 1861 grid $base.cpd25.03 -in $base.cpd25 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1862 grid $base.but26 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1863} 1864 1865proc vTclWindow.top25 {base {container 0}} { 1866 if {$base == ""} { 1867 set base .top25 1868 } 1869 if {[winfo exists $base] && (!$container)} { 1870 wm deiconify $base; return 1871 } 1872 ################### 1873 # CREATING WIDGETS 1874 ################### 1875 if {!$container} { 1876 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1877 wm focusmodel $base passive 1878 wm geometry $base 204x120 1879 wm maxsize $base 1009 738 1880 wm minsize $base 115 1 1881 wm overrideredirect $base 0 1882 wm resizable $base 1 1 1883 wm title $base "secpanel - About" 1884 } 1885 frame $base.fra26 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 1886 message $base.fra26.mes28 -aspect "550" -borderwidth "1" -justify "center" -padx "5" -pady "2" -text "Author: Steffen Leich-Nienhaus 1887steffen.leich _at_ gmail.com" 1888 label $base.fra26.lab21 -borderwidth "1" -highlightcolor "#000000" 1889 frame $base.fra27 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 1890 button $base.fra27.but29 -command "Window destroy .top25" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Close" 1891 ################### 1892 # SETTING GEOMETRY 1893 ################### 1894 grid columnconf $base 0 -weight 1 1895 grid rowconf $base 0 -weight 1 1896 grid $base.fra26 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 1897 grid $base.fra26.mes28 -in $base.fra26 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1898 grid $base.fra26.lab21 -in $base.fra26 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1899 grid $base.fra27 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 1900 grid columnconf $base.fra27 0 -weight 1 1901 grid $base.fra27.but29 -in $base.fra27 -column "0" -row "0" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1902} 1903 1904proc vTclWindow.top26 {base {container 0}} { 1905 if {$base == ""} { 1906 set base .top26 1907 } 1908 if {[winfo exists $base] && (!$container)} { 1909 wm deiconify $base; return 1910 } 1911 ################### 1912 # CREATING WIDGETS 1913 ################### 1914 if {!$container} { 1915 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 1916 wm focusmodel $base passive 1917 wm geometry $base 420x240 1918 wm maxsize $base 1265 994 1919 wm minsize $base 115 1 1920 wm overrideredirect $base 0 1921 wm resizable $base 1 1 1922 wm title $base "secpanel - Command History" 1923 } 1924 frame $base.cpd27 -borderwidth "1" -height "30" -highlightcolor "#000000" -width "30" 1925 scrollbar $base.cpd27.01 -borderwidth "1" -command "$base.cpd27.03 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 1926 scrollbar $base.cpd27.02 -borderwidth "1" -command "$base.cpd27.03 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 1927 text $base.cpd27.03 -borderwidth "1" -height "1" -highlightcolor "#000000" -width "8" -wrap "none" -xscrollcommand "$base.cpd27.01 set" -yscrollcommand "$base.cpd27.02 set" 1928 frame $base.fra17 -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 1929 radiobutton $base.fra17.rad25 -anchor "w" -borderwidth "1" -command "historyman print" -highlightcolor "#000000" -indicatoron "0" -relief "raised" -selectcolor "#8c8cff" -text "Keydist" -value "5" -variable "histjob" 1930 radiobutton $base.fra17.rad26 -anchor "w" -borderwidth "1" -command "historyman print" -highlightcolor "#000000" -indicatoron "0" -relief "ridge" -selectcolor "#8c8cff" -text "Keygen" -value "4" -variable "histjob" 1931 radiobutton $base.fra17.rad28 -anchor "w" -borderwidth "1" -command "historyman print" -highlightcolor "#000000" -indicatoron "0" -selectcolor "#8c8cff" -text "SFTP connect" -value "2" -variable "histjob" 1932 radiobutton $base.fra17.rad29 -anchor "w" -borderwidth "1" -command "historyman print" -highlightcolor "#000000" -indicatoron "0" -relief "sunken" -selectcolor "#8c8cff" -text "SSH connect" -value "1" -variable "histjob" 1933 radiobutton $base.fra17.rad37 -anchor "w" -borderwidth "1" -command "historyman print" -highlightcolor "#000000" -indicatoron "0" -relief "raised" -selectcolor "#8c8cff" -text "Agent" -value "6" -variable "histjob" 1934 button $base.but18 -command "destroyfilter .top26" -highlightcolor "#000000" -relief "groove" -text "Close" 1935 menubutton $base.men17 -highlightcolor "#000000" -indicatoron "1" -menu "$base.men17.m" -padx "4" -pady "3" -relief "groove" -text "Clear hist." 1936 menu $base.men17.m -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 1937 $base.men17.m add command -command "historyman clear 30" -label "Keep last 30 days" 1938 $base.men17.m add command -command "historyman clear 7" -label "Keep last 7 days" 1939 $base.men17.m add command -command "historyman clear 1" -label "Keep one day" 1940 $base.men17.m add command -command "historyman clear 0" -label "Keep nothing" 1941 button $base.but28 -command "historyman report" -highlightcolor "#000000" -justify "left" -relief "groove" -text "Save logs" 1942 ################### 1943 # SETTING GEOMETRY 1944 ################### 1945 grid columnconf $base 1 -weight 1 1946 grid rowconf $base 1 -weight 1 1947 grid $base.cpd27 -in $base -column "1" -row "0" -columnspan "1" -rowspan "3" -sticky "nesw" 1948 grid columnconf $base.cpd27 0 -weight 1 1949 grid rowconf $base.cpd27 0 -weight 1 1950 grid $base.cpd27.01 -in $base.cpd27 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1951 grid $base.cpd27.02 -in $base.cpd27 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 1952 grid $base.cpd27.03 -in $base.cpd27 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 1953 grid $base.fra17 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "new" 1954 grid columnconf $base.fra17 0 -weight 1 1955 grid $base.fra17.rad25 -in $base.fra17 -column "0" -row "4" -columnspan "1" -rowspan "1" -sticky "ew" 1956 grid $base.fra17.rad26 -in $base.fra17 -column "0" -row "3" -columnspan "1" -rowspan "1" -sticky "ew" 1957 grid $base.fra17.rad28 -in $base.fra17 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1958 grid $base.fra17.rad29 -in $base.fra17 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 1959 grid $base.fra17.rad37 -in $base.fra17 -column "0" -row "5" -columnspan "1" -rowspan "1" -sticky "ew" 1960 grid $base.but18 -in $base -column "0" -row "3" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 1961 grid $base.men17 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "esw" 1962 grid $base.but28 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "esw" 1963} 1964 1965proc vTclWindow.top27 {base {container 0}} { 1966 if {$base == ""} { 1967 set base .top27 1968 } 1969 if {[winfo exists $base] && (!$container)} { 1970 wm deiconify $base; return 1971 } 1972 ################### 1973 # CREATING WIDGETS 1974 ################### 1975 if {!$container} { 1976 toplevel $base -class Toplevel -highlightcolor "#000000" 1977 wm focusmodel $base passive 1978 wm geometry $base 115x59 1979 wm maxsize $base 1265 994 1980 wm minsize $base 115 1 1981 wm overrideredirect $base 0 1982 wm resizable $base 1 1 1983 wm title $base "secpanel - Satellite" 1984 } 1985 frame $base.fra26 -height "75" -highlightcolor "#000000" -width "125" 1986 menubutton $base.fra26.01 -anchor "w" -highlightcolor "#000000" -indicatoron "1" -menu "$base.fra26.01.02" -padx "4" -pady "3" -relief "groove" -text "Connections" 1987 button $base.but27 -command "changetab big" -highlightcolor "#000000" -relief "groove" 1988 ################### 1989 # SETTING GEOMETRY 1990 ################### 1991 grid columnconf $base 0 -weight 1 1992 grid rowconf $base 2 -weight 1 1993 grid $base.fra26 -in $base -column "0" -row "0" -columnspan "2" -rowspan "1" -sticky "ew" 1994 grid columnconf $base.fra26 0 -weight 1 1995 grid $base.fra26.01 -in $base.fra26 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 1996 grid $base.but27 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "w" 1997} 1998 1999proc vTclWindow.top32 {base {container 0}} { 2000 if {$base == ""} { 2001 set base .top32 2002 } 2003 if {[winfo exists $base] && (!$container)} { 2004 wm deiconify $base; return 2005 } 2006 ################### 2007 # CREATING WIDGETS 2008 ################### 2009 if {!$container} { 2010 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 2011 wm focusmodel $base passive 2012 wm geometry $base 266x258 2013 wm maxsize $base 1009 738 2014 wm minsize $base 115 1 2015 wm overrideredirect $base 0 2016 wm resizable $base 1 1 2017 wm title $base "secpanel - GUI Colors" 2018 } 2019 frame $base.fra33 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 2020 button $base.fra33.but37 -anchor "w" -command "colorman fore" -height "1" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -width "2" 2021 button $base.fra33.but38 -anchor "w" -command "colorman back" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" 2022 button $base.fra33.but39 -anchor "w" -command "colorman entfore" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" 2023 button $base.fra33.but40 -anchor "w" -command "colorman entback" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" 2024 button $base.fra33.but41 -anchor "w" -command "colorman listfore" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" 2025 button $base.fra33.but42 -anchor "w" -command "colorman listback" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" 2026 label $base.fra33.lab17 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Foreground:" 2027 label $base.fra33.lab18 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Background:" 2028 label $base.fra33.lab19 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Entries - Fore:" 2029 label $base.fra33.lab20 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Entries - Back:" 2030 label $base.fra33.lab21 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Lists - Fore:" 2031 label $base.fra33.lab22 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Lists - Back:" 2032 checkbutton $base.fra33.che17 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "Default" -variable "foredef" 2033 checkbutton $base.fra33.che23 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "Default" -variable "backdef" 2034 checkbutton $base.fra33.che24 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "Default" -variable "entforedef" 2035 checkbutton $base.fra33.che25 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "Default" -variable "entbackdef" 2036 checkbutton $base.fra33.che26 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "Default" -variable "listforedef" 2037 checkbutton $base.fra33.che27 -anchor "e" -borderwidth "1" -highlightcolor "#000000" -text "Default" -variable "listbackdef" 2038 frame $base.fra34 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 2039 button $base.fra34.but35 -command "Window destroy .top32" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Cancel" 2040 button $base.fra34.but36 -command "colorman save" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Save" 2041 label $base.lab18 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Define colors or use system defaults" 2042 ################### 2043 # SETTING GEOMETRY 2044 ################### 2045 grid columnconf $base 0 -weight 1 2046 grid rowconf $base 0 -weight 1 2047 grid $base.fra33 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 2048 grid columnconf $base.fra33 1 -weight 1 2049 grid $base.fra33.but37 -in $base.fra33 -column "1" -row "0" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2050 grid $base.fra33.but38 -in $base.fra33 -column "1" -row "1" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2051 grid $base.fra33.but39 -in $base.fra33 -column "1" -row "2" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2052 grid $base.fra33.but40 -in $base.fra33 -column "1" -row "3" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2053 grid $base.fra33.but41 -in $base.fra33 -column "1" -row "4" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2054 grid $base.fra33.but42 -in $base.fra33 -column "1" -row "5" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2055 grid $base.fra33.lab17 -in $base.fra33 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2056 grid $base.fra33.lab18 -in $base.fra33 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2057 grid $base.fra33.lab19 -in $base.fra33 -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "ew" 2058 grid $base.fra33.lab20 -in $base.fra33 -column "0" -row "3" -columnspan "1" -rowspan "1" -sticky "ew" 2059 grid $base.fra33.lab21 -in $base.fra33 -column "0" -row "4" -columnspan "1" -rowspan "1" -sticky "ew" 2060 grid $base.fra33.lab22 -in $base.fra33 -column "0" -row "5" -columnspan "1" -rowspan "1" -sticky "ew" 2061 grid $base.fra33.che17 -in $base.fra33 -column "2" -row "0" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2062 grid $base.fra33.che23 -in $base.fra33 -column "2" -row "1" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2063 grid $base.fra33.che24 -in $base.fra33 -column "2" -row "2" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2064 grid $base.fra33.che25 -in $base.fra33 -column "2" -row "3" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2065 grid $base.fra33.che26 -in $base.fra33 -column "2" -row "4" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2066 grid $base.fra33.che27 -in $base.fra33 -column "2" -row "5" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2067 grid $base.fra34 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 2068 grid $base.fra34.but35 -in $base.fra34 -column "0" -row "0" -columnspan "1" -rowspan "1" 2069 grid $base.fra34.but36 -in $base.fra34 -column "1" -row "0" -columnspan "1" -rowspan "1" 2070 grid $base.lab18 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2071} 2072 2073proc vTclWindow.top33 {base {container 0}} { 2074 if {$base == ""} { 2075 set base .top33 2076 } 2077 if {[winfo exists $base] && (!$container)} { 2078 wm deiconify $base; return 2079 } 2080 ################### 2081 # CREATING WIDGETS 2082 ################### 2083 if {!$container} { 2084 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 2085 wm focusmodel $base passive 2086 wm geometry $base 624x219 2087 wm maxsize $base 1265 994 2088 wm minsize $base 115 1 2089 wm overrideredirect $base 0 2090 wm resizable $base 1 1 2091 wm title $base "secpanel - Agent info" 2092 } 2093 frame $base.fra34 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 2094 label $base.fra34.lab36 -anchor "e" -borderwidth "0" -highlightcolor "#000000" -relief "raised" -text "SSH_AUTH_SOCK:" 2095 label $base.fra34.lab37 -anchor "e" -borderwidth "0" -highlightcolor "#000000" -relief "raised" -text "SSH_AGENT_PID:" 2096 label $base.fra34.lab38 -anchor "w" -borderwidth "0" -highlightcolor "#000000" 2097 label $base.fra34.lab39 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -relief "raised" 2098 button $base.but40 -command "destroyfilter .top33" -highlightcolor "#000000" -relief "groove" -text "Close" 2099 frame $base.cpd36 -relief "raised" -height "30" -highlightcolor "#000000" -width "30" 2100 scrollbar $base.cpd36.01 -borderwidth "1" -command "$base.cpd36.03 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2101 scrollbar $base.cpd36.02 -borderwidth "1" -command "$base.cpd36.03 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2102 text $base.cpd36.03 -borderwidth "1" -height "1" -highlightcolor "#000000" -width "8" -xscrollcommand "$base.cpd36.01 set" -yscrollcommand "$base.cpd36.02 set" 2103 ################### 2104 # SETTING GEOMETRY 2105 ################### 2106 grid columnconf $base 0 -weight 1 2107 grid rowconf $base 1 -weight 1 2108 grid $base.fra34 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 2109 grid columnconf $base.fra34 1 -weight 1 2110 grid $base.fra34.lab36 -in $base.fra34 -column "0" -row "0" -columnspan "1" -rowspan "1" -padx "4" -sticky "nesw" 2111 grid $base.fra34.lab37 -in $base.fra34 -column "0" -row "1" -columnspan "1" -rowspan "1" -padx "4" -sticky "nesw" 2112 grid $base.fra34.lab38 -in $base.fra34 -column "1" -row "0" -columnspan "1" -rowspan "1" -padx "2" -sticky "nesw" 2113 grid $base.fra34.lab39 -in $base.fra34 -column "1" -row "1" -columnspan "1" -rowspan "1" -padx "2" -sticky "nesw" 2114 grid $base.but40 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2115 grid $base.cpd36 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "nesw" 2116 grid columnconf $base.cpd36 0 -weight 1 2117 grid rowconf $base.cpd36 0 -weight 1 2118 grid $base.cpd36.01 -in $base.cpd36 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2119 grid $base.cpd36.02 -in $base.cpd36 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2120 grid $base.cpd36.03 -in $base.cpd36 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2121} 2122 2123proc vTclWindow.top40 {base {container 0}} { 2124 if {$base == ""} { 2125 set base .top40 2126 } 2127 if {[winfo exists $base] && (!$container)} { 2128 wm deiconify $base; return 2129 } 2130 ################### 2131 # CREATING WIDGETS 2132 ################### 2133 if {!$container} { 2134 toplevel $base -class Toplevel -borderwidth "4" -menu "$base.m52" 2135 wm focusmodel $base passive 2136 wm geometry $base 589x379 2137 wm maxsize $base 1284 1002 2138 wm minsize $base 115 1 2139 wm overrideredirect $base 0 2140 wm resizable $base 1 1 2141 wm title $base "secpanel - Remote Account Manager" 2142 } 2143 frame $base.fra41 -relief "groove" -height "75" -width "125" 2144 frame $base.fra41.cpd50 -relief "raised" -height "30" -width "30" 2145 scrollbar $base.fra41.cpd50.01 -borderwidth "1" -command "$base.fra41.cpd50.03 xview" -orient "horizontal" -width "10" 2146 scrollbar $base.fra41.cpd50.02 -borderwidth "1" -command "$base.fra41.cpd50.03 yview" -width "10" 2147 text $base.fra41.cpd50.03 -borderwidth "1" -height "1" -width "8" -xscrollcommand "$base.fra41.cpd50.01 set" -yscrollcommand "$base.fra41.cpd50.02 set" 2148 frame $base.fra42 -relief "groove" -height "75" -width "125" 2149 frame $base.fra42.cpd49 -relief "raised" -height "30" -width "30" 2150 scrollbar $base.fra42.cpd49.01 -borderwidth "1" -command "$base.fra42.cpd49.03 xview" -orient "horizontal" -width "10" 2151 scrollbar $base.fra42.cpd49.02 -borderwidth "1" -command "$base.fra42.cpd49.03 yview" -width "10" 2152 text $base.fra42.cpd49.03 -borderwidth "1" -height "1" -width "8" -xscrollcommand "$base.fra42.cpd49.01 set" -yscrollcommand "$base.fra42.cpd49.02 set" 2153 frame $base.fra43 -borderwidth "2" -relief "groove" -height "75" -width "125" 2154 button $base.fra43.but47 -command "manage_remote cancel" -relief "groove" -text "Do nothing" 2155 button $base.fra43.but48 -command "manage_remote write" -relief "groove" -text "Write settings to remote account" 2156 label $base.lab51 -anchor "w" -borderwidth "0" -font "helvetica 12 bold" -text "Remote Account Manager for..." 2157 menu $base.m52 -activeborderwidth "1" -borderwidth "1" -cursor "" 2158 label $base.lab53 -anchor "w" -borderwidth "0" -relief "raised" -text "Remote ~/.ssh/authorized_keys file" 2159 frame $base.fra54 -relief "groove" -height "75" -width "125" 2160 frame $base.fra54.cpd57 -relief "raised" -height "30" -width "30" 2161 scrollbar $base.fra54.cpd57.01 -borderwidth "1" -command "$base.fra54.cpd57.03 xview" -orient "horizontal" -width "10" 2162 scrollbar $base.fra54.cpd57.02 -borderwidth "1" -command "$base.fra54.cpd57.03 yview" -width "10" 2163 text $base.fra54.cpd57.03 -borderwidth "1" -height "1" -width "6" -wrap "none" -xscrollcommand "$base.fra54.cpd57.01 set" -yscrollcommand "$base.fra54.cpd57.02 set" 2164 label $base.lab55 -anchor "w" -borderwidth "0" -relief "raised" -text "Remote ~/.shosts file" 2165 label $base.lab56 -anchor "w" -borderwidth "0" -relief "raised" -text "Remote ~/.ssh/rc file" 2166 ################### 2167 # SETTING GEOMETRY 2168 ################### 2169 grid columnconf $base 0 -weight 1 2170 grid rowconf $base 2 -weight 1 2171 grid rowconf $base 4 -weight 1 2172 grid rowconf $base 6 -weight 1 2173 grid $base.fra41 -in $base -column "0" -row "4" -columnspan "1" -rowspan "1" -sticky "nesw" 2174 grid columnconf $base.fra41 0 -weight 1 2175 grid rowconf $base.fra41 0 -weight 1 2176 grid $base.fra41.cpd50 -in $base.fra41 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2177 grid columnconf $base.fra41.cpd50 0 -weight 1 2178 grid rowconf $base.fra41.cpd50 0 -weight 1 2179 grid $base.fra41.cpd50.01 -in $base.fra41.cpd50 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2180 grid $base.fra41.cpd50.02 -in $base.fra41.cpd50 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2181 grid $base.fra41.cpd50.03 -in $base.fra41.cpd50 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2182 grid $base.fra42 -in $base -column "0" -row "6" -columnspan "1" -rowspan "1" -sticky "nesw" 2183 grid columnconf $base.fra42 0 -weight 1 2184 grid rowconf $base.fra42 0 -weight 1 2185 grid $base.fra42.cpd49 -in $base.fra42 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2186 grid columnconf $base.fra42.cpd49 0 -weight 1 2187 grid rowconf $base.fra42.cpd49 0 -weight 1 2188 grid $base.fra42.cpd49.01 -in $base.fra42.cpd49 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2189 grid $base.fra42.cpd49.02 -in $base.fra42.cpd49 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2190 grid $base.fra42.cpd49.03 -in $base.fra42.cpd49 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2191 grid $base.fra43 -in $base -column "0" -row "8" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -sticky "ew" 2192 grid $base.fra43.but47 -in $base.fra43 -column "0" -row "0" -columnspan "1" -rowspan "1" 2193 grid $base.fra43.but48 -in $base.fra43 -column "1" -row "0" -columnspan "1" -rowspan "1" 2194 grid $base.lab51 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2195 grid $base.lab53 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2196 grid $base.fra54 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "nesw" 2197 grid columnconf $base.fra54 0 -weight 1 2198 grid rowconf $base.fra54 0 -weight 1 2199 grid $base.fra54.cpd57 -in $base.fra54 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2200 grid columnconf $base.fra54.cpd57 0 -weight 1 2201 grid rowconf $base.fra54.cpd57 0 -weight 1 2202 grid $base.fra54.cpd57.01 -in $base.fra54.cpd57 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2203 grid $base.fra54.cpd57.02 -in $base.fra54.cpd57 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2204 grid $base.fra54.cpd57.03 -in $base.fra54.cpd57 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2205 grid $base.lab55 -in $base -column "0" -row "3" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 2206 grid $base.lab56 -in $base -column "0" -row "5" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2207} 2208 2209proc vTclWindow.top43 {base {container 0}} { 2210 if {$base == ""} { 2211 set base .top43 2212 } 2213 if {[winfo exists $base] && (!$container)} { 2214 wm deiconify $base; return 2215 } 2216 ################### 2217 # CREATING WIDGETS 2218 ################### 2219 if {!$container} { 2220 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 2221 wm focusmodel $base passive 2222 wm geometry $base 243x350 2223 wm maxsize $base 1009 738 2224 wm minsize $base 115 1 2225 wm overrideredirect $base 0 2226 wm resizable $base 1 1 2227 wm title $base "secpanel - Local forwardings" 2228 } 2229 frame $base.cpd44 -borderwidth "1" -highlightcolor "#000000" -width "60" 2230 listbox $base.cpd44.01 -borderwidth "1" -height "5" -highlightcolor "#000000" -xscrollcommand "$base.cpd44.02 set" -yscrollcommand "$base.cpd44.03 set" 2231 bind $base.cpd44.01 <Button-1> { 2232 .top43.cpd44.01 activate @%x,%y 2233 showcomm l 2234 } 2235 scrollbar $base.cpd44.02 -borderwidth "1" -command "$base.cpd44.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2236 scrollbar $base.cpd44.03 -borderwidth "1" -command "$base.cpd44.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2237 frame $base.fra45 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 2238 entry $base.fra45.ent46 -borderwidth "1" -highlightcolor "#000000" -width "10" 2239 label $base.fra45.lab47 -borderwidth "1" -highlightcolor "#000000" -relief "raised" -text ">" 2240 entry $base.fra45.ent48 -borderwidth "1" -highlightcolor "#000000" -width "10" 2241 bind $base.fra45.ent48 <Key-Return> { 2242 add_forw l 2243 } 2244 menubutton $base.fra45.men49 -highlightcolor "#000000" -indicatoron "1" -menu "$base.fra45.men49.m" -padx "4" -pady "3" -relief "groove" -text "Ports" 2245 menu $base.fra45.men49.m -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 2246 $base.fra45.men49.m add command -command "insprot 110 l" -label "pop3" -state "active" 2247 $base.fra45.men49.m add command -command "insprot 143 l" -label "imap" 2248 $base.fra45.men49.m add command -command "insprot 80 l" -label "http" 2249 $base.fra45.men49.m add command -command "insprot 25 l" -label "smtp" 2250 $base.fra45.men49.m add command -command "insprot 23 l" -label "telnet" 2251 $base.fra45.men49.m add command -command "insprot 5901 l" -label "vnc" 2252 button $base.fra45.but21 -command "add_forw l" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Add" 2253 button $base.fra45.but17 -command "del_forw l" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Delete" 2254 entry $base.fra45.ent17 -borderwidth "1" -highlightcolor "#000000" 2255 label $base.fra45.lab17 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Host - leave empty for target host:" 2256 label $base.fra45.lab33 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Comment:" 2257 entry $base.fra45.ent34 -borderwidth "1" -highlightcolor "#000000" 2258 label $base.fra45.lab35 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Ports:" 2259 button $base.but22 -command "Window destroy .top43" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Cancel" 2260 button $base.but17 -command "save_forwards l" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "OK" 2261 label $base.lab25 -anchor "w" -highlightcolor "#000000" 2262 label $base.lab26 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Local forwardings" 2263 ################### 2264 # SETTING GEOMETRY 2265 ################### 2266 grid columnconf $base 0 -weight 1 2267 grid columnconf $base 1 -weight 1 2268 grid rowconf $base 1 -weight 1 2269 grid $base.cpd44 -in $base -column "0" -row "1" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "nesw" 2270 grid columnconf $base.cpd44 0 -weight 1 2271 grid rowconf $base.cpd44 0 -weight 1 2272 grid $base.cpd44.01 -in $base.cpd44 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2273 grid $base.cpd44.02 -in $base.cpd44 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2274 grid $base.cpd44.03 -in $base.cpd44 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2275 grid $base.fra45 -in $base -column "0" -row "3" -columnspan "2" -rowspan "1" -ipadx "4" -ipady "4" -padx "4" -pady "4" -sticky "ew" 2276 grid columnconf $base.fra45 0 -weight 1 2277 grid columnconf $base.fra45 2 -weight 1 2278 grid $base.fra45.ent46 -in $base.fra45 -column "0" -row "3" -columnspan "1" -rowspan "1" -padx "4" -sticky "ew" 2279 grid $base.fra45.lab47 -in $base.fra45 -column "1" -row "3" -columnspan "1" -rowspan "1" 2280 grid $base.fra45.ent48 -in $base.fra45 -column "2" -row "3" -columnspan "1" -rowspan "1" -padx "4" -sticky "ew" 2281 grid $base.fra45.men49 -in $base.fra45 -column "2" -row "6" -columnspan "1" -rowspan "1" 2282 grid $base.fra45.but21 -in $base.fra45 -column "1" -row "6" -columnspan "1" -rowspan "1" 2283 grid $base.fra45.but17 -in $base.fra45 -column "0" -row "6" -columnspan "1" -rowspan "1" 2284 grid $base.fra45.ent17 -in $base.fra45 -column "0" -row "1" -columnspan "3" -rowspan "1" -padx "4" -sticky "ew" 2285 grid $base.fra45.lab17 -in $base.fra45 -column "0" -row "0" -columnspan "3" -rowspan "1" -sticky "ew" 2286 grid $base.fra45.lab33 -in $base.fra45 -column "0" -row "4" -columnspan "3" -rowspan "1" -sticky "ew" 2287 grid $base.fra45.ent34 -in $base.fra45 -column "0" -row "5" -columnspan "3" -rowspan "1" -padx "4" -sticky "ew" 2288 grid $base.fra45.lab35 -in $base.fra45 -column "0" -row "2" -columnspan "3" -rowspan "1" -sticky "ew" 2289 grid $base.but22 -in $base -column "0" -row "4" -columnspan "1" -rowspan "1" 2290 grid $base.but17 -in $base -column "1" -row "4" -columnspan "1" -rowspan "1" 2291 grid $base.lab25 -in $base -column "0" -row "2" -columnspan "2" -rowspan "1" -padx "2" -sticky "ew" 2292 grid $base.lab26 -in $base -column "0" -row "0" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "new" 2293} 2294 2295proc vTclWindow.top50 {base {container 0}} { 2296 if {$base == ""} { 2297 set base .top50 2298 } 2299 if {[winfo exists $base] && (!$container)} { 2300 wm deiconify $base; return 2301 } 2302 ################### 2303 # CREATING WIDGETS 2304 ################### 2305 if {!$container} { 2306 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 2307 wm focusmodel $base passive 2308 wm geometry $base 315x236 2309 wm maxsize $base 1009 738 2310 wm minsize $base 115 1 2311 wm overrideredirect $base 0 2312 wm resizable $base 1 1 2313 wm title $base "secpanel - Hostkeys" 2314 } 2315 frame $base.fra51 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 2316 frame $base.fra51.fra53 -height "75" -highlightcolor "#000000" -width "125" 2317 button $base.fra51.fra53.but56 -command "hostkey view" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -state "disabled" -text "View" 2318 button $base.fra51.fra53.but57 -command "hostkey delete" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Delete" 2319 button $base.fra51.fra53.but18 -command "hostkey export" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -state "disabled" -text "Export" 2320 frame $base.fra51.cpd54 -relief "raised" -height "30" -highlightcolor "#000000" -width "30" 2321 listbox $base.fra51.cpd54.01 -borderwidth "1" -highlightcolor "#000000" -xscrollcommand "$base.fra51.cpd54.02 set" -yscrollcommand "$base.fra51.cpd54.03 set" 2322 scrollbar $base.fra51.cpd54.02 -borderwidth "1" -command "$base.fra51.cpd54.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2323 scrollbar $base.fra51.cpd54.03 -borderwidth "1" -command "$base.fra51.cpd54.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2324 label $base.fra51.lab17 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Collected hostkeys, keytype assumed:" 2325 label $base.fra51.lab177 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -textvariable "hostkeytype" 2326 button $base.but38 -command "Window destroy .top50" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Close" 2327 ################### 2328 # SETTING GEOMETRY 2329 ################### 2330 grid columnconf $base 0 -weight 1 2331 grid rowconf $base 0 -weight 1 2332 grid $base.fra51 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 2333 grid columnconf $base.fra51 0 -weight 1 2334 grid rowconf $base.fra51 2 -weight 1 2335 grid $base.fra51.fra53 -in $base.fra51 -column "1" -row "2" -columnspan "1" -rowspan "1" -ipadx "2" -padx "2" -sticky "n" 2336 grid $base.fra51.fra53.but56 -in $base.fra51.fra53 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2337 grid $base.fra51.fra53.but57 -in $base.fra51.fra53 -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "ew" 2338 grid $base.fra51.fra53.but18 -in $base.fra51.fra53 -column "0" -row "1" -columnspan "1" -rowspan "1" 2339 grid $base.fra51.cpd54 -in $base.fra51 -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "nesw" 2340 grid columnconf $base.fra51.cpd54 0 -weight 1 2341 grid rowconf $base.fra51.cpd54 0 -weight 1 2342 grid $base.fra51.cpd54.01 -in $base.fra51.cpd54 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2343 grid $base.fra51.cpd54.02 -in $base.fra51.cpd54 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2344 grid $base.fra51.cpd54.03 -in $base.fra51.cpd54 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2345 grid $base.fra51.lab17 -in $base.fra51 -column "0" -row "0" -columnspan "2" -rowspan "1" -sticky "ew" 2346 grid $base.fra51.lab177 -in $base.fra51 -column "0" -row "1" -columnspan "2" -rowspan "1" -sticky "ew" 2347 grid $base.but38 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 2348} 2349 2350proc vTclWindow.top51 {base {container 0}} { 2351 if {$base == ""} { 2352 set base .top51 2353 } 2354 if {[winfo exists $base] && (!$container)} { 2355 wm deiconify $base; return 2356 } 2357 ################### 2358 # CREATING WIDGETS 2359 ################### 2360 if {!$container} { 2361 toplevel $base -class Toplevel -borderwidth "4" -menu "$base.m20" -highlightcolor "#000000" 2362 wm focusmodel $base passive 2363 wm geometry $base 243x349 2364 wm maxsize $base 1009 738 2365 wm minsize $base 115 1 2366 wm overrideredirect $base 0 2367 wm resizable $base 1 1 2368 wm title $base "secpanel - Remote forwardings" 2369 } 2370 frame $base.cpd53 -borderwidth "1" -height "30" -highlightcolor "#000000" -width "30" 2371 listbox $base.cpd53.01 -borderwidth "1" -height "5" -highlightcolor "#000000" -xscrollcommand "$base.cpd53.02 set" -yscrollcommand "$base.cpd53.03 set" 2372 bind $base.cpd53.01 <Button-1> { 2373 .top51.cpd53.01 activate @%x,%y 2374 showcomm r 2375 } 2376 scrollbar $base.cpd53.02 -borderwidth "1" -command "$base.cpd53.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2377 scrollbar $base.cpd53.03 -borderwidth "1" -command "$base.cpd53.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2378 button $base.but21 -command "Window destroy .top51" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Cancel" 2379 button $base.but18 -command "save_forwards r" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "OK" 2380 label $base.lab24 -anchor "w" -highlightcolor "#000000" 2381 frame $base.fra36 -borderwidth "2" -relief "groove" -height "75" -highlightcolor "#000000" -width "125" 2382 entry $base.fra36.01 -borderwidth "1" -highlightcolor "#000000" -width "10" 2383 label $base.fra36.02 -borderwidth "1" -highlightcolor "#000000" -relief "raised" -text ">" 2384 entry $base.fra36.03 -borderwidth "1" -highlightcolor "#000000" -width "10" 2385 bind $base.fra36.03 <Key-Return> { 2386 add_forw r 2387 } 2388 menubutton $base.fra36.04 -highlightcolor "#000000" -indicatoron "1" -menu "$base.fra36.04.05" -padx "4" -pady "3" -relief "groove" -text "Ports" 2389 menu $base.fra36.04.05 -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 2390 $base.fra36.04.05 add command -command "insprot 110 r" -label "pop3" -state "active" 2391 $base.fra36.04.05 add command -command "insprot 143 r" -label "imap" 2392 $base.fra36.04.05 add command -command "insprot 80 r" -label "http" 2393 $base.fra36.04.05 add command -command "insprot 25 r" -label "smtp" 2394 $base.fra36.04.05 add command -command "insprot 23 r" -label "telnet" 2395 $base.fra36.04.05 add command -command "insprot 5901 r" -label "vnc" 2396 button $base.fra36.06 -command "add_forw r" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Add" 2397 button $base.fra36.07 -command "del_forw r" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Delete" 2398 entry $base.fra36.08 -borderwidth "1" -highlightcolor "#000000" 2399 label $base.fra36.09 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Host - leave empty for local host:" 2400 label $base.fra36.010 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Comment:" 2401 entry $base.fra36.011 -borderwidth "1" -highlightcolor "#000000" 2402 label $base.fra36.012 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Ports:" 2403 label $base.lab27 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Remote forwardings" 2404 ################### 2405 # SETTING GEOMETRY 2406 ################### 2407 grid columnconf $base 0 -weight 1 2408 grid columnconf $base 1 -weight 1 2409 grid rowconf $base 1 -weight 1 2410 grid $base.cpd53 -in $base -column "0" -row "1" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "nesw" 2411 grid columnconf $base.cpd53 0 -weight 1 2412 grid rowconf $base.cpd53 0 -weight 1 2413 grid $base.cpd53.01 -in $base.cpd53 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2414 grid $base.cpd53.02 -in $base.cpd53 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2415 grid $base.cpd53.03 -in $base.cpd53 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2416 grid $base.but21 -in $base -column "0" -row "4" -columnspan "1" -rowspan "1" 2417 grid $base.but18 -in $base -column "1" -row "4" -columnspan "1" -rowspan "1" 2418 grid $base.lab24 -in $base -column "0" -row "2" -columnspan "2" -rowspan "1" -padx "2" -sticky "ew" 2419 grid $base.fra36 -in $base -column "0" -row "3" -columnspan "2" -rowspan "1" -ipadx "4" -ipady "4" -padx "4" -pady "4" -sticky "ew" 2420 grid columnconf $base.fra36 0 -weight 1 2421 grid columnconf $base.fra36 2 -weight 1 2422 grid $base.fra36.01 -in $base.fra36 -column "0" -row "3" -columnspan "1" -rowspan "1" -padx "4" -sticky "ew" 2423 grid $base.fra36.02 -in $base.fra36 -column "1" -row "3" -columnspan "1" -rowspan "1" 2424 grid $base.fra36.03 -in $base.fra36 -column "2" -row "3" -columnspan "1" -rowspan "1" -padx "4" -sticky "ew" 2425 grid $base.fra36.04 -in $base.fra36 -column "2" -row "6" -columnspan "1" -rowspan "1" 2426 grid $base.fra36.06 -in $base.fra36 -column "1" -row "6" -columnspan "1" -rowspan "1" 2427 grid $base.fra36.07 -in $base.fra36 -column "0" -row "6" -columnspan "1" -rowspan "1" 2428 grid $base.fra36.08 -in $base.fra36 -column "0" -row "1" -columnspan "3" -rowspan "1" -padx "4" -sticky "ew" 2429 grid $base.fra36.09 -in $base.fra36 -column "0" -row "0" -columnspan "3" -rowspan "1" -sticky "ew" 2430 grid $base.fra36.010 -in $base.fra36 -column "0" -row "4" -columnspan "3" -rowspan "1" -sticky "ew" 2431 grid $base.fra36.011 -in $base.fra36 -column "0" -row "5" -columnspan "3" -rowspan "1" -padx "4" -sticky "ew" 2432 grid $base.fra36.012 -in $base.fra36 -column "0" -row "2" -columnspan "3" -rowspan "1" -sticky "ew" 2433 grid $base.lab27 -in $base -column "0" -row "0" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "new" 2434} 2435 2436proc vTclWindow.top52 {base {container 0}} { 2437 if {$base == ""} { 2438 set base .top52 2439 } 2440 if {[winfo exists $base] && (!$container)} { 2441 wm deiconify $base; return 2442 } 2443 ################### 2444 # CREATING WIDGETS 2445 ################### 2446 if {!$container} { 2447 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 2448 wm focusmodel $base passive 2449 wm geometry $base 353x420 2450 wm maxsize $base 1265 994 2451 wm minsize $base 115 1 2452 wm overrideredirect $base 0 2453 wm resizable $base 1 1 2454 wm title $base "secpanel - Key management" 2455 } 2456 frame $base.fra18 -height "75" -highlightcolor "#000000" -width "125" 2457 label $base.fra18.lab23 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Comment" 2458 entry $base.fra18.ent24 -borderwidth "1" -highlightcolor "#000000" 2459 label $base.fra18.lab25 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Keyfile" 2460 entry $base.fra18.ent26 -borderwidth "1" -highlightcolor "#000000" 2461 button $base.fra18.but27 -command "keygen chpath" -height "1" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" 2462 label $base.fra18.lab28 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Passphrase" 2463 entry $base.fra18.ent29 -borderwidth "1" -highlightcolor "#000000" -show "*" 2464 checkbutton $base.fra18.che30 -borderwidth "1" -highlightcolor "#000000" -text "No passphrase" -variable "nopass" 2465 button $base.fra18.but54 -command "keygen gen" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Generate keypair" 2466 entry $base.fra18.ent25 -borderwidth "1" -highlightcolor "#000000" -show "*" 2467 label $base.fra18.lab26 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Repeat pass." 2468 checkbutton $base.fra18.che17 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -justify "left" -text "Enter passphrase 2469in textmode" -variable "passintext" 2470 menubutton $base.fra18.men30 -highlightcolor "#000000" -indicatoron "1" -menu "$base.fra18.men30.m" -padx "4" -pady "3" -relief "groove" -textvariable "keytype" 2471 menu $base.fra18.men30.m -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 2472 $base.fra18.men30.m add radiobutton -value "SSH2 RSA" -variable "keytype" -label "SSH2 RSA" 2473 $base.fra18.men30.m add radiobutton -value "SSH2 DSA" -variable "keytype" -label "SSH2 DSA" 2474 $base.fra18.men30.m add radiobutton -value "SSH1 RSA1" -variable "keytype" -label "SSH1 RSA1" 2475 label $base.fra18.lab31 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -relief "raised" -text "Keytype" 2476 label $base.lab32 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Key-generation" 2477 label $base.lab33 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -text "Editing, conversion and information" 2478 frame $base.fra34 -height "75" -highlightcolor "#000000" -width "125" 2479 frame $base.fra34.cpd17 -borderwidth "1" -height "30" -highlightcolor "#000000" -width "30" 2480 listbox $base.fra34.cpd17.01 -borderwidth "1" -highlightcolor "#000000" -xscrollcommand "$base.fra34.cpd17.02 set" -yscrollcommand "$base.fra34.cpd17.03 set" 2481 bind $base.fra34.cpd17.01 <Double-Button-1> { 2482 keygen info 2483 } 2484 scrollbar $base.fra34.cpd17.02 -borderwidth "1" -command "$base.fra34.cpd17.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2485 scrollbar $base.fra34.cpd17.03 -borderwidth "1" -command "$base.fra34.cpd17.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2486 frame $base.fra34.fra20 -borderwidth "1" -height "75" -highlightcolor "#000000" -width "125" 2487 button $base.fra34.fra20.but21 -command "keygen info" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Show information" 2488 button $base.fra34.fra20.but22 -command "keygen 1" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Change passphrase" 2489 checkbutton $base.fra34.fra20.che23 -anchor "w" -borderwidth "1" -highlightcolor "#000000" -justify "left" -text "Change passphrase 2490in textmode" -variable "pwtextmode" 2491 button $base.fra34.fra20.but24 -command "keygen del" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Delete key" 2492 menubutton $base.fra34.fra20.men33 -highlightcolor "#000000" -menu "$base.fra34.fra20.men33.m" -padx "4" -pady "3" -relief "groove" -state "disabled" -text "Convert key to..." 2493 menu $base.fra34.fra20.men33.m -activeborderwidth "1" -borderwidth "1" -cursor "" -tearoff "0" 2494 $base.fra34.fra20.men33.m add command -label "SECSH Public Key File Format" 2495 $base.fra34.fra20.men33.m add command -label "OpenSSH compatible" 2496 $base.fra34.fra20.men33.m add command -label "OpenSSH public key" 2497 button $base.fra34.fra20.but17 -command "update_keylist" -highlightcolor "#000000" -relief "groove" -text "Refresh list" 2498 button $base.but37 -command "Window destroy .top52" -highlightcolor "#000000" -padx "9" -pady "3" -relief "groove" -text "Close" 2499 ################### 2500 # SETTING GEOMETRY 2501 ################### 2502 grid columnconf $base 0 -weight 1 2503 grid rowconf $base 3 -weight 1 2504 grid $base.fra18 -in $base -column "0" -row "1" -columnspan "2" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 2505 grid columnconf $base.fra18 1 -weight 1 2506 grid $base.fra18.lab23 -in $base.fra18 -column "0" -row "2" -columnspan "1" -rowspan "1" -sticky "ew" 2507 grid $base.fra18.ent24 -in $base.fra18 -column "1" -row "2" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2508 grid $base.fra18.lab25 -in $base.fra18 -column "0" -row "3" -columnspan "1" -rowspan "1" -sticky "ew" 2509 grid $base.fra18.ent26 -in $base.fra18 -column "1" -row "3" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2510 grid $base.fra18.but27 -in $base.fra18 -column "2" -row "3" -columnspan "1" -rowspan "1" -sticky "nsw" 2511 grid $base.fra18.lab28 -in $base.fra18 -column "0" -row "4" -columnspan "1" -rowspan "1" -sticky "ew" 2512 grid $base.fra18.ent29 -in $base.fra18 -column "1" -row "4" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2513 grid $base.fra18.che30 -in $base.fra18 -column "2" -row "4" -columnspan "1" -rowspan "1" -sticky "w" 2514 grid $base.fra18.but54 -in $base.fra18 -column "2" -row "6" -columnspan "2" -rowspan "1" 2515 grid $base.fra18.ent25 -in $base.fra18 -column "1" -row "5" -columnspan "1" -rowspan "1" -pady "2" -sticky "ew" 2516 grid $base.fra18.lab26 -in $base.fra18 -column "0" -row "5" -columnspan "1" -rowspan "1" -sticky "ew" 2517 grid $base.fra18.che17 -in $base.fra18 -column "2" -row "5" -columnspan "1" -rowspan "1" -sticky "ew" 2518 grid $base.fra18.men30 -in $base.fra18 -column "1" -row "6" -columnspan "1" -rowspan "1" -sticky "ew" 2519 grid $base.fra18.lab31 -in $base.fra18 -column "0" -row "6" -columnspan "1" -rowspan "1" -sticky "ew" 2520 grid $base.lab32 -in $base -column "0" -row "0" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 2521 grid $base.lab33 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 2522 grid $base.fra34 -in $base -column "0" -row "3" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 2523 grid columnconf $base.fra34 0 -weight 1 2524 grid rowconf $base.fra34 0 -weight 1 2525 grid rowconf $base.fra34 1 -weight 1 2526 grid $base.fra34.cpd17 -in $base.fra34 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2527 grid columnconf $base.fra34.cpd17 0 -weight 1 2528 grid rowconf $base.fra34.cpd17 0 -weight 1 2529 grid $base.fra34.cpd17.01 -in $base.fra34.cpd17 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2530 grid $base.fra34.cpd17.02 -in $base.fra34.cpd17 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2531 grid $base.fra34.cpd17.03 -in $base.fra34.cpd17 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2532 grid $base.fra34.fra20 -in $base.fra34 -column "1" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "n" 2533 grid $base.fra34.fra20.but21 -in $base.fra34.fra20 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2534 grid $base.fra34.fra20.but22 -in $base.fra34.fra20 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2535 grid $base.fra34.fra20.che23 -in $base.fra34.fra20 -column "0" -row "2" -columnspan "2" -rowspan "1" -sticky "ew" 2536 grid $base.fra34.fra20.but24 -in $base.fra34.fra20 -column "0" -row "4" -columnspan "1" -rowspan "1" -sticky "ew" 2537 grid $base.fra34.fra20.men33 -in $base.fra34.fra20 -column "0" -row "3" -columnspan "1" -rowspan "1" -sticky "ew" 2538 grid $base.fra34.fra20.but17 -in $base.fra34.fra20 -column "0" -row "5" -columnspan "1" -rowspan "1" -sticky "ew" 2539 grid $base.but37 -in $base -column "0" -row "4" -columnspan "2" -rowspan "1" -padx "2" -pady "2" -sticky "ew" 2540} 2541 2542proc vTclWindow.top53 {base {container 0}} { 2543 if {$base == ""} { 2544 set base .top53 2545 } 2546 if {[winfo exists $base] && (!$container)} { 2547 wm deiconify $base; return 2548 } 2549 ################### 2550 # CREATING WIDGETS 2551 ################### 2552 if {!$container} { 2553 toplevel $base -class Toplevel -borderwidth "4" -highlightcolor "#000000" 2554 wm focusmodel $base passive 2555 wm geometry $base 436x294 2556 wm maxsize $base 1265 930 2557 wm minsize $base 115 1 2558 wm overrideredirect $base 0 2559 wm resizable $base 1 1 2560 wm title $base "secpanel - Key distribution" 2561 } 2562 frame $base.fra18 -height "75" -highlightcolor "#000000" -width "125" 2563 label $base.fra18.lab21 -anchor "w" -borderwidth "0" -font "Helvetica 12 bold" -highlightcolor "#000000" -text "secpanel key distribution" 2564 frame $base.fra20 -height "75" -highlightcolor "#000000" -width "125" 2565 frame $base.fra20.cpd22 -height "30" -highlightcolor "#000000" -width "30" 2566 listbox $base.fra20.cpd22.01 -borderwidth "1" -highlightcolor "#000000" -xscrollcommand "$base.fra20.cpd22.02 set" -yscrollcommand "$base.fra20.cpd22.03 set" 2567 bind $base.fra20.cpd22.01 <Button-1> { 2568 .top53.fra20.cpd22.01 activate @%x,%y 2569 .top53.fra20.fra26.ent28 delete 0 end 2570 if {[.top53.fra20.cpd22.01 get active] != ""} { 2571 .top53.fra20.fra26.ent28 insert end "$sshdir/[.top53.fra20.cpd22.01 get active].pub" 2572 } 2573 } 2574 bind $base.fra20.cpd22.01 <Double-Button-1> { 2575 distwizard host f 2576 } 2577 scrollbar $base.fra20.cpd22.02 -borderwidth "1" -command "$base.fra20.cpd22.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2578 scrollbar $base.fra20.cpd22.03 -borderwidth "1" -command "$base.fra20.cpd22.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2579 label $base.fra20.lab23 -borderwidth "0" -highlightcolor "#000000" -text "Select which key to distribute" 2580 frame $base.fra20.fra26 -height "75" -highlightcolor "#000000" -width "125" 2581 button $base.fra20.fra26.but27 -command "seldistkey" -highlightcolor "#000000" -relief "groove" -text "Browse" 2582 entry $base.fra20.fra26.ent28 -borderwidth "1" -highlightcolor "#000000" 2583 label $base.fra20.lab32 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -text "Available keys:" 2584 frame $base.fra29 -height "75" -highlightcolor "#000000" -width "125" 2585 button $base.fra29.but30 -command "Window destroy .top53" -highlightcolor "#000000" -relief "groove" -text "Cancel" 2586 button $base.fra29.but31 -command "distwizard host f" -highlightcolor "#000000" -relief "groove" -state "active" -text "Continue" 2587 button $base.fra29.but33 -highlightcolor "#000000" -relief "groove" -state "disabled" -text "Back" 2588 frame $base.fra34 -height "75" -highlightcolor "#000000" -width "125" 2589 frame $base.fra34.cpd35 -borderwidth "1" -height "30" -highlightcolor "#000000" -width "30" 2590 listbox $base.fra34.cpd35.01 -borderwidth "1" -height "0" -highlightcolor "#000000" -selectmode "extended" -xscrollcommand "$base.fra34.cpd35.02 set" -yscrollcommand "$base.fra34.cpd35.03 set" 2591 bind $base.fra34.cpd35.01 <Double-Button-1> { 2592 distwizard confirm f 2593 } 2594 scrollbar $base.fra34.cpd35.02 -borderwidth "1" -command "$base.fra34.cpd35.01 xview" -cursor "left_ptr" -highlightcolor "#000000" -orient "horizontal" -troughcolor "#e2e2de" -width "10" 2595 scrollbar $base.fra34.cpd35.03 -borderwidth "1" -command "$base.fra34.cpd35.01 yview" -cursor "left_ptr" -highlightcolor "#000000" -troughcolor "#e2e2de" -width "10" 2596 label $base.fra34.lab36 -anchor "w" -borderwidth "0" -highlightcolor "#000000" -justify "left" -text "Select connection to distribute the key to:" 2597 frame $base.fra42 -height "75" -highlightcolor "#000000" -width "125" 2598 message $base.fra42.mes44 -aspect "500" -padx "2" -pady "2" -text "message" 2599 label $base.fra42.lab17 -bitmap "question" -borderwidth "0" -highlightcolor "#000000" -text "label" 2600 label $base.lab17 -anchor "w" -borderwidth "0" -highlightcolor "#000000" 2601 ################### 2602 # SETTING GEOMETRY 2603 ################### 2604 grid columnconf $base 0 -weight 1 2605 grid rowconf $base 1 -weight 1 2606 grid $base.fra18 -in $base -column "0" -row "0" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 2607 grid columnconf $base.fra18 0 -weight 1 2608 grid $base.fra18.lab21 -in $base.fra18 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2609 grid $base.fra20 -in $base -column "0" -row "1" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "nesw" 2610 grid columnconf $base.fra20 1 -weight 1 2611 grid rowconf $base.fra20 1 -weight 1 2612 grid $base.fra20.cpd22 -in $base.fra20 -column "1" -row "1" -columnspan "1" -rowspan "2" -sticky "nesw" 2613 grid columnconf $base.fra20.cpd22 0 -weight 1 2614 grid rowconf $base.fra20.cpd22 0 -weight 1 2615 grid $base.fra20.cpd22.01 -in $base.fra20.cpd22 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2616 grid $base.fra20.cpd22.02 -in $base.fra20.cpd22 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2617 grid $base.fra20.cpd22.03 -in $base.fra20.cpd22 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2618 grid $base.fra20.lab23 -in $base.fra20 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2619 grid $base.fra20.fra26 -in $base.fra20 -column "0" -row "1" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -sticky "new" 2620 grid columnconf $base.fra20.fra26 0 -weight 1 2621 grid $base.fra20.fra26.but27 -in $base.fra20.fra26 -column "0" -row "1" -columnspan "1" -rowspan "1" -pady "2" -sticky "w" 2622 grid $base.fra20.fra26.ent28 -in $base.fra20.fra26 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2623 grid $base.fra20.lab32 -in $base.fra20 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ew" 2624 grid $base.fra29 -in $base -column "0" -row "3" -columnspan "1" -rowspan "1" -ipadx "2" -ipady "2" -padx "2" -pady "2" -sticky "ew" 2625 grid columnconf $base.fra29 0 -weight 1 2626 grid columnconf $base.fra29 1 -weight 1 2627 grid $base.fra29.but30 -in $base.fra29 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "w" 2628 grid $base.fra29.but31 -in $base.fra29 -column "2" -row "0" -columnspan "1" -rowspan "1" -sticky "e" 2629 grid $base.fra29.but33 -in $base.fra29 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "e" 2630 2631 grid columnconf $base.fra34 0 -weight 1 2632 grid rowconf $base.fra34 1 -weight 1 2633 2634 grid $base.fra34.cpd35 -in $base.fra34 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "nesw" 2635 grid columnconf $base.fra34.cpd35 0 -weight 1 2636 grid rowconf $base.fra34.cpd35 0 -weight 1 2637 grid $base.fra34.cpd35.01 -in $base.fra34.cpd35 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "nesw" 2638 grid $base.fra34.cpd35.02 -in $base.fra34.cpd35 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "ew" 2639 grid $base.fra34.cpd35.03 -in $base.fra34.cpd35 -column "1" -row "0" -columnspan "1" -rowspan "1" -sticky "ns" 2640 grid $base.fra34.lab36 -in $base.fra34 -column "0" -row "0" -columnspan "1" -rowspan "1" -sticky "new" 2641 2642 grid columnconf $base.fra42 0 -weight 1 2643 grid rowconf $base.fra42 1 -weight 1 2644 2645 grid $base.fra42.mes44 -in $base.fra42 -column "0" -row "1" -columnspan "1" -rowspan "1" -sticky "nesw" 2646 grid $base.fra42.lab17 -in $base.fra42 -column "1" -row "1" -columnspan "1" -rowspan "1" -ipadx "8" -ipady "8" -padx "8" -pady "8" 2647 grid $base.lab17 -in $base -column "0" -row "2" -columnspan "1" -rowspan "1" -padx "2" -sticky "ew" 2648} 2649 2650Window show . 2651Window show .top17 2652 2653