Gecko [ satitravel.com ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2023-12-23 09:39
README	2.03 KB	-rw-r--r--	2019-10-16 17:25
anilabel.tcl	6.51 KB	-rw-r--r--	2019-10-16 17:25
aniwave.tcl	3.41 KB	-rw-r--r--	2019-10-16 17:25
arrow.tcl	7.8 KB	-rw-r--r--	2019-10-16 17:25
bind.tcl	2.88 KB	-rw-r--r--	2019-10-16 17:25
bitmap.tcl	1.38 KB	-rw-r--r--	2019-10-16 17:25
browse	1.72 KB	-rwxr-xr-x	2019-10-16 17:25
button.tcl	1.47 KB	-rw-r--r--	2019-10-16 17:25
check.tcl	2.22 KB	-rw-r--r--	2019-10-16 17:25
clrpick.tcl	1.4 KB	-rw-r--r--	2019-10-16 17:25
colors.tcl	4.88 KB	-rw-r--r--	2019-10-16 17:25
combo.tcl	1.92 KB	-rw-r--r--	2019-10-16 17:25
cscroll.tcl	3.31 KB	-rw-r--r--	2019-10-16 17:25
ctext.tcl	5.88 KB	-rw-r--r--	2019-10-16 17:25
dialog1.tcl	660 B	-rw-r--r--	2019-10-16 17:25
dialog2.tcl	613 B	-rw-r--r--	2019-10-16 17:25
en.msg	3.78 KB	-rw-r--r--	2019-10-16 17:25
entry1.tcl	1.35 KB	-rw-r--r--	2019-10-16 17:25
entry2.tcl	2.03 KB	-rw-r--r--	2019-10-16 17:25
entry3.tcl	5.96 KB	-rw-r--r--	2019-10-16 17:25
filebox.tcl	2.3 KB	-rw-r--r--	2019-10-16 17:25
floor.tcl	77.25 KB	-rw-r--r--	2019-10-16 17:25
fontchoose.tcl	1.71 KB	-rw-r--r--	2019-10-16 17:25
form.tcl	1.02 KB	-rw-r--r--	2019-10-16 17:25
goldberg.tcl	55.23 KB	-rw-r--r--	2019-10-16 17:25
hello	512 B	-rwxr-xr-x	2019-10-16 17:25
hscale.tcl	1.46 KB	-rw-r--r--	2019-10-16 17:25
icon.tcl	2.01 KB	-rw-r--r--	2019-10-16 17:25
image1.tcl	1002 B	-rw-r--r--	2019-10-16 17:25
image2.tcl	3.27 KB	-rw-r--r--	2019-10-16 17:25
items.tcl	9.9 KB	-rw-r--r--	2019-10-16 17:25
ixset	7.88 KB	-rwxr-xr-x	2019-10-16 17:25
knightstour.tcl	8.93 KB	-rw-r--r--	2019-10-16 17:25
label.tcl	1.35 KB	-rw-r--r--	2019-10-16 17:25
labelframe.tcl	1.8 KB	-rw-r--r--	2019-10-16 17:25
license.terms	2.21 KB	-rw-r--r--	2019-10-16 17:25
mclist.tcl	4.25 KB	-rw-r--r--	2019-10-16 17:25
menu.tcl	6.62 KB	-rw-r--r--	2019-10-16 17:25
menubu.tcl	4.37 KB	-rw-r--r--	2019-10-16 17:25
msgbox.tcl	1.95 KB	-rw-r--r--	2019-10-16 17:25
nl.msg	6.59 KB	-rw-r--r--	2019-10-16 17:25
paned1.tcl	1.08 KB	-rw-r--r--	2019-10-16 17:25
paned2.tcl	2.19 KB	-rw-r--r--	2019-10-16 17:25
pendulum.tcl	7.42 KB	-rw-r--r--	2019-10-16 17:25
plot.tcl	2.69 KB	-rw-r--r--	2019-10-16 17:25
puzzle.tcl	2.54 KB	-rw-r--r--	2019-10-16 17:25
radio.tcl	2.69 KB	-rw-r--r--	2019-10-16 17:25
rmt	5.19 KB	-rwxr-xr-x	2019-10-16 17:25
rolodex	8.11 KB	-rwxr-xr-x	2019-10-16 17:25
ruler.tcl	5.09 KB	-rw-r--r--	2019-10-16 17:25
sayings.tcl	2.22 KB	-rw-r--r--	2019-10-16 17:25
search.tcl	4.3 KB	-rw-r--r--	2019-10-16 17:25
spin.tcl	1.78 KB	-rw-r--r--	2019-10-16 17:25
states.tcl	2 KB	-rw-r--r--	2019-10-16 17:25
style.tcl	6.78 KB	-rw-r--r--	2019-10-16 17:25
tclIndex	4.25 KB	-rw-r--r--	2019-10-16 17:25
tcolor	10.99 KB	-rwxr-xr-x	2019-10-16 17:25
text.tcl	4.17 KB	-rw-r--r--	2019-10-16 17:25
textpeer.tcl	2.14 KB	-rw-r--r--	2019-10-16 17:25
timer	1.07 KB	-rwxr-xr-x	2019-10-16 17:25
toolbar.tcl	3.19 KB	-rw-r--r--	2019-10-16 17:25
tree.tcl	3.09 KB	-rw-r--r--	2019-10-16 17:25
ttkbut.tcl	3.33 KB	-rw-r--r--	2019-10-16 17:25
ttkmenu.tcl	2.33 KB	-rw-r--r--	2019-10-16 17:25
ttknote.tcl	2.26 KB	-rw-r--r--	2019-10-16 17:25
ttkpane.tcl	4.07 KB	-rw-r--r--	2019-10-16 17:25
ttkprogress.tcl	1.5 KB	-rw-r--r--	2019-10-16 17:25
ttkscale.tcl	1.39 KB	-rw-r--r--	2019-10-16 17:25
twind.tcl	10.79 KB	-rw-r--r--	2019-10-16 17:25
unicodeout.tcl	4.3 KB	-rw-r--r--	2019-10-16 17:25
vscale.tcl	1.44 KB	-rw-r--r--	2019-10-16 17:25
widget	22.72 KB	-rwxr-xr-x	2019-10-16 17:25

Rename

#!/bin/sh
# the next line restarts using wish \
exec wish8.6 "$0" ${1+"$@"}

# rmt --
# This script implements a simple remote-control mechanism for
# Tk applications.  It allows you to select an application and
# then type commands to that application.

package require Tk

wm title . "Tk Remote Controller"
wm iconname . "Tk Remote"
wm minsize . 1 1

# The global variable below keeps track of the remote application
# that we're sending to.  If it's an empty string then we execute
# the commands locally.

set app "local"

# The global variable below keeps track of whether we're in the
# middle of executing a command entered via the text.

set executing 0

# The global variable below keeps track of the last command executed,
# so it can be re-executed in response to !! commands.

set lastCommand ""

# Create menu bar.  Arrange to recreate all the information in the
# applications sub-menu whenever it is cascaded to.

. configure -menu [menu .menu]
menu .menu.file
menu .menu.file.apps  -postcommand fillAppsMenu
.menu add cascade  -label "File"  -underline 0  -menu .menu.file
.menu.file add cascade  -label "Select Application"  -underline 0 \
	-menu .menu.file.apps
.menu.file add command  -label "Quit"  -command "destroy ."  -underline 0

# Create text window and scrollbar.

text .t -yscrollcommand ".s set" -setgrid true
scrollbar .s -command ".t yview"
grid .t .s -sticky nsew
grid rowconfigure . 0 -weight 1
grid columnconfigure . 0 -weight 1

# Create a binding to forward commands to the target application,
# plus modify many of the built-in bindings so that only information
# in the current command can be deleted (can still set the cursor
# earlier in the text and select and insert;  just can't delete).

bindtags .t {.t Text . all}
bind .t <Return> {
    .t mark set insert {end - 1c}
    .t insert insert \n
    invoke
    break
}
bind .t <Delete> {
    catch {.t tag remove sel sel.first promptEnd}
    if {[.t tag nextrange sel 1.0 end] eq ""} {
	if {[.t compare insert < promptEnd]} {
	    break
	}
    }
}
bind .t <BackSpace> {
    catch {.t tag remove sel sel.first promptEnd}
    if {[.t tag nextrange sel 1.0 end] eq ""} {
	if {[.t compare insert <= promptEnd]} {
	    break
	}
    }
}
bind .t <Control-d> {
    if {[.t compare insert < promptEnd]} {
	break
    }
}
bind .t <Control-k> {
    if {[.t compare insert < promptEnd]} {
	.t mark set insert promptEnd
    }
}
bind .t <Control-t> {
    if {[.t compare insert < promptEnd]} {
	break
    }
}
bind .t <Meta-d> {
    if {[.t compare insert < promptEnd]} {
	break
    }
}
bind .t <Meta-BackSpace> {
    if {[.t compare insert <= promptEnd]} {
	break
    }
}
bind .t <Control-h> {
    if {[.t compare insert <= promptEnd]} {
	break
    }
}
### This next bit *isn't* nice - DKF ###
auto_load tk::TextInsert
proc tk::TextInsert {w s} {
    if {$s eq ""} {
	return
    }
    catch {
	if {
	    [$w compare sel.first <= insert] && [$w compare sel.last >= insert]
	} then {
	    $w tag remove sel sel.first promptEnd
	    $w delete sel.first sel.last
	}
    }
    $w insert insert $s
    $w see insert
}

.t configure -font {Courier 12}
.t tag configure bold -font {Courier 12 bold}

# The procedure below is used to print out a prompt at the
# insertion point (which should be at the beginning of a line
# right now).

proc prompt {} {
    global app
    .t insert insert "$app: "
    .t mark set promptEnd {insert}
    .t mark gravity promptEnd left
    .t tag add bold {promptEnd linestart} promptEnd
}

# The procedure below executes a command (it takes everything on the
# current line after the prompt and either sends it to the remote
# application or executes it locally, depending on "app".

proc invoke {} {
    global app executing lastCommand
    set cmd [.t get promptEnd insert]
    incr executing 1
    if {[info complete $cmd]} {
	if {$cmd eq "!!\n"} {
	    set cmd $lastCommand
	} else {
	    set lastCommand $cmd
	}
	if {$app eq "local"} {
	    set result [catch [list uplevel #0 $cmd] msg]
	} else {
	    set result [catch [list send $app $cmd] msg]
	}
	if {$result != 0} {
	    .t insert insert "Error: $msg\n"
	} elseif {$msg ne ""} {
	    .t insert insert $msg\n
	}
	prompt
	.t mark set promptEnd insert
    }
    incr executing -1
    .t yview -pickplace insert
}

# The following procedure is invoked to change the application that
# we're talking to.  It also updates the prompt for the current
# command, unless we're in the middle of executing a command from
# the text item (in which case a new prompt is about to be output
# so there's no need to change the old one).

proc newApp appName {
    global app executing
    set app $appName
    if {!$executing} {
	.t mark gravity promptEnd right
	.t delete "promptEnd linestart" promptEnd
	.t insert promptEnd "$appName: "
	.t tag add bold "promptEnd linestart" promptEnd
	.t mark gravity promptEnd left
    }
    return
}

# The procedure below will fill in the applications sub-menu with a list
# of all the applications that currently exist.

proc fillAppsMenu {} {
    set m .menu.file.apps
    catch {$m delete 0 last}
    foreach i [lsort [winfo interps]] {
	$m add command -label $i -command [list newApp $i]
    }
    $m add command -label local -command {newApp local}
}

set app [winfo name .]
prompt
focus .t

# Local Variables:
# mode: tcl
# End: