Commit 36b86ea9 authored by claes's avatar claes

Togglebutton attributeobjects

parent 9cb4b21f
...@@ -37,6 +37,7 @@ procedure ...@@ -37,6 +37,7 @@ procedure
wdaclass_activate_cancel(integer); wdaclass_activate_cancel(integer);
wdaclass_create_hiervalue(integer); wdaclass_create_hiervalue(integer);
wdaclass_create_classvalue(integer); wdaclass_create_classvalue(integer);
wdaclass_create_attrobjects(integer);
value value
menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1'); menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
...@@ -476,6 +477,7 @@ object wdaclass_dia : XmFormDialog { ...@@ -476,6 +477,7 @@ object wdaclass_dia : XmFormDialog {
XmLabel hierlabel; XmLabel hierlabel;
XmText classvalue; XmText classvalue;
XmText hiervalue; XmText hiervalue;
XmToggleButton attrobjects;
XmPushButton ok; XmPushButton ok;
XmPushButton cancel; XmPushButton cancel;
}; };
...@@ -565,5 +567,19 @@ object hierlabel : XmLabel { ...@@ -565,5 +567,19 @@ object hierlabel : XmLabel {
}; };
}; };
object attrobjects : XmToggleButton {
arguments {
XmNlabelString = 'Attribute Objects';
XmNx = 40;
XmNy = 90;
XmNfontList = menu_font;
};
controls {
};
callbacks {
MrmNcreateCallback = procedure wdaclass_create_attrobjects(wda_ctx);
};
};
end module; end module;
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment