Version 1 of Notebook App - User Code Snippets

Updated 2003-09-20 14:30:53

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" @]
 ...

---