tkgoodstuff/tcl/Example.tcl

56 lines
1.6 KiB
Tcl
Executable File

# "Example" client code for tkgoodstuff
# (replace "Example" throughtout with your own client name)
# This gets called when the panel is being formed
proc ExampleCreateWindow {} {
# The following is for redrawing the button when the panel is
# redrawn, e.g., following a screen-edge move.
if [TKGReGrid Example] return
global Example-params ;# The array of button parameters
# This creates a tkgbutton and places it in the appropriate place
# in the panel.
TKGMakeButton Example \
-imagefile xlogo.xpm \
-text "Example" \
-balloon "This is the\nballoon help text." \
-command "ExampleButton1Command"
# Bind mouse button 3 to another command
bind [set Example-params(pathname)] <3> ExampleButton3Command
}
proc ExampleButton1Command {} {
TKGNotice "This is the button 1 command"
}
proc ExampleButton3Command {} {
TKGNotice "This is one part of the button 3 command"
# This is how to do unix commands. Note the trailing "&",
# which puts the command in the background, so as not to
# freeze up tkgoodstuff!
exec xmessage "and this is the other part" &
}
# Procedures with special functions:
#
# ExampleDoOnLoad: called when client is first loaded.
#
# ExampleDeclare: called just after all the DoOnLoads, and when the
# client is added in the preferences manager. Meant for calls to
# TKGDeclare. See any client for examples
#
# ExampleStart: called when all panels have been created (including
# after moving to another screen edge.
#
# ExampleSuspend: called when panel is about to be moved to
# another screen edge.
DEBUG "Loaded Example.tcl"