diff options
author | runge <runge> | 2007-12-16 18:37:22 +0000 |
---|---|---|
committer | runge <runge> | 2007-12-16 18:37:22 +0000 |
commit | 649f5b2b4615ae67d97eff7f3fa246a1ac41edf9 (patch) | |
tree | 3e3d3524182cc844b76c239c9a2f3de89e0cfa38 /x11vnc/tkx11vnc.h | |
parent | 899c920eb4708e525c6555e2a6f043c3f999bbcb (diff) | |
download | libvncserver-649f5b2b4615ae67d97eff7f3fa246a1ac41edf9.zip libvncserver-649f5b2b4615ae67d97eff7f3fa246a1ac41edf9.tar.gz |
x11vnc: setup remote-ctrl file by default on macosx. improve
tkx11vnc wrt attaching to existing server in icon/tray mode.
Diffstat (limited to 'x11vnc/tkx11vnc.h')
-rw-r--r-- | x11vnc/tkx11vnc.h | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/x11vnc/tkx11vnc.h b/x11vnc/tkx11vnc.h index 022a662..2c76c02 100644 --- a/x11vnc/tkx11vnc.h +++ b/x11vnc/tkx11vnc.h @@ -4871,7 +4871,7 @@ char gui_code[] = ""; "}\n" "\n" "proc old_balloon {} {\n" -" global client_str saved_client_str\n" +" global client_str saved_clients_str\n" " set str \"\"\n" " if {[info exists client_str]} {\n" " if {$client_str != \"\"} {\n" @@ -4879,8 +4879,8 @@ char gui_code[] = ""; " }\n" " }\n" " if {$str == \"\"} {\n" -" if {[info exists saved_client_str]} {\n" -" set str $saved_client_str\n" +" if {[info exists saved_clients_str]} {\n" +" set str $saved_clients_str\n" " }\n" " }\n" " if {$str != \"\"} {\n" @@ -5040,6 +5040,7 @@ char gui_code[] = ""; " }\n" " $menu add cascade -font $mfont -label \"Window View:\" -menu $wv\n" "\n" +" $menu add command -font $mfont -label \"Dismiss\" -command \"$menu unpost\"\n" " $menu add command -font $mfont -label \"Stop x11vnc\" -command clean_icon_exit\n" "\n" " set items [get_custom_menu_items]\n" @@ -5058,10 +5059,11 @@ char gui_code[] = ""; " bind $icon_win <Enter> {set client_balloon_id [after 500 show_client_balloon]}\n" " bind $icon_win <Button> {kill_client_balloon}\n" " bind $icon_win <Leave> {kill_client_balloon}\n" -" bind $icon_win <ButtonPress-2> {kill_client_balloon; show_client_balloon}\n" +" bind $icon_win <Shift-ButtonRelease-1> {kill_client_balloon; show_client_balloon}\n" +" bind $icon_win <ButtonRelease-2> {kill_client_balloon; show_client_balloon}\n" "# bind $menu <Leave> \"lmenu $menu\"\n" "# bind $menu <Enter> \"set left_iconwin_menu 0\"\n" -"## bind $menu <KeyPress-Escape> \"$menu unpost\"\n" +"# bind $menu <KeyPress-Escape> \"$menu unpost\"\n" "\n" " bind . <Control-KeyPress-c> {destroy .; exit 0}\n" "\n" @@ -5082,9 +5084,20 @@ char gui_code[] = ""; " wm iconname . \"tkx11vnc\"\n" " wm title . \"tkx11vnc\"\n" " update\n" -" wm deiconify .\n" +" if {$tray_embed && $tray_running} {\n" +" wm deiconify .\n" +" #after 10000 {wm deiconify .; puts \"reqheight [winfo reqheight .]\"; puts \"reqwidth [winfo reqwidth .]\"; puts \"height [winfo height .]\"; puts \"width [winfo width .]\"}\n" +" } else {\n" +" wm deiconify .\n" +" }\n" " update\n" "\n" +"#puts \"reqheight [winfo reqheight .]\"\n" +"#puts \"reqwidth [winfo reqwidth .]\"\n" +"#puts \"height [winfo height .]\"\n" +"#puts \"width [winfo width .]\"\n" +"#puts \"AAA\"\n" +"\n" " old_balloon\n" "}\n" "\n" |