From 600f3ad557dd0ac4e1fea316fe36251363988401 Mon Sep 17 00:00:00 2001
From: James Bursa <james@netsurf-browser.org>
Date: Sat, 11 May 2002 15:22:24 +0000
Subject: [project @ 2002-05-11 15:22:24 by bursa] Better inline layout
 algorithm, simple tcl/tk gui.

svn path=/import/netsurf/; revision=15
---
 render/show.tcl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 render/show.tcl

(limited to 'render/show.tcl')

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
+}
+
-- 
cgit v1.2.3