Main list

``Template main list procedure: UiBuildMainList'' shows example main list used the in the SCOamin template:

• The main screen focus should be in the menu when first entering the application. See SaSetFocus(3tlib).

• The main list should always have an object selected. At startup, select the first object in the list. When list objects are added or modified, they should be selected. When an object is deleted, the next should be selected. SaListShowSelectedItem(3tlib) describes functions that adjust the VtList and VtDrawnList controls so that selected items are always visible within a scrolled list. This is useful when refreshing the list with a selected item.

• Note that -autolock is used to lock the application immediately when the callback is called so processing can continue without concern for more (and possibly conflicting) events from the user. When both single-click (-callback) and double-click (-defaultCallback) callbacks are specified, both callbacks will be called when the user performs a double-click. The single-click callback procedure should use VtUnlock -once before returning so that the lock for the double-click callback is not removed.

• Generally, the double-click callback (-defaultCallback option) should view details of the selected object. If appropriate, a modify action can be used, but keep in mind that this can can cause a user to modify an object by mistake.

See also:

• Template: ui.tcl, UiStart(), UiUpdateCountLabel()

Template main list procedure: UiBuildMainList

proc UiBuildMainList {form top} {
	global appvals

	# Build basic main form drawnlist widget including:
	# o Manually built title label for CHARM
	# o Drawnlist record format
	# o traditional Count label beneath the drawn list

	set labelFont medNormalFont

	# Simple drawnlist place holder widget
	set cmd {VtDrawnList $form.mainList \
			-rows 12 \
			-columns 50 \
			-rightSide FORM \
			-callback UiMainListCB \
			-defaultCallback UiMainListDoubleCB \
			-autoLock {UiMainListDoubleCB}
			}

	# Setup simple example using the "who" module
	# Except for the following line, Refresh should be generic
	# and usable as is.

	if {$appvals(who)} {
		set cmd [list WhoBuildMainList $form $top]
	}

	set mainList [eval $cmd]

	VxSetVar $form mainList $mainList

	# Define the accompanying count label
	set countLabel [VtLabel $form.countLabel -label " " \
				-topSide NONE \
				-leftSide FORM \
				-rightSide FORM \
				-bottomSide FORM \
				-labelRight]
	VxSetVar $form countLabel $countLabel
	VtSetValues $mainList -bottomSide $countLabel

	# Stash the localized string "Selected" here so we only grab it once
	# from the message catalog
	VxSetVar $countLabel selected [IntlMsg SELECTED]
	
	# Return the bottom-most widget for further attachments
	return $countLabel
}