What: TkVNC
Where: http://www.ifost.org.au/Software/tkvnc/index.html
http://www.uk.research.att.com/vnc/
Description: TkVNC is a VNC viewer written in pure Tcl/Tk. It does not yet
support authentication, so it can only connect to an
unsecured VNC server. However, all the original
"classic" encodings are supported. It was written to be
embedded inside another application, however the version here
is a standalone program. In 539 lines, it may be the
shortest VNC viewer written.
Currently at version 0.9
Updated: 1/2003
Contact: See web siteTkVNC is now part of Tclapps. It can also be downloaded from sourceforge [L1 ] via cvs, or (as it is a single file) from the cvs browser [L2 ].
AK: Given the recent complaints about willy-nilly placing things into tcllib, I would like to state that this action was done in consent with the author of TkVNC.
Jochen Loewer: Did the DES in Tcl, so that now TkVNC supports normal VNC authentication as well. See [L3 ]
See also VNC.
19jan03 jcw - Could you put back the "package require Tk", please? It is needed for tclkit, which is a tclsh and only becomes a wish after Tk gets asked for. I used the DES in Tcl mentioned on that page, but get an error:
DES operates only on blocks of 8 bytes, but got 12 bytes!
(The bizarre part is that sometimes it complains about 13, not 12!)
Could this be a binary mode channel issue, or encodings? (client is macosx, sys encoding is utf-8, host is linux - different byte-order btw)
19jan03 Jochen Loewer: "package require Tk" is in again -- fixes in des.tcl as well. Actually I wanted to right and use 'string bytelength' instead of 'string length' to check block length (8 bytes), but 'string length' seem to work OK, if data comes from a '-translation binary' channel.
BR - I just added a note on the string page about not using [string bytelength] with binary data. The manual also says that.
20jan03 jcw - Yes, that bytelength thing did trip me once too. TkVNC is way cool. I've made three more changes and a tkvnc starkit is now on sdarchive:
source [file join [file dirname [info script]] des.tcl]
if {$port != "" && $port < 10} {
set scrn $port
set port ""
}eval [linsert $argv 0 attach] ;# in proc ::vnc::Init
Wow, a 13 Kb portable VNC client!