diff options
Diffstat (limited to 'x11vnc/tkx11vnc.h')
| -rw-r--r-- | x11vnc/tkx11vnc.h | 44 |
1 files changed, 40 insertions, 4 deletions
diff --git a/x11vnc/tkx11vnc.h b/x11vnc/tkx11vnc.h index 6787be0..4057a8e 100644 --- a/x11vnc/tkx11vnc.h +++ b/x11vnc/tkx11vnc.h @@ -159,7 +159,7 @@ char gui_code[] = ""; " =S reflect:\n" " =D desktop:\n" " =D rfbport:\n" -" =S autoport\n" +" =S autoport:\n" " =0 gui:\n" "\n" "Screen\n" @@ -265,7 +265,7 @@ char gui_code[] = ""; " =GAL LOFF\n" " =GAL X-ext::\n" " xtrap\n" -" xrecord\n" +" noxrecord\n" " =RQA reset_record\n" " =GAL LOFF\n" " =GAL MacOSX::\n" @@ -2546,8 +2546,38 @@ char gui_code[] = ""; "\n" " append qry \",vncconnect\"\n" "\n" -" set qargs [list \"-QD\" $qry]\n" -" set all [run_remote_cmd $qargs]\n" +" set q \"\"\n" +" set i 0\n" +" set all \"\"\n" +" foreach s [split $qry \",\"] {\n" +" if {$q != \"\"} {\n" +" append q \",\"\n" +" }\n" +" append q $s\n" +" incr i\n" +" if {$i > 50} {\n" +" set qargs [list \"-QD\" $q]\n" +" set a [run_remote_cmd $qargs]\n" +" if {$all != \"\"} {\n" +" append all \",\"\n" +" }\n" +" append all $a\n" +" set q \"\"\n" +" set i 0\n" +" }\n" +" }\n" +" if {$q != \"\"} {\n" +" set qargs [list \"-QD\" $q]\n" +" set a [run_remote_cmd $qargs]\n" +" if {$all != \"\"} {\n" +" append all \",\"\n" +" }\n" +" append all $a\n" +" }\n" +"\n" +"# old way, qry too long...\n" +"# set qargs [list \"-QD\" $qry]\n" +"# set all [run_remote_cmd $qargs]\n" "\n" " if {[regexp {ans=} $all]} {\n" " #append_text \"Retrieved all default settings.\\n\"\n" @@ -5881,6 +5911,10 @@ char gui_code[] = ""; " continue\n" " } elseif {$item == \"rc\" || $item == \"norc\"} {\n" " continue\n" +" } elseif {$item == \"loop\"} {\n" +" continue\n" +" } elseif {$item == \"loopbg\"} {\n" +" continue\n" " }\n" "\n" " set def \"\"\n" @@ -5888,6 +5922,7 @@ char gui_code[] = ""; " set def $default_var($item)\n" " }\n" "\n" +"\n" " set qst \"\"\n" " set hmm \"#? \"\n" " if {$item == \"display\"} {\n" @@ -5907,6 +5942,7 @@ char gui_code[] = ""; " } else {\n" " set mv $menu_var($item)\n" " }\n" +"#puts \"item=$item def=$def mv=$mv\"\n" " if {$mv == $unset_str} {\n" " set mv \"\"\n" " }\n" |