Useful code for your user code pages:
Redirect link to a page with a title different from the label on the link:
proc --> {label target} { return "\[%$label|showpage [list $target]%\]" }
Usage:
[@--> "This is quite a large link label" "Short Page Name"@]
GC 20 September 2003 :
Create magic buttons to visit a internet site (Ex: Windows with Internet Explorer) Constitution of a links library
# Create a button proc URL-> {name} { return "\[%$name |goToInternet $name%\]" } # Go to internet : Display user agent with the selected url proc goToInternet {name} { set prg "C:/Program Files/Internet Explorer/IEXPLORE.EXE" exec $prg $name & }
Usage :
[@ URL-> http://mini.net/tcl @] [@ URL-> http://mini.net/tcl/Notebook%20App%20-%20User%20Code%20Snippets" @] ...