diff options
author | runge <runge@karlrunge.com> | 2009-12-28 11:21:50 -0500 |
---|---|---|
committer | runge <runge@karlrunge.com> | 2009-12-28 11:21:50 -0500 |
commit | 5764cd3fdd669096a84c7e40a2893cd45df090e4 (patch) | |
tree | e82be24266b1691941182f0bedecf41cac83cfb4 /x11vnc/tkx11vnc | |
parent | 018f152bc5c99503d1f59b073046b2f5dca9b042 (diff) | |
download | libtdevnc-5764cd3fdd669096a84c7e40a2893cd45df090e4.tar.gz libtdevnc-5764cd3fdd669096a84c7e40a2893cd45df090e4.zip |
x11vnc: Fix problems in --without-x builds. Fix crash
with -QD query for dbus info. Adjust window size for
small screens in -gui. Improve F1 help for xdm, etc.
include ssvnc 1.0.25 source.
Diffstat (limited to 'x11vnc/tkx11vnc')
-rwxr-xr-x | x11vnc/tkx11vnc | 36 |
1 files changed, 26 insertions, 10 deletions
diff --git a/x11vnc/tkx11vnc b/x11vnc/tkx11vnc index 3aeb327..1350304 100755 --- a/x11vnc/tkx11vnc +++ b/x11vnc/tkx11vnc @@ -2532,7 +2532,7 @@ proc see_if_ok {query item expected} { } proc get_default_vars {} { - global default_var + global default_var env set qry [all_query_vars] @@ -2550,6 +2550,11 @@ proc get_default_vars {} { if {$i > 50} { set qargs [list "-QD" $q] set a [run_remote_cmd $qargs] + if [info exists env(TKX11VNC_PRINT_ALL_QD)] { + puts $q + puts $a + puts "---------------" + } if {$all != ""} { append all "," } @@ -2561,6 +2566,11 @@ proc get_default_vars {} { if {$q != ""} { set qargs [list "-QD" $q] set a [run_remote_cmd $qargs] + if [info exists env(TKX11VNC_PRINT_ALL_QD)] { + puts $q + puts $a + puts "---------------" + } if {$all != ""} { append all "," } @@ -5982,6 +5992,8 @@ proc get_settings_rcfile {} { set qst $hmm } elseif {$item == "nevershared"} { set qst $hmm + } elseif {$item == "gui"} { + set qst $hmm } if {![info exists menu_var($item)]} { @@ -6956,15 +6968,19 @@ if {$tk_version < 8.4} { set screen_height [winfo screenheight .] set screen_width [winfo screenwidth .] -if {$screen_height < 500} { - # short screen, PDA? - set max_text_height 22 - set text_height 13 - if {$screen_height <= 360} { - # very short. - set max_text_height 16 - set max_text_width 60 - set text_height 11 +if {$screen_height < 700} { + # short screen, netbook? + set max_text_height 30 + if {$screen_height < 500} { + # short screen, PDA? + set max_text_height 22 + set text_height 13 + if {$screen_height <= 360} { + # very short. + set max_text_height 16 + set max_text_width 60 + set text_height 11 + } } } if {[info exists env(X11VNC_GUI_TEXT_HEIGHT)]} { |