Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | add another web link in the demo |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
1fc3bc7122991072da31e8dd25301f4d |
User & Date: | stever 2013-01-20 02:04:40.087 |
Context
2013-01-20
| ||
03:15 | fix mimetype for .jpg files check-in: a2a33d2625 user: stever tags: trunk | |
02:04 | add another web link in the demo check-in: 1fc3bc7122 user: stever tags: trunk | |
00:22 | modify css for more consistant look between webkit and firefox browsers check-in: 6c9b811218 user: stever tags: trunk | |
Changes
Changes to demo.tcl.
︙ | ︙ | |||
20 21 22 23 24 25 26 27 | wtk::grid [wtk::button .d.ib -text "" -src /images/logo.png -width 63 -height 63 -command swapimages] -column 0 -row 0 -sticky e wtk::grid [wtk::label .d.iblbl -text "<-- Click Me"] -column 1 -row 0 -sticky w wtk::grid [wtk::combobox .d.cb -text "ComboBox" -options "zero one two three" -variable textval -command selectimg] -column 2 -row 0 -sticky w wtk::grid [wtk::checkbutton .d.ck -bg violet -fg Red -variable checkval -command docheck] -column 3 -row 0 -sticky w wtk::grid [wtk::label .d.cklbl -textvariable ckstatus] -column 4 -row 0 -sticky w #foreach w [wtk::winfo children .d] {wtk::grid configure $w -padx 150 -pady 150}; #not working yet set html "<a href=\"http://www.google.com\">Link To Google<a/>" | > > | > > > > > > | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | wtk::grid [wtk::button .d.ib -text "" -src /images/logo.png -width 63 -height 63 -command swapimages] -column 0 -row 0 -sticky e wtk::grid [wtk::label .d.iblbl -text "<-- Click Me"] -column 1 -row 0 -sticky w wtk::grid [wtk::combobox .d.cb -text "ComboBox" -options "zero one two three" -variable textval -command selectimg] -column 2 -row 0 -sticky w wtk::grid [wtk::checkbutton .d.ck -bg violet -fg Red -variable checkval -command docheck] -column 3 -row 0 -sticky w wtk::grid [wtk::label .d.cklbl -textvariable ckstatus] -column 4 -row 0 -sticky w #foreach w [wtk::winfo children .d] {wtk::grid configure $w -padx 150 -pady 150}; #not working yet wtk::grid [wtk::frame .e -padding "3 3 12 12"] -column 0 -row 4 -sticky nwes wtk::grid columnconfigure .e 0 -weight 1; wtk::grid rowconfigure .e 0 -weight 1 set html "<a href=\"http://www.google.com\">Link To Google<a/>" wtk::grid [wtk::misc .e.misclink -type div -text "$html" -attr "innerHTML" -command nop] -column 0 -row 0 wtk::grid [wtk::label .e.spacer -text "                "] -column 1 -row 0 -sticky w set html "<a href=\"http://dev.sr-tech.com:8100/wtk/timeline?n=200\"> Link To Wtk Repo<a/>" wtk::grid [wtk::misc .e.misclinkwtk -type div -text "$html" -attr "innerHTML" -command nop] -column 2 -row 0 set html "<form action=\"demo.tcl\" method=\"post\" enctype=\"multipart/form-data\">" append html "<input type=\"file\" name=\"upfile\" id=\"file\">" append html "<input type=\"submit\" name=\"submit\" value=\"Submit\">" append html "</form>" wtk::grid [wtk::misc .up -type div -text "$html" -attr "innerHTML" -command nop] -column 0 -row 5 } |
︙ | ︙ |