blob: 3ee0da26ecec13b5116e0b5fbb834c5a9ffb7124 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/bin/sh
# \
exec itkwish "$0" ${1+"$@"}
package require Iwidgets 3.0
# itkwish interprets the rest...
# ----------------------------------------------------------------------
option add *textBackground seashell
#
# Make a canvas for the main application:
#
canvas .c -width 200 -height 200 -background white
.c create rectangle 30 30 150 150 -fill blue
.c create oval 70 70 190 190 -fill red
.c create polygon 60 50 110 180 10 180 -fill green
.c create text 100 5 -anchor n -text "Example Drawing"
iwidgets::canvasprintbox .pcb -printcmd "lpr" -pagesize "A4"
.pcb setcanvas .c
|