summaryrefslogtreecommitdiffstats
path: root/x11vnc/misc/enhanced_tightvnc_viewer/bin
diff options
context:
space:
mode:
authorrunge <runge>2007-02-05 03:56:27 +0000
committerrunge <runge>2007-02-05 03:56:27 +0000
commit76720eb71bb18ec452ec1782af9f8b8d09e77efc (patch)
tree66dcbb68b03d56685dee5ef8ddaed919e0d1ea44 /x11vnc/misc/enhanced_tightvnc_viewer/bin
parent4a4c8e277442e0decac2fac18cfc995e2341d629 (diff)
downloadlibtdevnc-76720eb71bb18ec452ec1782af9f8b8d09e77efc.tar.gz
libtdevnc-76720eb71bb18ec452ec1782af9f8b8d09e77efc.zip
ssvnc 1.0.11 files.
Diffstat (limited to 'x11vnc/misc/enhanced_tightvnc_viewer/bin')
-rwxr-xr-xx11vnc/misc/enhanced_tightvnc_viewer/bin/ssvnc11
-rwxr-xr-xx11vnc/misc/enhanced_tightvnc_viewer/bin/util/ss_vncviewer5
-rwxr-xr-xx11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl148
3 files changed, 90 insertions, 74 deletions
diff --git a/x11vnc/misc/enhanced_tightvnc_viewer/bin/ssvnc b/x11vnc/misc/enhanced_tightvnc_viewer/bin/ssvnc
index 50e96b0..26d8a3d 100755
--- a/x11vnc/misc/enhanced_tightvnc_viewer/bin/ssvnc
+++ b/x11vnc/misc/enhanced_tightvnc_viewer/bin/ssvnc
@@ -21,6 +21,17 @@ fi
PATH=$PATH:/usr/bin:/bin:/usr/bin/X11:/usr/X11R6/bin:/usr/openwin/bin:/usr/sfw/bin:/usr/local/bin
export PATH
+if [ "X$FULLNAME" = "XKarl J. Runge" ]; then
+ VNCVIEWER_POPUP_FIX=1
+ export VNCVIEWER_POPUP_FIX
+
+ if uname -smr | grep 'Linux 2\.4.*i686' > /dev/null; then
+ UNAME="Linux.i686.older"
+ export UNAME
+ fi
+ PATH=`echo "$PATH" | sed -e 's,runge/bin/override,-------------,'`
+fi
+
if [ "X$WISH" = "X" ]; then
WISH=wish
for try in wish wish8.3 wish8.4 wish8.5
diff --git a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ss_vncviewer b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ss_vncviewer
index 3f8bd42..cf10859 100755
--- a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ss_vncviewer
+++ b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ss_vncviewer
@@ -185,7 +185,10 @@ do
shift
done
-if [ "X$gotalpha" != "X1" ]; then
+if [ "X$gotalpha" = "X1" ]; then
+ VNCVIEWER_ALPHABLEND=1
+ export VNCVIEWER_ALPHABLEND
+else
NO_ALPHABLEND=1
export NO_ALPHABLEND
fi
diff --git a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl
index 4ff7b1a..ac7c605 100755
--- a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl
+++ b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl
@@ -12,6 +12,7 @@ exec wish "$0" "$@"
set buck_zero $argv0
proc center_win {w} {
+ update
set W [winfo screenwidth $w]
set W [expr $W + 1]
wm geometry $w +$W+0
@@ -19,9 +20,16 @@ proc center_win {w} {
set x [expr [winfo screenwidth $w]/2 - [winfo width $w]/2]
set y [expr [winfo screenheight $w]/2 - [winfo height $w]/2]
wm geometry $w +$x+$y
+ wm deiconify $w
update
}
+proc toplev {w} {
+ catch {destroy $w}
+ toplevel $w
+ catch {wm withdraw $w}
+}
+
proc apply_bg {w} {
global is_windows system_button_face
if {$is_windows && $system_button_face != ""} {
@@ -75,8 +83,7 @@ proc jiggle_text {w} {
}
proc help {} {
- catch {destroy .h}
- toplevel .h
+ toplev .h
scroll_text_dismiss .h.f
@@ -255,8 +262,7 @@ proc help {} {
}
proc help_certs {} {
- catch {destroy .ch}
- toplevel .ch
+ toplev .ch
scroll_text_dismiss .ch.f 90 33
@@ -340,8 +346,7 @@ proc help_certs {} {
}
proc help_opts {} {
- catch {destroy .oh}
- toplevel .oh
+ toplev .oh
scroll_text_dismiss .oh.f
@@ -476,8 +481,7 @@ set msg {
proc win_nokill_msg {} {
global help_font is_windows system_button_face
- catch {destroy .w}
- toplevel .w
+ toplev .w
eval text .w.t -width 60 -height 11 $help_font
button .w.d -text "Dismiss" -command {destroy .w}
@@ -507,8 +511,7 @@ proc win_nokill_msg {} {
proc win_kill_msg {pids} {
global terminate_pids
global help_font
- catch {destroy .w}
- toplevel .w
+ toplev .w
eval text .w.t -width 72 -height 19 $help_font
button .w.d -text "Dismiss" -command {destroy .w; set terminate_pids no}
@@ -546,9 +549,8 @@ proc win_kill_msg {pids} {
}
proc win9x_plink_msg {file} {
- catch {destroy .pl}
global help_font win9x_plink_msg_done
- toplevel .pl
+ toplev .pl
eval text .pl.t -width 90 -height 26 $help_font
button .pl.d -text "OK" -command {destroy .pl; set win9x_plink_msg_done 1}
@@ -783,6 +785,7 @@ proc do_viewer_windows {n} {
set emess ""
set rc [catch {eval exec $cmd} emess]
if {$rc != 0} {
+ raise .
tk_messageBox -type ok -icon error -message $emess -title "Error: $cmd"
}
}
@@ -974,8 +977,7 @@ proc contag {} {
}
proc make_plink {} {
- catch {destroy .plink}
- toplevel .plink
+ toplev .plink
#wm geometry .plink +700+500
wm geometry .plink -40-40
wm title .plink "plink SSH status?"
@@ -1569,6 +1571,7 @@ proc check_ssh_needed {} {
set msg "\"Use SSL\" mode selected (no SSH)\nThe following options will be disabled:\n\n$msg"
bell
update
+ raise .
tk_messageBox -type ok -icon info -message $msg
}
}
@@ -1626,6 +1629,7 @@ proc darwin_terminal_cmd {{title ""} {cmd ""} {bg 0}} {
}
}
if {! [info exists darwin_terminal]} {
+ raise .
tk_messageBox -type ok -icon error -message "Cannot find Darwin Terminal program." -title "Cannot find Terminal program"
return
}
@@ -1641,6 +1645,7 @@ proc darwin_terminal_cmd {{title ""} {cmd ""} {bg 0}} {
set fh ""
catch {set fh [open $tmp w 0755]}
if {$fh == ""} {
+ raise .
tk_messageBox -type ok -icon error -message "Cannot open temporary file: $tmp" -title "Cannot open file"
return
}
@@ -1939,6 +1944,7 @@ proc direct_connect_msg {} {
}
if {$msg != ""} {
set msg "Direct connect via vnc://hostname\nThe following options will be disabled:\n\n$msg"
+ raise .
tk_messageBox -type ok -icon info -message $msg
}
}
@@ -2128,7 +2134,11 @@ proc launch_unix {hp} {
if {$change_vncviewer && $change_vncviewer_path != ""} {
set env(VNCVIEWERCMD) $change_vncviewer_path
} else {
- set env(VNCVIEWERCMD) ""
+ if [info exists env(VNCVIEWERCMD_OVERRIDE)] {
+ set env(VNCVIEWERCMD) $env(VNCVIEWERCMD_OVERRIDE)
+ } else {
+ set env(VNCVIEWERCMD) ""
+ }
}
set realvnc4 $vncviewer_realvnc4
@@ -2777,14 +2787,14 @@ proc get_idir_certs {str} {
return $idir
}
-proc set_mycert {} {
+proc set_mycert {{parent "."}} {
global mycert
set idir [get_idir_certs $mycert]
set t ""
if {$idir != ""} {
- set t [tk_getOpenFile -initialdir $idir]
+ set t [tk_getOpenFile -parent $parent -initialdir $idir]
} else {
- set t [tk_getOpenFile]
+ set t [tk_getOpenFile -parent $parent]
}
if {$t != ""} {
set mycert $t
@@ -2812,8 +2822,7 @@ proc show_cert {crt} {
}
set w .show_certificate
- catch {destroy $w}
- toplevel $w
+ toplev $w
scroll_text $w.f
button $w.b -text Dismiss -command "destroy $w"
bind $w <Escape> "destroy $w"
@@ -2855,14 +2864,14 @@ proc show_svcert {} {
show_cert $svcert
}
-proc set_svcert {} {
+proc set_svcert {{parent "."}} {
global svcert crtdir
set idir [get_idir_certs $svcert]
set t ""
if {$idir != ""} {
- set t [tk_getOpenFile -initialdir $idir]
+ set t [tk_getOpenFile -parent $parent -initialdir $idir]
} else {
- set t [tk_getOpenFile]
+ set t [tk_getOpenFile -parent $parent]
}
if {$t != ""} {
set crtdir ""
@@ -2873,14 +2882,14 @@ proc set_svcert {} {
update
}
-proc set_crtdir {} {
+proc set_crtdir {{parent "."}} {
global svcert crtdir
set idir [get_idir_certs $crtdir]
set t ""
if {$idir != ""} {
- set t [tk_chooseDirectory -initialdir $idir]
+ set t [tk_chooseDirectory -parent $parent -initialdir $idir]
} else {
- set t [tk_chooseDirectory]
+ set t [tk_chooseDirectory -parent $parent]
}
if {$t != ""} {
set svcert ""
@@ -2896,9 +2905,9 @@ proc set_createcert_file {} {
set idir [get_idir_certs $ccert(FILE)]
}
if {$idir != ""} {
- set t [tk_getSaveFile -defaultextension ".pem" -initialdir $idir]
+ set t [tk_getSaveFile -parent .ccrt -defaultextension ".pem" -initialdir $idir]
} else {
- set t [tk_getSaveFile -defaultextension ".pem"]
+ set t [tk_getSaveFile -parent .ccrt -defaultextension ".pem"]
}
if {$t != ""} {
set ccert(FILE) $t
@@ -3102,6 +3111,7 @@ emailAddress_max = 64
update
set rc [catch {eval exec $cmd} emess]
if {$rc != 0 && [regexp -nocase {error:} $emess]} {
+ raise .
tk_messageBox -type ok -icon error -message $emess -title "OpenSSL req command failed"
return
}
@@ -3123,6 +3133,7 @@ emailAddress_max = 64
set bad "$crt"
}
if {$bad != ""} {
+ raise .
tk_messageBox -type ok -icon error -message "Not created: $bad" -title "OpenSSL could not create cert"
catch {raise .c}
return
@@ -3135,6 +3146,7 @@ emailAddress_max = 64
update
set rc [catch {set ph [open "| $cmd" "w"]} emess]
if {$rc != 0 || $ph == ""} {
+ raise .
tk_messageBox -type ok -icon error -message $emess -title "Count not encrypt private key"
catch {file delete $pem}
catch {file delete $crt}
@@ -3160,12 +3172,12 @@ emailAddress_max = 64
if [winfo exists .c] {
set p .c
}
+
set reply [tk_messageBox -parent $p -type yesno -title "View Cert" -message "View Certificate and Info?"]
catch {raise .c}
if {$reply == "yes"} {
set w .view_cert
- catch {destroy $w}
- toplevel $w
+ toplev $w
scroll_text $w.f
set cert ""
set fh ""
@@ -3207,8 +3219,7 @@ emailAddress_max = 64
catch {raise .c}
if {$reply == "yes"} {
set w .view_key
- catch {destroy $w}
- toplevel $w
+ toplev $w
scroll_text $w.f
set key ""
set fh [open $pem "r"]
@@ -3239,8 +3250,7 @@ emailAddress_max = 64
proc create_cert {} {
- catch {destroy .ccrt}
- toplevel .ccrt
+ toplev .ccrt
wm title .ccrt "Create SSL Certificate"
global uname
@@ -3432,9 +3442,9 @@ proc import_browse {} {
set idir [get_idir_certs $import_file]
}
if {$idir != ""} {
- set t [tk_getOpenFile -initialdir $idir]
+ set t [tk_getOpenFile -parent .icrt -initialdir $idir]
} else {
- set t [tk_getOpenFile]
+ set t [tk_getOpenFile -parent .icrt]
}
if {$t != ""} {
set import_file $t
@@ -3454,9 +3464,9 @@ proc import_save_browse {} {
set idir [get_idir_certs ""]
}
if {$idir != ""} {
- set t [tk_getSaveFile -defaultextension ".crt" -initialdir $idir]
+ set t [tk_getSaveFile -parent .icrt -defaultextension ".crt" -initialdir $idir]
} else {
- set t [tk_getSaveFile -defaultextension ".crt"]
+ set t [tk_getSaveFile -parent .icrt -defaultextension ".crt"]
}
if {$t != ""} {
set import_save_file $t
@@ -3533,8 +3543,7 @@ proc do_save {} {
proc import_cert {} {
- catch {destroy .icrt}
- toplevel .icrt
+ toplev .icrt
wm title .icrt "Import SSL Certificate"
global scroll_text_focus
@@ -3659,8 +3668,7 @@ TCQ+tbQ/DOiTXGKx1nlcKoPdkG+QVQVJthlQcpam
proc getcerts {} {
global mycert svcert crtdir
global use_ssh use_sshssl
- catch {destroy .c}
- toplevel .c
+ toplev .c
wm title .c "Set SSL Certificates"
frame .c.mycert
frame .c.svcert
@@ -3676,9 +3684,9 @@ proc getcerts {} {
bind .c.svcert.e <Enter> {.c.svcert.e validate}
bind .c.svcert.e <Leave> {.c.svcert.e validate}
entry .c.crtdir.e -width 32 -textvariable crtdir
- button .c.mycert.b -text "Browse..." -command {set_mycert; catch {raise .c}}
- button .c.svcert.b -text "Browse..." -command {set_svcert; catch {raise .c}}
- button .c.crtdir.b -text "Browse..." -command {set_crtdir; catch {raise .c}}
+ button .c.mycert.b -text "Browse..." -command {set_mycert .c; catch {raise .c}}
+ button .c.svcert.b -text "Browse..." -command {set_svcert .c; catch {raise .c}}
+ button .c.crtdir.b -text "Browse..." -command {set_crtdir .c; catch {raise .c}}
button .c.mycert.i -text "Info" -command {show_mycert}
button .c.svcert.i -text "Info" -command {show_svcert}
button .c.crtdir.i -text "Info" -command {}
@@ -3834,7 +3842,7 @@ proc load_include {include dir} {
}
}
-proc load_profile {} {
+proc load_profile {{parent "."}} {
global profdone
global vncdisplay
@@ -3842,7 +3850,7 @@ proc load_profile {} {
set dir [get_profiles_dir]
- set file [tk_getOpenFile -defaultextension ".vnc" \
+ set file [tk_getOpenFile -parent $parent -defaultextension ".vnc" \
-initialdir $dir -title "Load VNC Profile"]
if {$file == ""} {
set profdone 1
@@ -3933,7 +3941,7 @@ proc load_profile {} {
putty_pw_entry check
}
-proc save_profile {} {
+proc save_profile {{parent "."}} {
global is_windows uname
global profdone
global include_vars defs
@@ -3953,7 +3961,7 @@ proc save_profile {} {
regsub -all {:} $disp "_" disp
}
- set file [tk_getSaveFile -defaultextension ".vnc" \
+ set file [tk_getSaveFile -parent $parent -defaultextension ".vnc" \
-initialdir $dir -initialfile "$disp" -title "Save VNC Profile"]
if {$file == ""} {
set profdone 1
@@ -4673,8 +4681,7 @@ set cmd(6) {
proc cups_dialog {} {
- catch {destroy .cups}
- toplevel .cups
+ toplev .cups
wm title .cups "CUPS Tunnelling"
global cups_local_server cups_remote_port cups_manage_rcfile
global cups_local_smb_server cups_remote_smb_port
@@ -4834,8 +4841,7 @@ proc sound_dialog {} {
global is_windows
- catch {destroy .snd}
- toplevel .snd
+ toplev .snd
wm title .snd "ESD/ARTSD Sound Tunnelling"
global uname
@@ -5378,8 +5384,7 @@ proc smb_help_me_decide {} {
global smb_selected_cb smb_selected_en
global smb_host_list
- catch {destroy .smbwiz}
- toplevel .smbwiz
+ toplev .smbwiz
set title "SMB Filesystem Tunnelling -- Help Me Decide"
wm title .smbwiz $title
set id " "
@@ -5520,7 +5525,7 @@ You can do this by either logging into the remote machine to find the info or as
catch {destroy .smbwiz}
if {! $smbmount_exists || $smbmount_sumode == "dontknow"} {
- tk_messageBox -type ok -icon warning -message "Sorry we couldn't help out!\n'smbmount' info on the remote system is required for SMB mounting" -title "SMB mounting -- aborting"
+ tk_messageBox -type ok -parent .oa -icon warning -message "Sorry we couldn't help out!\n'smbmount' info on the remote system is required for SMB mounting" -title "SMB mounting -- aborting"
global use_smbmnt
set use_smbmnt 0
catch {raise .oa}
@@ -5590,8 +5595,7 @@ proc apply_mount_point_prefix {w} {
}
proc smb_dialog {} {
- catch {destroy .smb}
- toplevel .smb
+ toplev .smb
wm title .smb "SMB Filesystem Tunnelling"
global smb_su_mode smb_mount_list
global use_smbmnt
@@ -5726,8 +5730,7 @@ proc smb_dialog {} {
}
proc help_advanced_opts {} {
- catch {destroy .ah}
- toplevel .ah
+ toplev .ah
scroll_text_dismiss .ah.f
@@ -5797,7 +5800,7 @@ proc help_advanced_opts {} {
proc set_viewer_path {} {
global change_vncviewer_path
- set change_vncviewer_path [tk_getOpenFile]
+ set change_vncviewer_path [tk_getOpenFile -parent .chviewer]
catch {raise .chviewer}
update
}
@@ -5805,8 +5808,7 @@ proc set_viewer_path {} {
proc change_vncviewer_dialog {} {
global change_vncviewer change_vncviewer_path vncviewer_realvnc4
- catch {destroy .chviewer}
- toplevel .chviewer
+ toplev .chviewer
wm title .chviewer "Change VNC Viewer"
global help_font
@@ -5858,8 +5860,7 @@ proc change_vncviewer_dialog {} {
proc port_redir_dialog {} {
global additional_port_redirs additional_port_redirs_list
- catch {destroy .redirs}
- toplevel .redirs
+ toplev .redirs
wm title .redirs "Additional Port Redirections"
global help_font uname
@@ -6065,6 +6066,7 @@ proc do_port_knock {hp mode} {
set tlist [read_from_pad $padfile]
set tlist [string trim $tlist]
if {$tlist == "" || $tlist == "FAIL"} {
+ raise .
tk_messageBox -type ok -icon error \
-message "Failed to read entry from $padfile" \
-title "Error: Padfile $padfile"
@@ -6248,6 +6250,7 @@ proc do_port_knock {hp mode} {
set emess ""
set rc [catch {set s [socket -async $host $port]} emess]
if {$rc != 0} {
+ raise .
tk_messageBox -type ok -icon error -message $emess -title "Error: socket -async $host $port"
}
set socks($i) $s
@@ -6298,8 +6301,7 @@ proc do_port_knock {hp mode} {
}
proc port_knocking_dialog {} {
- catch {destroy .pk}
- toplevel .pk
+ toplev .pk
wm title .pk "Port Knocking"
global use_port_knocking port_knocking_list
@@ -6520,8 +6522,7 @@ proc set_advanced_options {} {
global use_port_knocking port_knocking_list
catch {destroy .o}
- catch {destroy .oa}
- toplevel .oa
+ toplev .oa
wm title .oa "Advanced Options"
set i 1
@@ -6744,8 +6745,7 @@ proc set_options {} {
global compresslevel_text quality_text
global env is_windows darwin_cotvnc
- catch {destroy .o}
- toplevel .o
+ toplev .o
wm title .o "SSL/SSH VNC Options"
set i 1
@@ -6856,8 +6856,8 @@ proc set_options {} {
pack .o.sa -side top -fill x
}
- button .o.s_prof -text "Save Profile ..." -command {save_profile; raise .o}
- button .o.l_prof -text " Load Profile ..." -command {load_profile; raise .o}
+ button .o.s_prof -text "Save Profile ..." -command {save_profile .o; raise .o}
+ button .o.l_prof -text " Load Profile ..." -command {load_profile .o; raise .o}
button .o.advanced -text "Advanced ..." -command set_advanced_options
# button .o.connect -text "Connect" -command launch
button .o.clear -text "Clear Options" -command set_defaults
@@ -6923,6 +6923,7 @@ set scroll_text_focus 1
set multientry 1
+wm withdraw .
wm title . "SSL/SSH VNC Viewer"
wm resizable . 1 0
@@ -7003,6 +7004,7 @@ if {![info exists env(SSVNC_GUI_CHILD)] || $env(SSVNC_GUI_CHILD) == ""} {
center_win .
}
focus .f0.e
+wm deiconify .
global system_button_face
set system_button_face ""