How to create an hyperlink in tcl tk? - hyperlink

Question

Im a using Tcl-Tk 8.6.4 and I am a begginner, I would like to create hyperlinks in my texts.
I am looking for a procedure which could have the url of a website in argument, this url will be displayed in blue and underlined in my text. Of course, by clicking on the url, it will open the website.
I have found the following code, but I am not sure that it will do what I want.
proc hyperlink { name args } {
if { "Underline-Font" ni [ font names ] } {
font create Underline-Font {*}[ font actual TkDefaultFont ]
font configure Underline-Font -underline true -size 12
}
if { [ dict exists $args -command ] } {
set command [ dict get $args -command ]
dict unset args -command
}
label $name {*}$args -foreground blue -font Underline-Font
if { [ info exists command ] } {
bind $name <Button-1> $command
}
return $name
}
Anyone can help me?
Update 2
The thing I want is to display hyperlinks in the text of my window like that:
Further informations are given following those links:
https://ccrma.stanford.edu/~jos/NumericalInt/Lumped_vs_Distributed_Systems.html
https://ccrma.stanford.edu/~jos/NumericalInt/NumericalInt_4up.pdf
With the first code shown I am able to display that:
The codes used are:
in a procedure to read files I have tags like HTML tags such as
"<hypLink>" {
gets $infile inln
hyperlink .hl${counter} -command [list eval exec [auto_execok start] "$inln"] -text "$inln"
pack .hl${counter}
incr counter
}
in my file I write
Semi-conductors:
<hypLink>
https://en.wikipedia.org/wiki/Semiconductor
<hypLink>
http://electronics.howstuffworks.com/diode.htm
What can I do to have what I want?
Note The first update have been delated for copyright protection

Answer 1

You can use the proc you found. If you have:
hyperlink .hl -command [list puts "clicked"] -text "Click Me"
pack .hl
in your code and click on the 'hyperlink', you will get the text clicked to stdout.
If you want to open the default browser and go to the url specified by the hyperlink, you would have to change the code to:
hyperlink .hl -command [list eval exec [auto_execok start] "http://www.example.com"] -text "Click Me"
pack .hl
You can also play around with the proc a bit, maybe changing the font size (from -size 12) or change the font itself.
Post edit:
You can add the 'hyperlink' to your code by adding the below to the switch in the dispFile proc:
"<hypLink>" {
gets $infile inln
.fr.txt insert end "$inln" "link lk$lkcount"
.fr.txt insert end "\n" Normal
.fr.txt tag bind lk$lkcount <1> [list eval exec [auto_execok start] "$inln"]
incr lkcount
}
This should create text similar to the text which open files, but instead of opening files will open the link in the default browser.