::mdlAttachmentTable
This command creates a table widget for the attachments. This table allows the user to edit and/or resolve the attachments that it contains. The table supports either a system (all of the attachments for that system) or a list of attachments.
Syntax
::model::mdlAttachmentTable path entityHandleList
Application
MotionView Tcl GUI
Description
This command creates a table widget for the attachments. This table allows the user to edit and/or resolve the attachments that it contains. The table supports either a system (all of the attachments for that system) or a list of attachments.
Inputs
- path
- The name of an already existing frame that will contain the attachment table widget that is being created.
- entityHandleList
- Either a handle to a system or a list of handles to attachments for a system.
Example
To add a system to the model and then create a dialog that contains an attachment table for
that
system:
hwi GetSessionHandle sess1
sess1 GetProjectHandle pro1
sess1 ReleaseHandle
pro1 GetPageHandle pa1 [pro1 GetActivePage]
pro1 ReleaseHandle
pa1 GetWindowHandle win1 [pa1 GetActiveWindow]
pa1 ReleaseHandle
win1 GetClientHandle mcl
win1 ReleaseHandle
mcl GetRootObjectHandle mo
mcl ReleaseHandle
mo InterpretEntity sys System sys_0 "\"System 0\"" def_sys_0
mo ReleaseHandle
set tl [toplevel .top]
wm geometry $tl 600x400
wm title $tl "Attachment Table Window"
grid rowconfigure $tl 0 -weight 1
grid columnconfigure $tl 0 -weight 1
set frm [frame $tl.frmBody]
grid rowconfigure $frm 0 -weight 1
grid columnconfigure $frm 0 -weight 1
grid $frm -row 0 -column 0 -columnspan 2 -sticky nesw
set frm2 [frame $tl.frmButtons]
grid columnconfigure $frm2 0 -weight 1
grid $frm2 -row 1 -column 1
set btn [button $frm2.btnClose -text "Close" -command ::OnClose]
grid $btn -row 0 -column 0
set attTable [::model::mdlAttachmentTable $frm sys]
grid $attTable -row 0 -column 0 -sticky nesw
proc ::OnClose {} {
wm withdraw .top
destroy .top
sys Delete
sys ReleaseHandle
}
Errors
None.