::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.