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

Building the main form

The main form should be displayed as soon as possible to ensure a timely response for the user. You can then check authorizations, fetch data, and display status messages while the main form is in a locked state.

Template startup procedure: UiStart

proc UiStart {} {
	global appvals

# Open/connect to widget server set vtApp [VtOpen $appvals(client)] set appvals(vtApp) $vtApp VtSetAppValues $vtApp \ -versionString "$appvals(title) $appvals(version)" \ -errorCallback {SaUnexpectedErrorCB {}}

if {$appvals(openhost)} { set title \ "$appvals(title) [IntlMsg ON] [SaHostExtractSystemName $appvals(managedhost)]" } else { set title "$appvals(title)" }

# Create main dialog set vtMain [VtFormDialog $vtApp.main \ -title $title \ -wmShadowThickness 0 \ -wmCloseCallback UiCloseCB] set appvals(vtMain) $vtMain VxSetVar appvals(vtMain) vtMain $vtMain UiDefaultFormSpacingSet $vtMain SaCharmSetMaxFormDimensions $vtMain

# Build pulldown menus set menuBar [UiBuildMenus $vtMain] VxSetVar $appvals(vtMain) menuBar $menuBar

# Build the toolbar if {! [VtInfo -charm]} { if {$appvals(toolbar)} { set toolbar [UiBuildToolBar $vtMain $menuBar] } }

# Main form label (vs. title) set mainlabel [VtLabel $vtMain.mainlabel \ -label "$appvals(title) [IntlMsg ON] $appvals(managedhost)"] VxSetVar $appvals(vtMain) mainlabel $mainlabel

# TODO: build main screen widgets here. # Basic drawnlist is provided as a sample # Pass main form and widget just above for attachments if {$appvals(who)} { set mainList [UiBuildMainList $vtMain $mainlabel] }

# Build the status bar # Standard SCOadmin status bar pixmap set logofile {} # Full pathname for non-SCOadmin status bar pixmap # set logofile "?"

if {[lempty $logofile]} { set statusBar [SaStatusBar $vtMain.statusBar 1] } else { set statusBar [SaStatusBar $vtMain.statusBar 1 $logofile] } VxSetVar $appvals(vtMain) statusBar $statusBar # Connect main screen widget bottom to statusbar if {$appvals(who)} { VtSetValues $mainList -bottomSide $statusBar }

# Display the main form and lock it VtShow $vtMain VtLock }


Next topic: Dimensions, borders, and alignment
Previous topic: Help book (hook file)

© 2004 The SCO Group, Inc. All rights reserved.
UnixWare 7 Release 7.1.4 - 27 April 2004