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

load ../src/gnocl.so

gnocl::bonobo getObject "file:/home/baum/bp.jpg" "Bonobo/Control"
gnocl::bonobo getObject "OAFIID:/GNOME/Evolution/Mail" "Bonobo/Control"
gnocl::bonobo getObject "oafid:Bonobo:Selector:Control:1.0" "Bonobo/Control"
gnocl::bonobo getObject "oafid:/GNOME/Evolution/Mail" "Bonobo/Control"
gnocl::bonobo getObject "oafid:GNOME:Evolution:Mail:1.0" "Bonobo/Control"
gnocl::bonobo getObject "oafid:Helix:Evolution:Wombat:1.0" "Bonobo/Control"
gnocl::bonobo getObject "oafid:GNOME:Gnumeric:Grid:1.0" "Bonobo/Control"
gnocl::bonobo getObject "oafid:Bonobo:Sample:Mines" "Bonobo/Control"
gnocl::bonobo getObject "oafid:Bonobo/Sample/Mines" "Bonobo/Control"
gnocl::bonobo activateRepoID "IDL:GNOME/Gnumeric/Workbook:1.0"

if { [info exists tk_patchLevel] } {
   wm withdraw .
} else {
   gnocl::mainLoop
}
