#!/usr/bin/wish8.4 -f
# -*- Tcl -*-

source applet.tcl

#----- specifics -----

.m1 add command -command { msel; puts hi } -label hi
.m3 add command -command { msel; puts boo } -label boo

image create bitmap ims -file gs_s.xbm   
#image create bitmap ims -file /usr/share/ghostscript/8.71/lib/gs_s.xbm   
#setimage ims

image create photo ph-dummy ;# -width 40 -height 23
.i configure -image ph-dummy
#setimage ims

setuptooltip
settooltip "line\nanother"

destroy [frame .i.make-exist]
destroy [frame .i.i.make-exist]

proc innerwindow {} {
    puts "INNER"
    catch { destroy .i.i.c }
    if {![winfo exists .i.i]} return
    destroy [frame .i.i.make-exist]
#    if {[catch {
#	.i.i configure -width [winfo width .i.i] -height [winfo height .i.i]
#    } emsg]} {
#	puts stderr $emsg...
#	return
#    }
    frame .i.i.b -background darkblue -bd 1
    pack .i.i.b -fill both -side left -expand 1
    frame .i.i.b.c -container 1 -background orange ;# -width 35 -height 15
    pack .i.i.b.c -fill both -side left -expand 1
    puts "ID [winfo id .i.i.b.c]"
#    bind .i.i.b.c <Configure> iiconfigure
iiconfigure
}

proc iiconfigure {} {
    puts IICONFIG
    puts "IC [winfo id .i.i]"
    set w [winfo width .i.i]
    set h [winfo height .i.i]
    puts "W $w H $h"
set w 40
    ph-dummy configure -width $w -height 2 ;#$h
#    if {![string length [info command .i.i]]} {
#	puts NO
#	return
#    }
#    .i.i.b.c configure -width $w -height $h -background blue

exec /home/ian/things/Chiark-utils/chiark-utils.git/cprogs/xacpi-simple \
	-into [winfo id .i.i.b.c] &
}

##bind all <<IconCreate>> { puts sponge }
##bind all <<Sping>> { puts sping%W }

#bind .i <<IconConfigure>> innerwindow
innerwindow

#foreach w {. .i .i.i} {
    bind all <<IconCreate>> { puts "create %W" }
    bind all <<IconConfigure>> { puts "config %W" }
#}

puts gening

#foreach ev {MapRequest ResizeRequest ConfigureRequest Create  Gravity
# Reparent Circulate
#Configure Visibility
#} {
#	bind .i <$ev> { puts "$ev => [winfo children .i]" }
#}

#proc report {} {
#	after 1000 report
#	puts "children: [winfo children .i]"
#}

#report

#after idle {
#      winfo children .i
#      frame .i.inner.c -container 1 -background yellow
#      pack .i.inner.c

#      after idle {
#      	    puts [winfo id .i.c]
#    }
#}