DOC HOME SITE MAP MAN PAGES GNU INFO SEARCH PRINT BOOK
 
Writing a SCOadmin manager

Tool bar

The SCOadmin tool bar consists of a row of icons located below the menu bar. These icons can be configured to provide quick access to commonly performed functions.

``Template toolbar procedure: UiBuildToolBar'' illustrates how to do this:


NOTE: Tool bars are not displayed in character mode.

See also:


Template toolbar procedure: UiBuildToolBar

proc UiBuildToolBar {form top} {
	global appvals

set client $appvals(client) set frame IN set visibility 1

# relavant icons set appvals(toolbarIcons) [list \ [IntlMsg TB_OPENHOST] \ [IntlMsg TB_REFRESH] \ [IntlMsg TB_EXAMINE] \ [IntlMsg TB_DELETE] \ ]

# set of toolbar command records: tag callback shorthelpstring set appvals(toolbarCommands) [list \ [list openhost SaOpenHostCB \ [IntlMsg OPENHOST_SH [list $appvals(itemname)]]] \ [list refresh UiRefreshCB \ [IntlMsg REFRESH_SH]] \ [list examine UiExamineCB \ [IntlMsg EXAMINE_SH]] \ ]

# build the default toolbar set standard {} # open host turned on? if {$appvals(openhost)} { lappend standard {0 0} lappend standard {{} S} } lappend standard {1 1} lappend standard {2 2} set appvals(toolbarStandard) $standard

set current $appvals(toolbarStandard) if {$appvals(toolbarcust)} { SaToolbarLoad $client visibility current frame } else { SaToolbarLoad $client visibility } set toolbar \ [SaToolbar $form.toolbar $top \ $appvals(toolbarIcons) \ $appvals(toolbarCommands) \ $appvals(toolbarStandard) \ SaShortHelpCB \ $visibility \ $current \ $frame \ UiToolBarResensitizeCB \ UiToolBarCustomizeCB \ ] UiWidgetSet toolbar $toolbar return $toolbar }


Next topic: Status bar and point help
Previous topic: Help menu

© 2003 Caldera International, Inc. All rights reserved.
SCO OpenServer Release 5.0.7 -- 11 February 2003