    
wm geometry . 730x520
wm minsize  . 730 520

set w .fcanvas
destroy $w
canvas $w -bg ivory
pack $w -side top -after .infobar -fill both -expand yes -padx 1m -pady 1m

global GoblinVersion
$w create text 40 30 -text "GOBLET Graph Browser $GoblinVersion" -anchor nw \
    -font -*-lucida-bolditalic-i-normal--24-*-*-*-p-*-*-*
    
$w create text 650 340 -anchor e \
    -text "GOBLIN Graph Object Library for Network Programming Problems" \
    -font -*-lucida--r-narrow--14-*-*-*-p-*-*-*
$w create text 650 360 -anchor e \
    -text "Written by Dr.Christian Fremuth-Paeger   (c) 1998-2002" \
    -font -*-lucida--r-narrow--14-*-*-*-p-*-*-*

global GoblinTclPath
image create photo tclLogo -file [file join $GoblinTclPath tclLogo.gif]
$w create image 650 200 -image tclLogo -anchor e

image create photo demo -file [file join $GoblinTclPath gobletTitle.gif]
$w create image 40 200 -image demo -anchor w
