#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

package require Gnocl
package require GnoclAbiWidget

set aw1 [gnocl::abiwidget]

# pack int a toplevel window
gnocl::window \
        -child $aw1 \
        -defaultWidth 640 \
        -defaultHeight 400 \
        -onDelete { exit }

$aw1 insert table

$aw1 load [pwd]/test.abw

$aw1 view print

gnocl::mainLoop