diff options
author | James Bursa <james@netsurf-browser.org> | 2002-05-11 15:22:24 +0000 |
---|---|---|
committer | James Bursa <james@netsurf-browser.org> | 2002-05-11 15:22:24 +0000 |
commit | 600f3ad557dd0ac4e1fea316fe36251363988401 (patch) | |
tree | 72160c08f0313eac0ceb505c68d38a3e9ee63ff5 /render/show.tcl | |
parent | 91300f840ff90b108658a63bb8fdfe21a8f45c4b (diff) | |
download | netsurf-600f3ad557dd0ac4e1fea316fe36251363988401.tar.gz netsurf-600f3ad557dd0ac4e1fea316fe36251363988401.tar.bz2 |
[project @ 2002-05-11 15:22:24 by bursa]
Better inline layout algorithm, simple tcl/tk gui.
svn path=/import/netsurf/; revision=15
Diffstat (limited to 'render/show.tcl')
-rw-r--r-- | render/show.tcl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/render/show.tcl b/render/show.tcl new file mode 100644 index 000000000..4adc48287 --- /dev/null +++ b/render/show.tcl @@ -0,0 +1,19 @@ +#!/usr/bin/wish + +gets stdin size +scan $size "%i %i" x y +canvas .can -width [expr $x+16] -height [expr $y+16] -borderwidth 0 -highlightthickness 0 -bg white +pack .can + +proc rect {x y w h n t c} { + set x [expr $x+8] + set y [expr $y+8] + .can create rectangle $x $y [expr $x+$w] [expr $y+$h] -fill $c + .can create text $x $y -anchor nw -text $n -fill red -font "arial 18 bold" + .can create text $x [expr $y+$h] -anchor sw -text $t -font "courier 32" +} + +while {-1 != [gets stdin line]} { + eval $line +} + |