/* definition of class sketchProcessesDefinitionEditor Intended to be a superclass for the three Editors for creating and editing of sketch processes, external influences, and scenarios edit kan aangeroepen met een bestaande definition voor het bewerken ervan. Wanneer edit wordt gebruikt zonder argumenten wordt in new mode geopend. 2006 Anders Bouwer, Universiteit van Amsterdam, Based on Garp3 Attribute definition editor Still includes some comments in Dutch */ :-pce_begin_class(processesEditor, sketchDefinitionEditor, "Process editor" ). variable(def,sketchProcessDefinition*,get, "the edited sketchProcessDefinition"). %@nil betekent: nieuwe %% initialise(D, OpenedBy: [object]):-> "Initialise the editor" :: %gp3 0.1: added openedBy, will be a hyper to the given object, so others can ask voor ?openedBy get(@model, getModelNameForEditor, 'Process definitions - Sketch', ModelNameForEditorLabel), D->+initialise(OpenedBy, ModelNameForEditorLabel, 'Sketch_ProcessDefinitions'), D?defList_member->>label('Process definitions:'). %% % init_import_menu(_VE, Import):-> send_list(Import,append, [ menuCommand(importConcepts, 'ImportConcepts','Import concepts from Concept Map'), menuCommand(importEntities, 'ImportEntities','Import entities from Structural Model'), % Agents are not allowed in Processes % menuCommand(importAgents, % 'ImportAgents','Import agents from Structural Model'), menuCommand(importAssumptions, 'ImportAssumptions','Import assumptions from Structural Model', end_group := @on) ] ). %% /******************COMMANDS**************************/ %% init_commands(VE ) :-> "Initialise command objects" :: %initialiseer de commando s. Zie assistance_dialog_with_menubar.pl, framedwindow.pl en command.pl VE->>command('SaveModel', key := '\\C-s', keystring := '[Ctrl + S]'), VE->>command('ImportConcepts',key := '\\C-i', keystring := '[Ctrl + I]'), VE->>command('ImportEntities'), % Agents are not allowed in Processes % VE->>command('ImportAgents'), VE->>command('ImportAssumptions'), % Old version - more general % VE->>command('ImportObjects',key := '\\C-j', keystring := '[Ctrl + J]'), %commands voor het afhandelen van de menu-balk, deze runt dus niet %maar de update command is handig voor het vullen van het menu enzo VE->>command('ContextPopup',runnable := @off). %% /***********************************/ % add_Add_button(_D, Add):<- Add *= imgButton(add, img:=new_process, tt:='Add process definition'). add_Remove_button(_D, Remove):<- Remove *= imgButton(remove, img:=delete_process, tt:='Delete selected process definition'). %% % add_tabtool(D, TabTool):<- new(TabTool, tab_stack( new(EntitiesTab, tab('Entities')), new(QuantitiesTab, tab('Quantities')), new(StartConditionsTab, tab('Start Conditions')), new(EffectsTab, tab('Effects')), new(StopConditionsTab, tab('Stop Conditions')), new(AssumptionsTab, tab('Assumptions')) ) ), TabTool->>name(tabtool), % init tabs D->>init_table_tab(EntitiesTab, entity), D->>init_table_tab(QuantitiesTab, quantity), D->>init_editor_tab(StartConditionsTab, start_conditions), D->>init_editor_tab(EffectsTab, effects), D->>init_editor_tab(StopConditionsTab, stop_conditions), D->>init_table_tab(AssumptionsTab, assumption). %% % default_sketchDefName(_D, Name: name):<- Name = 'New sketch process definition'. %% % fillDefList(D):-> "Fill the list with process definitions" :: D?defList_member->>clear, @model?sortedSketchProcessDefinitions->>for_all(->>(D,fillDefList_helper,@arg1)). %% % clearDefSheet(D):-> D->>clear_table_tab(entity), D->>clear_table_tab(quantity), D->>clear_tab(start_conditions), D->>clear_tab(effects), D->>clear_tab(stop_conditions), D->>clear_table_tab(assumption). % To Do: make code more systematical %% % fillDefSheet(D, _Def):-> % fill tabs D->>fill_table_tab(entity), D->>fill_table_tab(quantity), D->>fill_tab(start_conditions), D->>fill_tab(effects), D->>fill_tab(stop_conditions), D->>fill_table_tab(assumption). % To Do: make code more systematical %% % create_data_sheet(D, S:sheet):<- get(D, create_def_chain, entity, E1), get(D, create_def_chain, quantity, E2), get(D, hypered, start_conditionsTabEditor, E3), get(D, hypered, effectsTabEditor, E4), get(D, hypered, stop_conditionsTabEditor, E5), get(D, create_def_chain, assumption, E6), new(S, sheet( attribute(entity, E1), attribute(quantity, E2), attribute(start_conditions, E3?text_buffer?contents), attribute(effects, E4?text_buffer?contents), attribute(stop_conditions, E5?text_buffer?contents), attribute(assumption, E6) )). %% /* %%%%%%%%%%%% old version with only text editors create_data_sheet(D, S:sheet):<- get(D, hypered, entitiesTabEditor, E1), get(D, hypered, quantitiesTabEditor, E2), get(D, hypered, start_conditionsTabEditor, E3), get(D, hypered, effectsTabEditor, E4), get(D, hypered, stop_conditionsTabEditor, E5), get(D, hypered, assumptionsTabEditor, E6), new(S, sheet( attribute(entity, E1?text_buffer?contents), attribute(quantity, E2?text_buffer?contents), attribute(start_conditions, E3?text_buffer?contents), attribute(effects, E4?text_buffer?contents), attribute(stop_conditions, E5?text_buffer?contents), attribute(assumption, E6?text_buffer?contents) )). %% %%%%%%%%%%%% */ % notChangedDefSheet(D):-> forall(member(X, [entity, quantity, start_conditions, effects, stop_conditions, assumption]), D->>notChangedTabContents(X) ). %% %% saveDef(D):-> "Save the changes that were made" :: D->>notChanged,!. %niets te doen % saveDef(D):-> %kee, nu moeten we een CR bouwen %hangt af of we in nieuw modus zijn of niet get(D, create_data_sheet, S), if @nil = D<<-def then @model->>changeRequest(addSketchProcessDef, @model, D, D?name_member?selection, D?remarks_member?contents, S) else @model->>changeRequest(changeSketchProcessDef, D?def, D, D?name_member?selection, D?remarks_member?contents, S). %% %%%%%%% Import Functionality % create_import_type_menu(VE, SourceType, M1):<- new(M1, menu('to the following type in the current process definition:', choice)), % default message when a menu item is chosen send(M1, message, and( message(VE, set_import_type_for_process_definition, @arg1) ) ), send(M1, alignment, left), send(M1, columns, 1), send(M1, layout, vertical), send(M1, gap, size(0,10)), % difference between gap & border? send(M1, border, 0), % difference between gap & border? send(M1, value_width, 140), send(M1, format, left), send_list(M1, append, % first column [ menu_item('entity', @default, 'Entities'), % menu_item('agent', @default, 'Agents'), % no agents in processes menu_item('quantity', @default, 'Quantities'), menu_item('assumption', @default, 'Assumptions') ]), % the first time, set the selection to the default send(M1, selection, SourceType), send(VE, set_import_type_for_process_definition, SourceType). %% % set_import_type_for_process_definition(_VE, Type):-> @app->>setting(import_concepts_from_concept_map_to_process_definition, Type). %% % import_type(_VE, Type):<- Type = @app<<-setting(import_concepts_from_concept_map_to_process_definition). %% % report_import_error(VE):-> VE?frame->>report(error, 'Warning: Could not import. Select a process definition in the process definitions editor first'). %% %% /******************** MULTIPLE MODELS ***********************/ %JL /* Make the right model active */ input_focus(T, Boolean) :-> send(@app, selectCorrectTab, T), % T is the window object (of the editor) send_super(T, input_focus, Boolean). %%%%%%%%%%Helpers%%%%%%%%%%%%%%%% %%%%%%%%%CHANGES%%%%%%%%%%%%%%%% %% changeApplied_addSketchProcessDef(D, CR:changeRequestor):-> %de nieuwe sketchProcessDef wordt toegevoegd aan de lijst met defs %als dat in deze editor is gebeurd zonder dat we naar een andere zijn gesprongen, dan %selecteren we hem /* Net als bij changeSketchProcessDef kan het opslaan gebeuren doordat de boel in deze editor wordt opgeslagen nadat een andere def is geselecteerd: het gaat bij het herselecteren dan om de oude selectie en niet om de opgeslagen D?def */ List = D<<-defList_member, OldSelection = List<<-selection, if OldSelection = @nil then OldDef = @nil else OldDef = OldSelection<<-object, D->>fillDefList, if ( CR->>checkEditor(D), OldSelection = @nil %en we zijn nog braaf in new modus ) then ( List->>selection(CR?result), D->>slot(def,CR?result), %de nieuwe selectie % save again, because otherwise, def is not known in the data_sheet members % because def is now selected, saveDef will go down the other branch D->>saveDef, D->>fillCurrentDefData ) else ( %we moeten dus de oude selectie herstellen if (OldDef \== @nil) then List->>selection(OldDef) ). %% %% changeApplied_changeSketchProcessDef(D, _CR:changeRequestor):-> %we weten zeker dat de geselecteerde def nog steeds bestaat, dus daar hoeven we niet op te checken %het enige dat we doen is de lijst hervullen en de oude selectie herstellen %wanneer de thans geselecteerde def dezelfde is als de interne "huidige" def, en deze is gewijzigd %dan lezen we de gegevens opnieuw in. %Dit gebeurt dus niet op het nivo van de <-editor van de CR, maar op de test: is degene die is afgebeeld gewijzigd %(bij selecteren van een andere def wordt op deze manier hier geen data opnieuw weergegeven, omdat de opgeslagen % def wel de huidige <-def is, maar niet de geselecteerde in de lijst) %CLAUSE 1: er is geen selectie @nil = D?defList_member<<-selection,!, D->>fillDefList. % changeApplied_changeSketchProcessDef(D,CR):-> %CLAUSE 2: er is wel een selectie, dus die is er nog na de change Selected= D?defList_member?selection<<-object, D->>fillDefList, D?defList_member->>selection(Selected), %ok, als Selected gelijk is aan het object van de CR én aan de interne <-def %dan moeten we opnieuw inlezen if ( CR->>checkObject(Selected), Selected = D<<-def ) then (D->>fillCurrentDefData). %% %% changeApplied_deleteSketchProcessDef(D, CR : changeRequestor ):-> /* Het kan dus zijn dat de geselecteerde def weg is. In dat geval kiezen we een andere */ List = D<<-defList_member, Deleted = CR<<-argument(1), if (Deleted = D<<-def) then ( ( New = List?nextItem<<-object ; New = List?prevItem<<-object ; New = @nil ), List->>selection(New), D->>slot(def,New), D->>fillCurrentDefData ), List->>delete(Deleted). %% :-pce_end_class.