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

# usage:
#  xbatmon-simple-tray

source applet.tcl
source subproc.tcl

applet::setup-debug puts

foreach b {1 3} {
    applet::setup-button-menu $b
}

.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 /usr/share/ghostscript/8.71/lib/gs_s.xbm   
#setimage ims
#setimage ims

applet::setup-tooltip { puts VIS } { puts INVIS }
applet::tooltip-set "line\nanother"

proc cmdline {id orientation} {
    return [list xacpi-simple -into $id]
}

applet::setup-subproc cmdline