/* Definition of class sketchGenericDependencyPropsDlg. Abstracte parent van de dialogen voor sketchDependencies Based on defition of class qRelPropsDlg */ :-pce_begin_class(sketchGenericDependencyPropsDlg, propertyDialog ). variable(arg1,sketchQuantityElement,both,"The associated first argument"). variable(arg1Route, chain, both, "Route to the first argument"). variable(arg2,sketchQuantityElement,both,"The associated second argument"). variable(arg2Route, chain, both, "Route to the second argument"). variable(switched,bool,both). %% initialise(D, F: frame):-> "Initialise the properties dialog" :: %gp3 0.2 changed buttons to imgButtons %gp3 0.3.13 added the helpid fake, that must be set in editObject and newObject D->+initialise('Dependency properties - Sketch', F,fake), D->>switched(@off), %de onderdelen: lay out weer helemaal uitgeschreven GapX = D<<-gapX, GapY = D<<-gapY, MaxX *= number(0), %houden we de maximale X coordinaat in bij zodat we rechts kunnen uitlijnen Arg1 *= extendedListBrowser(width:=30, height:=4), Arg1->>name(arg1), Arg1->>show_label(@off), Arg1->>pen(0), Arg1?image->>slot(background,D?background), D->>display(Arg1,point(GapX, D?topY)), %Sign menu en switch knop komen in de "midden kolom" %hun gezamelijke breedte doet er dus toe Switch *= imgButton(switch, tt:='Switch arguments'), /* PlusImageName = D?sketchDependencyType<<-append('_plus'), MinImageName = D?sketchDependencyType<<-append('_min'), UnknownImageName = D?sketchDependencyType<<-append('_unknown'), get_image(actions,PlusImageName,Plus), get_image(actions,MinImageName,Min), get_image(actions,UnknownImageName,Unknown), */ % DepPlusImageName = 'dep_plus', % DepMinImageName = 'dep_min', InfPlusImageName = 'inf_plus', InfMinImageName = 'inf_min', PropPlusImageName = 'prop_plus', PropMinImageName = 'prop_min', % get_image(actions,DepPlusImageName,DepPlus), % get_image(actions,DepMinImageName,DepMin), get_image(actions,InfPlusImageName,InfPlus), get_image(actions,InfMinImageName,InfMin), get_image(actions,PropPlusImageName,PropPlus), get_image(actions,PropMinImageName,PropMin), Sign *= menu(sign,marked), Sign->>show_label(@off), Sign->>layout(vertical), % Sign->>append(menu_item(dep_plus, label:= DepPlus)), % Sign->>append(menu_item(dep_min, label:= DepMin)), Sign->>append(menu_item(inf_plus, label:= InfPlus)), Sign->>append(menu_item(inf_min, label:= InfMin)), Sign->>append(menu_item(prop_plus, label:= PropPlus)), Sign->>append(menu_item(prop_min, label:= PropMin)), MiddenBreedte *= number(Sign?width), MiddenBreedte->>maximum(Switch?width), D->>display(Sign,point(Arg1?right_side + GapX + ((MiddenBreedte / 2) - (Sign?width / 2)), Arg1?top_side)), D->>display(Switch,point(Arg1?right_side + GapX + ((MiddenBreedte / 2) - (Switch?width / 2)), Sign?bottom_side + GapY / 2)), Arg2 *= extendedListBrowser(width:=30, height:=4), Arg2->>name(arg2), Arg2->>show_label(@off), Arg2->>pen(0), Arg2?image->>slot(background,D?background), D->>display(Arg2,point(Arg1?right_side + MiddenBreedte + 2 * GapX,Arg1?top_side)), MaxX->>maximum(Arg2?right_side), %hiervoor nemen we de maximale hoogte ArgHoogte *= number(Arg1?bottom_side), ArgHoogte->>maximum(Switch?bottom_side), Arg1->>bottom_side(ArgHoogte), Arg2->>bottom_side(ArgHoogte), %remarks komen zo breed als kan Remarks *= editor(height := 5, width := 60), Remarks->>name(remarks), Remarks->>label('Remarks:'), Remarks->>show_label(@on), Remarks->>fill_mode(@on), Remarks->>font(Arg1?font), D->>display(Remarks,point(GapX,ArgHoogte + GapY)), MaxX->>maximum(Remarks?right_side), Ok *= imgButton(ok, img:=sketch_save, tt:='Apply changes'), D->>display(Ok,point(GapX,Remarks?bottom_side + GapY)), Ok->>default_button(@on), Ok->>keyboard_focus(@on), Cancel *= imgButton(cancel, img:=sketch_undo, tt:= 'Cancel changes'), D->>display(Cancel,point(MaxX - Cancel?width,Ok?top_side)), D->>updateSpacers, %gp3 0.3.13 D->>assign_accelerators, %minimal size: D->>minimalSize(size(MaxX,Cancel?bottom_side)), %abs min get(@model, getModelNameForEditor, 'Dependency properties - Sketch', ModelNameForEditor), new(Garp3EditorFrame, garp3EditorFrame(ModelNameForEditor)), get(@model, '_value', Model), send(Garp3EditorFrame, associateModel, Model), send(Garp3EditorFrame, append, D), send(Garp3EditorFrame, transient_for, F). %% %% onResize(D, Difference: size):-> %gp3 0.2: Arg1 = D<<-arg1_member, Arg2 = D<<-arg2_member, Arg1->>pixelWidth(Arg1?pixelWidth + Difference?width / 2), Arg2->>pixelWidth(Arg2?pixelWidth + Difference?width / 2), Arg2->>set(x:= Arg2?left_side + Difference?width / 2), D?switch_member->>set(x:= D?switch_member?left_side + Difference?width / 2), D?sign_member->>set(x:= D?sign_member?left_side + Difference?width / 2), D?remarks_member->>right_side(Arg2?right_side), D?remarks_member->>bottom_side(D?remarks_member?bottom_side + Difference?height), D?ok_member->>set(y:=D?ok_member?top_side + Difference?height), D?cancel_member->>move(point(Arg2?right_side - D?cancel_member?width, D?ok_member?top_side)). %% %% sketch(D,SK: sketch):<- %return the edited sketch; this is always the sketch of the editor SK=D?editor<<-sketch. %% %% newObject(D, Arg1: sketchQuantityElement, Arg1Route: chain, Arg2: sketchQuantityElement, Arg2Route: chain, Sign: {dep_plus, dep_min, inf_plus, inf_min, prop_plus, prop_min} ):-> %openen voor nieuwe sketch Dependency %zet geen label (moet subclass doen) D->>setArguments(Arg1,Arg1Route,Arg2,Arg2Route,Sign), D->>element(@nil), D->>openDialog. %% %% editObject(D, QR : sketchDependencyElement, ReadOnly: bool ):-> %openen voor bestaande quantity relation %type check moet gebeuren bij subclass D->>setArguments(QR?argument1, QR?argument1Route,QR?argument2, QR?argument2Route, QR?sign), D->>element(QR), D?remarks_member->>contents(QR?remarks), if ReadOnly = @on then ( get(@model, getModelNameForEditor, string('%s [Read Only]',D?label)?value, ModelNameForEditor), D->>label(ModelNameForEditor) ), D?ok_member->>active(ReadOnly?negate), D->>openDialog. %% %% setArguments(D, Arg1: sketchQuantityElement, Arg1Route: chain, Arg2: sketchQuantityElement, Arg2Route: chain, Sign: {dep_plus, dep_min, inf_plus, inf_min, prop_plus, prop_min} ):-> %we zetten de argumenten en het sign D->>arg1(Arg1), D->>arg1Route(Arg1Route), D->>arg2(Arg2), D->>arg2Route(Arg2Route), D?sign_member->>selection(Sign), D->>setArgumentsDisplay. %% %% setArgumentsDisplay(D):-> "Display the descriptions of the 2 arguments" :: List1 = D<<-member(arg1), List1->>clear, if D?arg1Route->>empty then A1I = '' else A1I = ' (imported)', List1->>append(dict_item(string('SketchQuantity: %s', D?arg1?name))), List2 = D<<-member(arg2), List2->>clear, if D?arg2Route->>empty then A2I = '' else A2I = ' (imported)', List2->>append(dict_item(string('SketchQuantity: %s',D?arg2?name))). %% %% switch(D):-> "Switch arguments pressed" :: A1 = D<<-arg1, A1R = D<<-arg1Route, A1R->>lock_object(@on), D->>arg1(D?arg2), D->>arg1Route(D?arg2Route), D->>arg2(A1), D->>arg2Route(A1R), D->>setArgumentsDisplay, A1R->>lock_object(@on), D->>switched(D?switched?negate). %% %% saveNewElement(D):-> %nieuwe maken @model->>changeRequest(newSketchDependency, D?sketch, D?editor, D?sketchDependencyType, D?arg1, D?arg1Route, D?arg2, D?arg2Route, D?sign_member?selection, D?remarks_member?contents). %% %% saveChangedElement(D):-> %bestaande opslaan @model->>changeRequest(changeSketchDependency, D?sketch, D?editor, D?element, D?sketchDependencyType, D?arg1, D?arg1Route, D?arg2, D?arg2Route, D?sign_member?selection, D?remarks_member?contents). %% % sketchDependencyType(D, Type: name):<- % determine Type from Sign % For undefined dependencies (currently not used), Type should become 'dep'. get(D?sign_member, selection, Sign), if member(Sign, [inf_plus, inf_min]) then Type = inf else Type = prop. %% %% notChanged(D):-> %we kunnen de args alleen switchen, dus checken we of ze niet geswitched zijn @off = D<<-switched, %verder kunnen alleen het sign en de remarks wijzigen PrevSign = D?element<<-sign, PrevSign = D?sign_member<<-selection, D?remarks_member?contents->>equal(D?element?remarks). %% %%%%%%%%%%%%%%%%%%%%%%CHANGE%%%%%%%%%%%%%%% %%changeSketchDependency: als niet door ons maar wel onze relatie, dan stoppen we er mee changeApplied_changeSketchDependency(D, CR: changeRequestor):-> \+ CR->>checkEditor(D?editor), CR->>checkArgument(1,D?element), D->>return. %% %%deleteSketchDependency: precies hetzelfde als change (maar niet letten op editor) changeApplied_deleteSketchDependency(D, CR: changeRequestor):-> CR->>checkArgument(1,D?element), D->>return. %% :-pce_end_class.