Commit 36b86ea9 authored by claes's avatar claes

Togglebutton attributeobjects

parent 9cb4b21f
......@@ -37,6 +37,7 @@ procedure
wdaclass_activate_cancel(integer);
wdaclass_create_hiervalue(integer);
wdaclass_create_classvalue(integer);
wdaclass_create_attrobjects(integer);
value
menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
......@@ -476,6 +477,7 @@ object wdaclass_dia : XmFormDialog {
XmLabel hierlabel;
XmText classvalue;
XmText hiervalue;
XmToggleButton attrobjects;
XmPushButton ok;
XmPushButton cancel;
};
......@@ -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;
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