![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
Task Editor Example This is an example of the apex_guigen input, including dlisp code, for a custom task editor dialog:
# Definition of the task editor dialog fields: # field, widget pairs Priority priority Assigned assigned Parent parent_text Children children_list CmvcVersions cmvcHistory Summary summary Description description # common fields edit_toggle: toggle_button -label "Edit" -alignment alignment_beginning #domain row domain_label: label -label "Domain:" -alignment alignment_beginning domain: label -alignment alignment_beginning #domain_row: pack -side left # domain_label domain #kind row kind_label: label -label "Kind:" -alignment alignment_beginning kind: label -alignment alignment_beginning #kind_row: pack -side left # kind_label kind #id row id_label: label -label "Id:" -alignment alignment_beginning taskId: label -alignment alignment_beginning #id_row: pack -side left # id_label taskId #priority row priority_label: label -label "Priority:" -alignment alignment_beginning priority: text_combo -valueChangedCallback field_changed -modifyVerifyCallback field_modify_verify assigned_label: label -label "Assigned:" -alignment alignment_beginning assigned: text_combo -valueChangedCallback field_changed -modifyVerifyCallback field_modify_verify #priority_row: pack -side left # priority_label priority assigned_label assigned state_label: label -label "State:" state: label -label "current state" parent_label: label -label "Parent:" parent: label -label "current parent" transition: options_menu -label "Transition:" -buttons "n" -entryCallback transition_changed column_1: pack -side top domain_label id_label state_label column_2_1: pack -side top taskId state column_2_2: pack -side top -leftOffset 40 kind_label parent_label column_2_3: pack -side top kind parent column_2_sub: pack -side left column_2_1 column_2_2 column_2_3
column_2: pack -side top
domain column_2_sub
header: pack -side left -topOffset 5
column_1 column_2
priority_row: pack -side left
priority_label priority assigned_label assigned
editable: pack -side top
edit_toggle transition priority_row
framed_editable: frame editable
# The below describes the various task pages
# To add a new page just describe it and then
# add the page that puts it together to the
# task_pages widget. If you want it to be the
# default, do it first...
# page describing the parent/child relationship
parent_text_label: label -label "Parent:" -alignment alignment_beginning
parent_text: text_field -editable false
children_label: label -label "Children:" -alignment alignment_end
children_list: scrolled_list -visible_items 15 -editable false
c_action1: push_button -label "child_action_1"
c_action2: push_button -label "child_action_2"
c_action3: push_button -label "child_action_3"
c_action4: push_button -label "child_action_4"
children_actions: row_column
-orientation horizontal -packing pack_column
-entryAlignment alignment_center -isAligned true
c_action1 c_action2 c_action3 c_action4
related_task_page: pack -side top -label "Related Tasks" -grow children_list
parent_text_label
parent_text
children_label
children_list
children_actions
# page describing the version history
version_history_label: label -label "Version History Information:"
-alignment alignment_beginning
h_action1: push_button -label "hist_action_1"
h_action2: push_button -label "hist_action_2"
h_action3: push_button -label "hist_action_3"
version_history_actions: row_column
-orientation horizontal -packing pack_column
-entryAlignment alignment_center -isAligned true
h_action1 h_action2 h_action3
cmvcHistory: scrolled_list -visible_items 15 -editable false
version_history_page: pack
-side top -label "Version History Information" -grow cmvcHistory
version_history_label
cmvcHistory
version_history_actions
# page describing the summary information
summary_label: label -label "Summary:" -alignment alignment_beginning
summary: text_field -valueChangedCallback field_changed
-modifyVerifyCallback field_modify_verify
description_label: label -label "Description:" -alignment alignment_beginning
description: scrolled_text -rows 20 -columns 30
-valueChangedCallback field_changed
-modifyVerifyCallback field_modify_verify
d_action1: push_button -label "action_1"
d_action2: push_button -label "action_2"
d_action3: push_button -label "action_3"
d_action4: push_button -label "action_4"
description_actions: row_column
-orientation horizontal -packing pack_column
-entryAlignment alignment_center -isAligned true
d_action1 d_action2 d_action3 d_action4
description_page: pack -side top -label "Description" -grow description
summary_label
summary
description_label
description
description_actions
task_pages: pages
description_page related_task_page version_history_page
dlisp:
%prog cm_op
<set,control_options,
-output_title <parm,0>
-window_to_notify <alias_key>
>
<exec,
apex <parm,0> <val,control_options> <arg,3>
>
%prog h_action1
<set,version,<valw,cmvcHistory,selected>>
<set,version,<token,1,<val,version>>>
<cond,<ne,<val,version>,>,
<perform,visit,<val,version>,,,<alias_key>>
, # else
<msg_dialog,No version to visit is selected.>
>
%prog d_action2
<call,cm_op,check_in>
%prog d_action3
<call,cm_op,check_out>
%prog c_action1
# New Child...
<dialog,<alias_key>,fileNewTask,
<arg,1>,-parent <arg,3>,Task Editor - New Child Task,<valw,domain>>
%prog c_action2
# Visit
<set,target,<valw,children,selected>>
<cond,<eq,<val,target>,>,<set,target,<valw,parent_text>>>
<cond,<ne,<val,target>,>,
<perform,visit,<val,target>,,,<alias_key>>
, # else
<msg_dialog,No child selected and no parent to visit.>
>
dlisp: build
# <popup,history,description_history,description,,TaskDescription>
<hide,d_action1>
<setw,d_action2,Check In>
<setw,d_action3,Check Out>
<hide,d_action4>
<setw,h_action1,Visit>
<hide,h_action2>
<hide,h_action3>
<setw,c_action1,New Child...>
<setw,c_action2,Visit>
<hide,c_action3>
<hide,c_action4>
Rational Software Corporation http://www.rational.com support@rational.com techpubs@rational.com Copyright © 1993-2001, Rational Software Corporation. All rights reserved. |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |