#!/usr/bin/wish
# -*- Tcl -*-

source applet.tcl
source subproc.tcl

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

applet::setup-subproc 70 darkblue 1 cmdline