A button bank for use as a program launcher, etc..

It stays top most and iconifies to the tray.

See also the IconBar

buttonbar.gif (3556 bytes)

G4C BUTTON_BAR

// ================================================================
// A button bar. It stays top most & iconifies to the tray.
// Useful as a program-launcher etc
// ================================================================

WINDOW 856 158 80 160 "ButtonBar"
    Winattr style clear/topmost/move/resize/remsize/noborder
    winattr background color 250/150/0

xonLoad
    GuiOpen #this

xOnClose // iconify
    setevent #this tbicon show

xOnOpen    // de-iconify
    setevent #this tbicon hide

// ================================================================
// Close button - minimise to the tray
// ================================================================

xIcon 59 1 20 18 g4c/9
    attr resize 2000
    attr help 'Minimize ButtonBar into the system tray'
    guiclose #this

xTBarIcon g4c/9 'Open ButtonBar'
    attr show hide // start off hidden
    attr id tbicon
    guiopen #this

// ================================================================
// button bank
// ================================================================

XBUTTON 0 20 80 20 "1"
    attr resize 0020
    attr title 'tl/ButtonBar'

XBUTTON 0 40 80 20 "2"
    attr resize 0020

XBUTTON 0 60 80 20 "3"
    attr resize 0020

XBUTTON 0 80 80 20 "4"
    attr resize 0020

XBUTTON 0 100 80 20 "5"
    attr resize 0020

XBUTTON 0 120 80 20 "6"
    attr resize 0020

XBUTTON 0 140 80 20 "Quit"
    attr resize 0020
    guiquit #this