#!/usr/bin/wish8.4 -f
# -*- Tcl -*-
+# usage:
+# xbatmon-simple-tray
+
source applet.tcl
+source subproc.tcl
+
+applet::setup-debug puts
-#----- specifics -----
+foreach b {1 3} {
+ applet::setup-button-menu $b
+}
-.m1 add command -command { msel; puts hi } -label hi
-.m3 add command -command { msel; puts boo } -label boo
+.m1 add command -command { applet::msel; puts hi } -label hi
+.m3 add command -command { applet::msel; puts boo } -label boo
-image create bitmap ims -file gs_s.xbm
+#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
+applet::setup-tooltip { puts VIS } { puts INVIS }
+applet::tooltip-set "line\nanother"
-exec /home/ian/things/Chiark-utils/chiark-utils.git/cprogs/xacpi-simple \
- -into [winfo id .i.i.b.c] &
+proc cmdline {id orientation} {
+ global argv
+ return [concat $argv $id]
}
-##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]
-# }
-#}
+applet::setup-subproc cmdline