canvas


Tcl/Tk


#!/usr/local/bin/wish4.2

canvas .canvas
.canvas create rectangle 1c 2c 3c 3c \
		-outline black -fill blue
pack .canvas

ruby/Tk


#!/usr/local/bin/ruby

require "tk"

canvas = TkCanvas.new
TkcRectangle.new(canvas, '1c', '2c', '3c', '3c',
				 'outline' => 'black', 'fill' => 'blue')
canvas.pack

Tk.mainloop