void structArtwordEditor :: v_createChildren () {
int dy = Machine_getMenuBarHeight ();
GuiLabel_createShown (d_windowForm, 40, 100, dy + 3, dy + 3 + Gui_LABEL_HEIGHT, U"Targets:", 0);
GuiLabel_createShown (d_windowForm, 5, 65, dy + 20, dy + 20 + Gui_LABEL_HEIGHT, U"Times:", 0);
GuiLabel_createShown (d_windowForm, 80, 140, dy + 20, dy + 20 + Gui_LABEL_HEIGHT, U"Values:", 0);
list = GuiList_createShown (d_windowForm, 0, 140, dy + 40, dy + 340, true, nullptr);
GuiButton_createShown (d_windowForm, 10, 130, dy + 410, dy + 410 + Gui_PUSHBUTTON_HEIGHT, U"Remove target", gui_button_cb_removeTarget, this, 0);
drawingArea = GuiDrawingArea_createShown (d_windowForm, 170, 470, dy + 10, dy + 310,
gui_drawingarea_cb_expose, gui_drawingarea_cb_click, nullptr, nullptr, this, 0);
GuiLabel_createShown (d_windowForm, 220, 270, dy + 340, dy + 340 + Gui_LABEL_HEIGHT, U"Time:", 0);
time = GuiText_createShown (d_windowForm, 270, 370, dy + 340, dy + 340 + Gui_TEXTFIELD_HEIGHT, 0);
GuiLabel_createShown (d_windowForm, 220, 270, dy + 370, dy + 370 + Gui_LABEL_HEIGHT, U"Value:", 0);
value = GuiText_createShown (d_windowForm, 270, 370, dy + 370, dy + 370 + Gui_TEXTFIELD_HEIGHT, 0);
GuiButton_createShown (d_windowForm, 240, 360, dy + 410, dy + 410 + Gui_PUSHBUTTON_HEIGHT, U"Add target", gui_button_cb_addTarget, this, GuiButton_DEFAULT);
dy = Machine_getMenuBarHeight ();
GuiRadioGroup_begin ();
for (int i = 1; i <= kArt_muscle_MAX; i ++) {
button [i] = GuiRadioButton_createShown (d_windowForm,
480, 0, dy, dy + Gui_RADIOBUTTON_HEIGHT,
kArt_muscle_getText (i), gui_radiobutton_cb_toggle, this, 0);
dy += Gui_RADIOBUTTON_HEIGHT + Gui_RADIOBUTTON_SPACING - 2;
}
GuiRadioGroup_end ();
feature = 1;
GuiRadioButton_set (button [feature]);
}
void structHyperPage :: v_createChildren () {
int height = Machine_getTextHeight ();
int y = Machine_getMenuBarHeight () + 4;
/***** Create navigation buttons. *****/
if (v_hasHistory ()) {
GuiButton_createShown (d_windowForm, 4, 48, y, y + height,
L"<", gui_button_cb_back, this, 0);
GuiButton_createShown (d_windowForm, 54, 98, y, y + height,
L">", gui_button_cb_forth, this, 0);
}
if (v_isOrdered ()) {
GuiButton_createShown (d_windowForm, 174, 218, y, y + height,
L"< 1", gui_button_cb_previousPage, this, 0);
GuiButton_createShown (d_windowForm, 224, 268, y, y + height,
L"1 >", gui_button_cb_nextPage, this, 0);
}
/***** Create scroll bar. *****/
createVerticalScrollBar (this, d_windowForm);
/***** Create drawing area. *****/
drawingArea = GuiDrawingArea_createShown (d_windowForm, 0, - Machine_getScrollBarWidth (), y + height + 8, - Machine_getScrollBarWidth (),
gui_drawingarea_cb_expose, gui_drawingarea_cb_click, NULL, gui_drawingarea_cb_resize, this, GuiDrawingArea_BORDER);
drawingArea -> f_setSwipable (NULL, verticalScrollBar);
}
void structManual :: v_createChildren () {
Manual_Parent :: v_createChildren ();
ManPages pages = (ManPages) data; // has been installed here by Editor_init ()
#if defined (macintosh)
#define STRING_SPACING 8
#else
#define STRING_SPACING 2
#endif
int height = Machine_getTextHeight (), y = Machine_getMenuBarHeight () + 4;
homeButton = GuiButton_createShown (holder, 104, 168, y, y + height,
L"Home", gui_button_cb_home, this, 0);
if (pages -> dynamic) {
#if motif
XtVaSetValues (drawingArea, XmNtopOffset, y + height * 2 + 16, NULL);
XtVaSetValues (verticalScrollBar, XmNtopOffset, y + height * 2 + 16, NULL);
#endif
recordButton = GuiButton_createShown (d_windowForm, 4, 79, y+height+8, y+height+8 + height,
L"Record", gui_button_cb_record, this, 0);
playButton = GuiButton_createShown (d_windowForm, 85, 160, y+height+8, y+height+8 + height,
L"Play", gui_button_cb_play, this, 0);
publishButton = GuiButton_createShown (d_windowForm, 166, 166 + 175, y+height+8, y+height+8 + height,
L"Copy last played to list", gui_button_cb_publish, this, 0);
}
GuiButton_createShown (holder, 274, 274 + 69, y, y + height,
L"Search:", gui_button_cb_search, this, GuiButton_DEFAULT);
searchText = GuiText_createShown (holder, 274+69 + STRING_SPACING, 452 + STRING_SPACING - 2, y, Gui_AUTOMATIC, 0);
#if motif
/* TODO */
XtAddCallback (searchText, XmNactivateCallback, gui_cb_search, (XtPointer) this);
#endif
}
static void createVerticalScrollBar (HyperPage me, GuiForm parent) {
my verticalScrollBar = GuiScrollBar_createShown (parent,
- Machine_getScrollBarWidth (), 0,
Machine_getMenuBarHeight () + Machine_getTextHeight () + 12, - Machine_getScrollBarWidth (),
0, PAGE_HEIGHT * 5, 0, 25, 1, 24,
gui_cb_verticalScroll, me, 0);
}
int Machine_getMainWindowMenuBarHeight (void) {
#ifdef macintoshXXX
return 0;
#else
return Machine_getMenuBarHeight ();
#endif
}
void ButtonEditor::createChildren () {
void *group = NULL;
int x = 3, y = Machine_getMenuBarHeight () + 4;
_button1 = GuiRadioButton_createShown (_holder, x, x + BUTTON_WIDTH, y, Gui_AUTOMATIC,
L"Objects", gui_radiobutton_cb_objects, this, GuiRadioButton_SET);
x += BUTTON_WIDTH + 5;
_button2 = GuiRadioButton_createShown (_holder, x, x + BUTTON_WIDTH, y, Gui_AUTOMATIC,
L"Picture", gui_radiobutton_cb_picture, this, 0);
x += BUTTON_WIDTH + 5;
_button3 = GuiRadioButton_createShown (_holder, x, x + BUTTON_WIDTH, y, Gui_AUTOMATIC,
L"Editors", gui_radiobutton_cb_editors, this, 0);
x += BUTTON_WIDTH + 5;
_button4 = GuiRadioButton_createShown (_holder, x, x + BUTTON_WIDTH + 30, y, Gui_AUTOMATIC,
L"Actions A-M", gui_radiobutton_cb_actionsAM, this, 0);
x += BUTTON_WIDTH + 35;
_button5 = GuiRadioButton_createShown (_holder, x, x + BUTTON_WIDTH + 30, y, Gui_AUTOMATIC,
L"Actions N-Z", gui_radiobutton_cb_actionsNZ, this, 0);
group = GuiRadioButton_getGroup(_button1);
GuiRadioButton_setGroup(_button2, group);
group = GuiRadioButton_getGroup(_button2);
GuiRadioButton_setGroup(_button3, group);
group = GuiRadioButton_getGroup(_button3);
GuiRadioButton_setGroup(_button4, group);
group = GuiRadioButton_getGroup(_button4);
GuiRadioButton_setGroup(_button5, group);
}
void structStringsEditor :: v_createChildren () {
list = GuiList_create (d_windowForm, 1, 0, Machine_getMenuBarHeight (), -70, true, NULL);
//GuiList_setDoubleClickCallback (list, gui_list_cb_doubleClick, this);
GuiObject_show (list);
text = GuiText_createShown (d_windowForm, 0, 0, Gui_AUTOMATIC, -40, 0);
GuiButton_createShown (d_windowForm, 10, 100, Gui_AUTOMATIC, -10, L"Insert", gui_button_cb_insert, this, GuiButton_DEFAULT);
GuiButton_createShown (d_windowForm, 110, 200, Gui_AUTOMATIC, -10, L"Append", gui_button_cb_append, this, 0);
GuiButton_createShown (d_windowForm, 210, 300, Gui_AUTOMATIC, -10, L"Replace", gui_button_cb_replace, this, 0);
GuiButton_createShown (d_windowForm, 310, 400, Gui_AUTOMATIC, -10, L"Remove", gui_button_cb_remove, this, 0);
}
void structStringsEditor :: v_createChildren () {
list = GuiList_create (d_windowForm, 1, 0, Machine_getMenuBarHeight (), -70, true, nullptr);
GuiList_setDoubleClickCallback (list, gui_list_cb_doubleClick, this);
GuiThing_show (list);
text = GuiText_createShown (d_windowForm, 0, 0, -40 - Gui_TEXTFIELD_HEIGHT, -40, 0);
GuiButton_createShown (d_windowForm, 10, 100, -10 - Gui_PUSHBUTTON_HEIGHT, -10, U"Insert", gui_button_cb_insert, this, GuiButton_DEFAULT);
GuiButton_createShown (d_windowForm, 110, 200, -10 - Gui_PUSHBUTTON_HEIGHT, -10, U"Append", gui_button_cb_append, this, 0);
GuiButton_createShown (d_windowForm, 210, 300, -10 - Gui_PUSHBUTTON_HEIGHT, -10, U"Replace", gui_button_cb_replace, this, 0);
GuiButton_createShown (d_windowForm, 310, 400, -10 - Gui_PUSHBUTTON_HEIGHT, -10, U"Remove", gui_button_cb_remove, this, 0);
}
void structOTMultiEditor :: v_createChildren () {
OTMultiEditor_Parent :: v_createChildren ();
#if defined (macintosh)
#define STRING_SPACING 8
#else
#define STRING_SPACING 2
#endif
int height = Machine_getTextHeight (), y = Machine_getMenuBarHeight () + 4;
GuiButton_createShown (d_windowForm, 4, 124, y, y + height,
U"Partial forms:", gui_button_cb_limit, this, GuiButton_DEFAULT);
form1Text = GuiText_createShown (d_windowForm,
124 + STRING_SPACING, 274 + STRING_SPACING, y, y + Gui_TEXTFIELD_HEIGHT, 0);
form2Text = GuiText_createShown (d_windowForm,
274 + 2 * STRING_SPACING, 424 + 2 * STRING_SPACING, y, y + Gui_TEXTFIELD_HEIGHT, 0);
}
void structTableEditor :: v_createChildren () {
Table table = static_cast<Table> (data);
int y = Machine_getMenuBarHeight () + 4, scrollWidth = Machine_getScrollBarWidth ();
our text = GuiText_createShown (our d_windowForm, 0, 0, y, y + Machine_getTextHeight (), 0);
GuiText_setChangedCallback (our text, gui_text_cb_changed, this);
y += Machine_getTextHeight () + 4;
our drawingArea = GuiDrawingArea_createShown (our d_windowForm, 0, - scrollWidth, y, - scrollWidth,
gui_drawingarea_cb_expose, gui_drawingarea_cb_click, NULL, gui_drawingarea_cb_resize, this, 0);
our verticalScrollBar = GuiScrollBar_createShown (our d_windowForm, - scrollWidth, 0, y, - scrollWidth,
1, table -> rows.size + 1, 1, 1, 1, 10, gui_cb_scrollVertical, this, 0);
our horizontalScrollBar = GuiScrollBar_createShown (our d_windowForm, 0, - scrollWidth, - scrollWidth, 0,
1, table -> numberOfColumns + 1, 1, 1, 1, 3, gui_cb_scrollHorizontal, this, GuiScrollBar_HORIZONTAL);
GuiDrawingArea_setSwipable (our drawingArea, our horizontalScrollBar, our verticalScrollBar);
}
void structButtonEditor :: v_createChildren () {
ButtonEditor_Parent :: v_createChildren ();
int x = 3, y = Machine_getMenuBarHeight () + 4;
GuiRadioGroup_begin ();
button1 = GuiRadioButton_createShown (our windowForm, x, x + BUTTON_WIDTH, y, y + Gui_RADIOBUTTON_HEIGHT,
U"Objects", gui_radiobutton_cb_objects, this, GuiRadioButton_SET);
x += BUTTON_WIDTH + 5;
button2 = GuiRadioButton_createShown (our windowForm, x, x + BUTTON_WIDTH, y, y + Gui_RADIOBUTTON_HEIGHT,
U"Picture", gui_radiobutton_cb_picture, this, 0);
x += BUTTON_WIDTH + 5;
button3 = GuiRadioButton_createShown (our windowForm, x, x + BUTTON_WIDTH, y, y + Gui_RADIOBUTTON_HEIGHT,
U"Editors", gui_radiobutton_cb_editors, this, 0);
x += BUTTON_WIDTH + 5;
button4 = GuiRadioButton_createShown (our windowForm, x, x + BUTTON_WIDTH + 30, y, y + Gui_RADIOBUTTON_HEIGHT,
U"Actions A-M", gui_radiobutton_cb_actionsAM, this, 0);
x += BUTTON_WIDTH + 35;
button5 = GuiRadioButton_createShown (our windowForm, x, x + BUTTON_WIDTH + 30, y, y + Gui_RADIOBUTTON_HEIGHT,
U"Actions N-Z", gui_radiobutton_cb_actionsNZ, this, 0);
GuiRadioGroup_end ();
}
void structManual :: v_createChildren () {
ManPages pages = (ManPages) our data; // has been installed here by Editor_init ()
our d_hasExtraRowOfTools = pages -> dynamic;
Manual_Parent :: v_createChildren ();
#if defined (macintosh)
#define STRING_SPACING 8
#else
#define STRING_SPACING 2
#endif
int height = Machine_getTextHeight (), y = Machine_getMenuBarHeight () + 4;
our homeButton = GuiButton_createShown (our d_windowForm, 104, 168, y, y + height,
U"Home", gui_button_cb_home, this, 0);
if (pages -> dynamic) {
our recordButton = GuiButton_createShown (our d_windowForm, 4, 79, y+height+8, y+height+8 + height,
U"Record", gui_button_cb_record, this, 0);
our playButton = GuiButton_createShown (our d_windowForm, 85, 160, y+height+8, y+height+8 + height,
U"Play", gui_button_cb_play, this, 0);
our publishButton = GuiButton_createShown (our d_windowForm, 166, 166 + 175, y+height+8, y+height+8 + height,
U"Copy last played to list", gui_button_cb_publish, this, 0);
}
GuiButton_createShown (our d_windowForm, 274, 274 + 69, y, y + height,
U"Search:", gui_button_cb_search, this, GuiButton_DEFAULT);
our searchText = GuiText_createShown (our d_windowForm, 274+69 + STRING_SPACING, 452 + STRING_SPACING - 2, y, y + Gui_TEXTFIELD_HEIGHT, 0);
}
void structRunnerMFC :: v_createChildren () {
d_drawingArea = GuiDrawingArea_createShown (d_windowForm, 0, 0, Machine_getMenuBarHeight (), 0,
gui_drawingarea_cb_expose, gui_drawingarea_cb_click, gui_drawingarea_cb_key, gui_drawingarea_cb_resize, this, 0);
}