SR Technology WTK Repo
Check-in [1fc3bc7122]
Not logged in

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:1fc3bc7122991072da31e8dd25301f4d1c819e1b
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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 "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp"] -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
}