diff options
Diffstat (limited to 'x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl')
| -rwxr-xr-x | x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl | 138 |
1 files changed, 133 insertions, 5 deletions
diff --git a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl index 9848362..2cb4630 100755 --- a/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl +++ b/x11vnc/misc/enhanced_tightvnc_viewer/bin/util/ssvnc.tcl @@ -1200,6 +1200,99 @@ proc help {} { jiggle_text .h.f.t } +proc ssvnc_escape_help {} { + toplev .ekh + + scroll_text_dismiss .ekh.f + + center_win .ekh + wm title .ekh "SSVNC Escape Keys Help" + + set msg { + SSVNC Escape Keys: + + The Unix SSVNC VNC Viewer, ssvncviewer(1), has an 'Escape Keys' + mechanism that enables using keystrokes that are bound as 'Hot Keys' + to specific actions. + + So, when you have all of the modifier keys ('escape keys') pressed down, + then subsequent keystrokes are interpreted as local special actions + instead of being sent to the remote VNC server. + + This enables quick parameter changing and also panning of the viewport. + E.g. the keystroke 'r' is mapped to refresh the screen. + + Enter 'default' in the entry box to enable this feature and to use the + default modifier list (Alt_L,Super_L on unix and Control_L,Meta_L on + macosx) or set it to a list of modifier keys, e.g. Alt_L,Control_L. + Note that _L means left side of keyboard and _R means right side. + + Alt_L is the 'Alt' key on the left side of the keyboard, and Super_L + is usually the 'WindowsFlaggie(TM)' on the left side of the keyboard, + so when both of those are pressed, the escape keys mapping take effect. + + + Here is info from the ssvncviewer(1) manual page: + + -escape str This sets the 'Escape Keys' modifier sequence and enables + escape keys mode. When the modifier keys escape sequence + is held down, the next keystroke is interpreted locally + to perform a special action instead of being sent to the + remote VNC server. + + Use '-escape default' for the default modifier sequence. + (Unix: Alt_L,Super_L and MacOSX: Control_L,Meta_L) + + Here are the 'Escape Keys: Help+Set' instructions from the Popup Menu: + + Escape Keys: Enter a comma separated list of modifier keys to be the + 'escape sequence'. When these keys are held down, the next keystroke is + interpreted locally to invoke a special action instead of being sent to + the remote VNC server. In other words, a set of 'Hot Keys'. + + To enable or disable this, click on 'Escape Keys: Toggle' in the Popup. + + Here is the list of hot-key mappings to special actions: + + r: refresh desktop b: toggle bell c: toggle full-color + f: file transfer x: x11cursor z: toggle Tight/ZRLE + l: full screen g: graball e: escape keys dialog + s: scale dialog +: scale up (=) -: scale down (_) + t: text chat a: alphablend cursor + V: toggle viewonly Q: quit viewer 1 2 3 4 5 6: UltraVNC scale 1/n + + Arrow keys: pan the viewport about 10% for each keypress. + PageUp / PageDown: pan the viewport by a screenful vertically. + Home / End: pan the viewport by a screenful horizontally. + KeyPad Arrow keys: pan the viewport by 1 pixel for each keypress. + Dragging the Mouse with Button1 pressed also pans the viewport. + Clicking Mouse Button3 brings up the Popup Menu. + + The above mappings are *always* active in ViewOnly mode, unless you set the + Escape Keys value to 'never'. + + If the Escape Keys value below is set to 'default' then a default list of + of modifier keys is used. For Unix it is: Alt_L,Super_L and for MacOSX it + is Control_L,Meta_L. Note: the Super_L key usually has a Windows(TM) Flag + on it. Also note the _L and _R mean the key is on the LEFT or RIGHT side + of the keyboard. + + On Unix the default is Alt and Windows keys on Left side of keyboard. + On MacOSX the default is Control and Command keys on Left side of keyboard. + + Example: Press and hold the Alt and Windows keys on the LEFT side of the + keyboard and then press 'c' to toggle the full-color state. Or press 't' + to toggle the ultravnc Text Chat window, etc. + + To use something besides the default, supply a comma separated list (or a + single one) from: Shift_L Shift_R Control_L Control_R Alt_L Alt_R Meta_L + Meta_R Super_L Super_R Hyper_L Hyper_R or Mode_switch. +} + + .ekh.f.t insert end $msg + jiggle_text .ekh.f.t +} + # Or Alternatively one can supply both hosts separated by # spaces (with the proxy second) in the VNC Host:Display box: # @@ -2352,7 +2445,7 @@ proc set_defaults {} { global sound_daemon_local_cmd sound_daemon_local_port sound_daemon_local_kill sound_daemon_x11vnc sound_daemon_local_start global smb_su_mode smb_mount_list global use_port_knocking port_knocking_list - global ycrop_string ssvnc_scale sbwid_string rfbversion ssvnc_encodings use_x11cursor use_nobell use_rawlocal use_popupfix extra_sleep use_listen use_unixpw use_x11vnc_find unixpw_username + global ycrop_string ssvnc_scale ssvnc_escape sbwid_string rfbversion ssvnc_encodings use_x11cursor use_nobell use_rawlocal use_popupfix extra_sleep use_listen use_unixpw use_x11vnc_find unixpw_username global disable_ssl_workarounds disable_ssl_workarounds_type global include_list @@ -2449,6 +2542,7 @@ proc set_defaults {} { set defs(ycrop_string) "" set defs(ssvnc_scale) "" + set defs(ssvnc_escape) "" set defs(sbwid_string) "" set defs(rfbversion) "" set defs(ssvnc_encodings) "" @@ -4921,7 +5015,7 @@ proc reset_stunnel_extra_opts {} { proc launch_unix {hp} { global smb_redir_0 smb_mounts env global vncauth_passwd use_unixpw unixpw_username unixpw_passwd - global ssh_only ts_only use_x11cursor use_nobell use_rawlocal use_popupfix ssvnc_scale + global ssh_only ts_only use_x11cursor use_nobell use_rawlocal use_popupfix ssvnc_scale ssvnc_escape global ssvnc_encodings globalize @@ -5347,6 +5441,9 @@ proc launch_unix {hp} { if {$ssvnc_scale != ""} { set cmd "$cmd -scale '$ssvnc_scale'" } + if {$ssvnc_escape != ""} { + set cmd "$cmd -escape '$ssvnc_escape'" + } if {$ssvnc_encodings != ""} { set cmd "$cmd -ssvnc_encodings '$ssvnc_encodings'" } @@ -11014,6 +11111,13 @@ proc help_ssvncviewer_opts {} { or the string 'fit' to fill the current screen. Use 'auto' to scale the desktop to match the viewer window size. + Escape Keys: + + Enable 'Escape Keys', a set of modifier keys that, if all are + pressed down, enable local Hot Key actions. Set to 'default' + to use the default (Alt_L,Super_L on unix, Control_L,Meta_L + on macosx) or set to a list of modifier keys. + Y Crop: This is for x11vnc's -ncache client side caching scheme with our @@ -11043,9 +11147,10 @@ proc help_ssvncviewer_opts {} { VNCVIEWER_SBWIDTH (-sbwidth, see ScrollBar Width above) VNCVIEWER_RFBVERSION (-rfbversion, e.g. 3.6) VNCVIEWER_ENCODINGS (-encodings, e.g. "copyrect zrle hextile") - VNCVIEWER_BELL (-bell) + VNCVIEWER_NOBELL (-nobell) VNCVIEWER_X11CURSOR (-x11cursor, see Use X11 Cursor above) VNCVIEWER_RAWLOCAL (-rawlocal, see Use Raw Local above) + VNCVIEWER_ESCAPE (-escape, see Escape Keys above) SSVNC_SCALE (-scale, see Scaling above) SSVNC_MULTIPLE_LISTEN (-multilisten, see Mulitple LISTEN above) SSVNC_UNIXPW (-unixpw) @@ -12764,7 +12869,7 @@ proc set_advanced_options {} { proc set_ssvncviewer_options {} { global is_windows darwin_cotvnc global use_ssh use_sshssl use_x11cursor use_rawlocal use_popupfix use_alpha use_grab use_nobell - global ssvnc_scale + global ssvnc_scale ssvnc_escape if {$is_windows} { return @@ -12820,9 +12925,10 @@ proc set_ssvncviewer_options {} { lappend darwinlist .os.b$i; if {$darwin_cotvnc} {.os.b$i configure -state disabled} incr i + set relief ridge + frame .os.b$i -height 2; incr i - set relief ridge frame .os.b$i -relief $relief -borderwidth 2 label .os.b$i.l -font fixed -anchor w -text "Examples: '0.75', '1024x768', 'fit' (fill screen), or 'auto'"; @@ -12844,6 +12950,28 @@ proc set_ssvncviewer_options {} { frame .os.b$i -relief $relief -borderwidth 2 + label .os.b$i.l -font fixed -anchor w -text "Examples: 'default', 'Control_L,Alt_L', 'never'"; + + global ssvnc_escape + frame .os.b$i.f + label .os.b$i.f.l -text "Escape Keys: " + lappend darwinlist .os.b$i.f.l; if {$darwin_cotvnc} {.os.b$i.f.l configure -state disabled} + entry .os.b$i.f.e -width 10 -textvariable ssvnc_escape + lappend darwinlist .os.b$i.f.e; if {$darwin_cotvnc} {.os.b$i.f.e configure -state disabled} + button .os.b$i.f.b -relief ridge -text Help -command ssvnc_escape_help + lappend darwinlist .os.b$i.f.b; if {$darwin_cotvnc} {.os.b$i.f.b configure -state disabled} + pack .os.b$i.f.l -side left + pack .os.b$i.f.b -side right + pack .os.b$i.f.e -side right -expand 1 -fill x + + pack .os.b$i.f .os.b$i.l -side top -fill x + + incr i + + frame .os.b$i -height 2; incr i + + frame .os.b$i -relief $relief -borderwidth 2 + label .os.b$i.l -font fixed -anchor w -text "Enter the max height in pixels, e.g. '900'"; global ycrop_string |