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 |
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 28 29 30 31 32 33 34 35 |
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/>"
wtk::grid [wtk::misc .misclink -type div -text "$html" -attr "innerHTML" -command nop] -column 0 -row 4
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
}
|
> > | > > > > > > |
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
}
|