← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/tcm/intrepid

« back to all changes in this revision

Viewing changes to src/ed/editstubs.c

  • Committer: Bazaar Package Importer
  • Author(s): Otavio Salvador
  • Date: 2003-07-03 20:08:21 UTC
  • Revision ID: james.westby@ubuntu.com-20030703200821-se4xtqx25e5miczi
Tags: upstream-2.20
Import upstream version 2.20

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/ed/editstubs.c
 
1
////////////////////////////////////////////////////////////////////////////////
 
2
//
 
3
// This file is part of Toolkit for Conceptual Modeling (TCM).
 
4
// (c) copyright 1995, Vrije Universiteit Amsterdam.
 
5
// Author: Frank Dehne (frank@cs.vu.nl).
 
6
//
 
7
// TCM is free software; you can redistribute it and/or modify
 
8
// it under the terms of the GNU General Public License as published by
 
9
// the Free Software Foundation; either version 2 of the License, or
 
10
// (at your option) any later version.
 
11
//
 
12
// TCM is distributed in the hope that it will be useful,
 
13
// but WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
15
// GNU General Public License for more details.
 
16
//
 
17
// You should have received a copy of the GNU General Public License
 
18
// along with TCM; if not, write to the Free Software
 
19
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
20
// 02111-1307, USA.
 
21
////////////////////////////////////////////////////////////////////////////////
 
22
#include "editstubs.h"
 
23
#include "inlineeditor.h"
 
24
#include "promptdialog.h"
 
25
#include "scaledialog.h"
 
26
#include "replacedialog.h"
 
27
#include "texteditdialog.h"
 
28
#include "fileselectiondialog.h"
 
29
#include "colorchooserdialog.h"
 
30
#include "ntogglelistdialog.h"
 
31
#include "fontchooserdialog.h"
 
32
#include "printer.h"
 
33
#include "document.h"
 
34
#include "helper.h"
 
35
#include "viewer.h"
 
36
#include "grid.h"
 
37
#include "menu.h"
 
38
#include "mstring.h"
 
39
#include <Xm/ToggleB.h>
 
40
#include <Xm/Text.h>
 
41
 
 
42
void EditStubs::HelpCB(Widget w, XtPointer cd, XtPointer) {
 
43
        Helper::HelpTopicType tp;
 
44
        XtVaGetValues(w, XmNuserData, &tp, 0);
 
45
        ((Helper *)cd)->Help(tp);
 
46
}
 
47
 
 
48
void EditStubs::LoadOKCB(Widget, XtPointer clientData, XtPointer) {
 
49
        Document *doc = (Document *)clientData;
 
50
        string fbuf;
 
51
        doc->GetFileSelectionDialog()->GetFileName(&fbuf);
 
52
        doc->LoadSave(&fbuf);
 
53
        doc->SetFSDir();
 
54
}
 
55
 
 
56
void EditStubs::CancelFSCB(Widget, XtPointer clientData, XtPointer) {
 
57
        ((Document *)clientData)->SetFSDir();
 
58
}
 
59
 
 
60
void EditStubs::SaveAsOKCB(Widget, XtPointer clientData, XtPointer) {
 
61
        Document *doc = (Document *)clientData;
 
62
        string fbuf;
 
63
        doc->GetFileSelectionDialog()->GetFileName(&fbuf);
 
64
        doc->DoSaveAs(&fbuf);
 
65
        doc->SetFSDir();
 
66
}
 
67
 
 
68
void EditStubs::AnnotationOKCB(Widget, XtPointer clientData, XtPointer) {
 
69
        Document *doc = (Document *)clientData;
 
70
        if (!check(doc))
 
71
                return;
 
72
        string t;
 
73
        doc->GetDocAnnotationDialog()->GetTextString(&t);
 
74
        doc->SetAnnotation(&t);
 
75
}
 
76
 
 
77
void EditStubs::SetModifiedCB(Widget w, XtPointer cd, XtPointer) {
 
78
        ((Document *)cd)->SetModified(XmToggleButtonGetState(w));
 
79
}
 
80
 
 
81
void EditStubs::SetAutoResizeCB(Widget w, XtPointer cd, XtPointer) {
 
82
        Viewer *v = (Viewer *)cd;
 
83
        bool s = XmToggleButtonGetState(w);
 
84
        v->SetAutoResize(s);
 
85
        DrawWindow *mainwindow = v->GetMainWindow();
 
86
        mainwindow->SetAutoResize(s);
 
87
        Menu *menu = mainwindow->GetViewMenu();
 
88
        if (menu)
 
89
                Menu::SetChildToggleState(menu->GetWidget(), Menu::PULLDOWN, 
 
90
                                   "Autoresizing", s);
 
91
}
 
92
 
 
93
 
 
94
void EditStubs::SetInlineEditCB(Widget w, XtPointer cd, XtPointer) {
 
95
        Viewer *v = (Viewer *)cd;
 
96
        bool s = XmToggleButtonGetState(w);
 
97
        v->SetInlineEdit(s);
 
98
        DrawWindow *mainwindow = v->GetMainWindow();
 
99
        mainwindow->SetInlineEdit(s);
 
100
        Menu *menu = mainwindow->GetViewMenu();
 
101
        if (menu)
 
102
                Menu::SetChildToggleState(menu->GetWidget(), Menu::PULLDOWN,
 
103
                                   "In-line Editor", s);
 
104
}
 
105
 
 
106
 
 
107
void EditStubs::SetHierarchicCB(Widget w, XtPointer cd, XtPointer) {
 
108
        Document *d = (Document *)cd;
 
109
        bool s = XmToggleButtonGetState(w);
 
110
        if ( ! d->AllowHierarchic() )
 
111
                s = False;
 
112
        d->SetHierarchic(s);
 
113
//      DrawWindow *mainwindow = d->GetViewer()->GetMainWindow();
 
114
//      mainwindow->SetHierarchic(s);
 
115
//      Menu *menu = mainwindow->GetDocumentMenu();
 
116
//      if ( menu )
 
117
//              Menu::SetChildToggleState(menu->GetWidget(),
 
118
//                      Menu::PULLDOWN, "Hierarchic Document", s);
 
119
//      Menu *menu = mainwindow->GetViewMenu();
 
120
//      if ( menu )
 
121
//              // enable / disable Zoom in/out
 
122
}
 
123
 
 
124
 
 
125
void EditStubs::ChangeNameCB(Widget w, XtPointer cd, XtPointer) {
 
126
        char *text = XmTextGetString(w);
 
127
        string name = text;
 
128
        ((Document *)cd)->NewName(&name);
 
129
        XtFree(text);
 
130
}
 
131
 
 
132
void EditStubs::ChangeDirCB(Widget w, XtPointer cd, XtPointer) {
 
133
        char *text = XmTextGetString(w);
 
134
        string name = text;
 
135
        ((Document *)cd)->NewDir(&name);
 
136
        XtFree(text);
 
137
}
 
138
 
 
139
void EditStubs::NewCB(Widget, XtPointer cd, XtPointer) {
 
140
        ((Document *)cd)->New();
 
141
}
 
142
 
 
143
void EditStubs::LoadCB(Widget, XtPointer cd, XtPointer) {
 
144
        ((Document *)cd)->Load();
 
145
}
 
146
 
 
147
void EditStubs::AppendCB(Widget, XtPointer cd, XtPointer) {
 
148
        ((Document *)cd)->Append();
 
149
}
 
150
 
 
151
void EditStubs::SaveCB(Widget, XtPointer cd, XtPointer) {
 
152
        ((Document *)cd)->Save();
 
153
}
 
154
 
 
155
void EditStubs::SaveAsCB(Widget, XtPointer cd, XtPointer) {
 
156
        ((Document *)cd)->SaveAs();
 
157
}
 
158
 
 
159
void EditStubs::SaveSelectionAsCB(Widget, XtPointer cd, XtPointer) {
 
160
        ((Document *)cd)->SaveSelectionAs();
 
161
}
 
162
 
 
163
void EditStubs::QuitCB(Widget, XtPointer cd, XtPointer) {
 
164
        ((Document *)cd)->Quit();
 
165
}
 
166
 
 
167
void EditStubs::FindCB(Widget, XtPointer cd, XtPointer) {
 
168
        ((Document *)cd)->Find();
 
169
}
 
170
 
 
171
void EditStubs::ReplaceCB(Widget, XtPointer cd, XtPointer) {
 
172
        ((Document *)cd)->Replace();
 
173
}
 
174
 
 
175
void EditStubs::DocumentInfoCB(Widget, XtPointer cd, XtPointer) {
 
176
        ((Document *)cd)->ShowDocInfo();
 
177
}
 
178
 
 
179
void EditStubs::DocumentSummaryCB(Widget, XtPointer cd, XtPointer) {
 
180
        ((Document *)cd)->ShowSummary();
 
181
}
 
182
 
 
183
void EditStubs::DocumentSourceCB(Widget, XtPointer cd, XtPointer) {
 
184
        ((Document *)cd)->ShowSource();
 
185
}
 
186
 
 
187
void EditStubs::DocumentSourceOKCB(Widget, XtPointer cd, XtPointer) {
 
188
        ((Document *)cd)->SaveSource();
 
189
}
 
190
 
 
191
void EditStubs::CheckDocumentCB(Widget, XtPointer cd, XtPointer) {
 
192
        ((Document *)cd)->CheckDocument();
 
193
}
 
194
 
 
195
void EditStubs::AnnotateDocumentCB(Widget, XtPointer cd, XtPointer) {
 
196
        ((Document *)cd)->Annotate();
 
197
}
 
198
 
 
199
void EditStubs::ModelCheckPropertyCB(Widget, XtPointer cd, XtPointer) { 
 
200
        ((Document *)cd)->ModelCheckProperty();                        
 
201
} 
 
202
 
 
203
void EditStubs::ClearTraceCB(Widget, XtPointer cd, XtPointer) {
 
204
        ((Document *)cd)->ClearTrace();
 
205
}
 
206
 
 
207
 
 
208
void EditStubs::MoveCB(Widget w, XtPointer cd, XtPointer) {
 
209
        int num;
 
210
        XtVaGetValues(w, XmNuserData, &num, 0);
 
211
        ((Document *)cd)->Move((Document::MoveType)num);
 
212
}
 
213
 
 
214
void EditStubs::MakeLargerCB(Widget, XtPointer cd, XtPointer) {
 
215
        ((Scaler *)cd)->MakeLarger();
 
216
}
 
217
 
 
218
void EditStubs::MakeSmallerCB(Widget, XtPointer cd, XtPointer) {
 
219
        ((Scaler *)cd)->MakeSmaller();
 
220
}
 
221
 
 
222
void EditStubs::ScaleFactorCB(Widget, XtPointer cd, XtPointer) {
 
223
        ((Scaler *)cd)->ScaleFactor();
 
224
}
 
225
 
 
226
void EditStubs::NormalScaleCB(Widget, XtPointer cd, XtPointer) {
 
227
        ((Scaler *)cd)->NormalScale();
 
228
}
 
229
 
 
230
void EditStubs::WholeDrawingCB(Widget, XtPointer cd, XtPointer) {
 
231
        ((Scaler *)cd)->WholeDrawing();
 
232
}
 
233
 
 
234
void EditStubs::ScaleFactorOKCB(Widget, XtPointer clientData, XtPointer) {
 
235
        Scaler *z = (Scaler *)clientData;
 
236
        z->SetScaleFactor((double)z->GetScaleDialog()->GetScaleValue()/10);
 
237
}
 
238
 
 
239
void EditStubs::FindAllCB(Widget, XtPointer clientData, XtPointer) {
 
240
        Document *doc = (Document *)clientData;
 
241
        string s;
 
242
        FindDialog *f = doc->GetFindDialog();
 
243
        f->GetTextString(&s);
 
244
        doc->FindAll(&s, f->SensitiveOn(), f->SubstringOn(), f->NameOnlyOn());
 
245
}
 
246
 
 
247
void EditStubs::FindNextCB(Widget, XtPointer clientData, XtPointer) {
 
248
        Document *doc = (Document *)clientData;
 
249
        string s;
 
250
        FindDialog *f = doc->GetFindDialog();
 
251
        f->GetTextString(&s);
 
252
        doc->FindNext(&s, f->SensitiveOn(), f->SubstringOn(), f->NameOnlyOn());
 
253
}
 
254
 
 
255
void EditStubs::ReplaceFindCB(Widget, XtPointer clientData, XtPointer) {
 
256
        Document *doc = (Document *)clientData;
 
257
        string s;
 
258
        ReplaceDialog *r = doc->GetReplaceDialog();
 
259
        r->GetTextString(&s);
 
260
        doc->FindNext(&s, r->SensitiveOn(), r->SubstringOn(), r->NameOnlyOn());
 
261
}
 
262
 
 
263
void EditStubs::ReplaceNextCB(Widget, XtPointer clientData, XtPointer) {
 
264
        Document *doc = (Document *)clientData;
 
265
        string s1, s2;
 
266
        ReplaceDialog *r = doc->GetReplaceDialog();
 
267
        r->GetTextString(&s1);
 
268
        r->GetReplaceText(&s2);
 
269
        doc->ReplaceNext(&s1, &s2, r->SensitiveOn(), r->SubstringOn(), 
 
270
                r->NameOnlyOn());
 
271
}
 
272
 
 
273
void EditStubs::ReplaceAllCB(Widget, XtPointer clientData, XtPointer) {
 
274
        Document *doc = (Document *)clientData;
 
275
        string s1, s2;
 
276
        ReplaceDialog *r = doc->GetReplaceDialog();
 
277
        r->GetTextString(&s1);
 
278
        r->GetReplaceText(&s2);
 
279
        doc->ReplaceAll(&s1, &s2, r->SensitiveOn(), r->SubstringOn(), 
 
280
                r->NameOnlyOn());
 
281
}
 
282
 
 
283
void EditStubs::SaveAsPSCB(Widget, XtPointer clientData, XtPointer) {
 
284
        Printer *p = (Printer *)clientData;
 
285
        string s;
 
286
        p->GetFileSelectionDialog()->GetFileName(&s);
 
287
        p->DoSaveAsPS(&s);
 
288
}
 
289
 
 
290
void EditStubs::SaveAsEPSCB(Widget, XtPointer clientData, XtPointer) {
 
291
        Printer *p = (Printer *)clientData;
 
292
        string s;
 
293
        p->GetFileSelectionDialog()->GetFileName(&s);
 
294
        p->DoSaveAsEPS(&s);
 
295
}
 
296
 
 
297
void EditStubs::SaveAsFigTexCB(Widget, XtPointer clientData, XtPointer) {
 
298
        Printer *p = (Printer *)clientData;
 
299
        string s;
 
300
        p->GetFileSelectionDialog()->GetFileName(&s);
 
301
        p->DoSaveAsFigTex(&s);
 
302
}
 
303
 
 
304
void EditStubs::SaveAsPNGCB(Widget, XtPointer clientData, XtPointer) {
 
305
        Printer *p = (Printer *)clientData;
 
306
        string s;
 
307
        p->GetFileSelectionDialog()->GetFileName(&s);
 
308
        p->DoSaveAsPNG(&s);
 
309
}
 
310
 
 
311
void EditStubs::SaveAsFigPSCB(Widget, XtPointer clientData, XtPointer) {
 
312
        Printer *p = (Printer *)clientData;
 
313
        string s;
 
314
        p->GetFileSelectionDialog()->GetFileName(&s);
 
315
        p->DoSaveAsFigPS(&s);
 
316
}
 
317
 
 
318
void EditStubs::SetNameCB(Widget, XtPointer clientData, XtPointer) {
 
319
        Printer *p = (Printer *)clientData;
 
320
        PromptDialog *dialog = p->GetPromptDialog();
 
321
        string s;
 
322
        dialog->GetTextString(&s);
 
323
        p->SetName(&s);
 
324
}
 
325
 
 
326
void EditStubs::SetPrintCommandCB(Widget, XtPointer clientData, XtPointer) {
 
327
        Printer *p = (Printer *)clientData;
 
328
        PromptDialog *dialog = p->GetPromptDialog();
 
329
        string s;
 
330
        dialog->GetTextString(&s);
 
331
        p->SetPrintCommand(&s);
 
332
}
 
333
 
 
334
void EditStubs::SetPreviewCommandCB(Widget, XtPointer clientData, XtPointer) {
 
335
        Printer *p = (Printer *)clientData;
 
336
        PromptDialog *dialog = p->GetPromptDialog();
 
337
        string s;
 
338
        dialog->GetTextString(&s);
 
339
        p->SetPreviewCommand(&s);
 
340
}
 
341
 
 
342
void EditStubs::SetCopiesCB(Widget, XtPointer clientData, XtPointer) {
 
343
        Printer *p = (Printer *)clientData;
 
344
        p->SetCopies(p->GetScaleDialog()->GetScaleValue());
 
345
}
 
346
 
 
347
void EditStubs::ShowPageBoundaryCB(Widget w, XtPointer cd, XtPointer) {
 
348
        ((Printer *)cd)->SetShowPageBoundary(XmToggleButtonGetState(w));
 
349
}
 
350
 
 
351
void EditStubs::PageOrientationCB(Widget w, XtPointer cd, XtPointer) {
 
352
        if (XmToggleButtonGetState(w)) {
 
353
                int num;
 
354
                XtVaGetValues(w, XmNuserData, &num, 0);
 
355
                ((Printer *)cd)->SetPageOrientation(num/2);
 
356
        }
 
357
}
 
358
 
 
359
void EditStubs::ShowDocumentInfoCB(Widget w, XtPointer cd, XtPointer) {
 
360
        if (XmToggleButtonGetState(w)) {
 
361
                int num;
 
362
                XtVaGetValues(w, XmNuserData, &num, 0);
 
363
                ((Printer *)cd)->ShowInfo(num/2);
 
364
        }
 
365
}
 
366
 
 
367
void EditStubs::ShowPageNumbersCB(Widget w, XtPointer cd, XtPointer) {
 
368
        ((Printer *)cd)->SetPageNumbering(XmToggleButtonGetState(w));
 
369
}
 
370
 
 
371
void EditStubs::PrintCB(Widget, XtPointer cd, XtPointer) {
 
372
        ((Printer *)cd)->Print();
 
373
}
 
374
 
 
375
void EditStubs::ShowPrintPreviewCB(Widget, XtPointer cd, XtPointer) {
 
376
        ((Printer *)cd)->ShowPrintPreview();
 
377
}
 
378
 
 
379
void EditStubs::ExportAsCB(Widget, XtPointer cd, XtPointer) {
 
380
        ((Printer *)cd)->ExportAs();
 
381
}
 
382
 
 
383
void EditStubs::ShowPrinterQueueCB(Widget, XtPointer cd, XtPointer) {
 
384
        ((Printer *)cd)->ShowPrinterQueue();
 
385
}
 
386
 
 
387
void EditStubs::PrinterNameCB(Widget, XtPointer cd, XtPointer) {
 
388
        ((Printer *)cd)->Name();
 
389
}
 
390
 
 
391
void EditStubs::PrinterCopiesCB(Widget, XtPointer cd, XtPointer) {
 
392
        ((Printer *)cd)->Copies();
 
393
}
 
394
 
 
395
void EditStubs::PrintCommandCB(Widget, XtPointer cd, XtPointer) {
 
396
        ((Printer *)cd)->PrintCommand();
 
397
}
 
398
 
 
399
void EditStubs::PrinterQueueCommandCB(Widget, XtPointer cd, XtPointer) {
 
400
        ((Printer *)cd)->PrinterQueueCommand();
 
401
}
 
402
 
 
403
void EditStubs::PrinterRemoveCommandCB(Widget, XtPointer cd, XtPointer) {
 
404
        ((Printer *)cd)->PrinterRemoveCommand();
 
405
}
 
406
 
 
407
void EditStubs::PreviewCommandCB(Widget, XtPointer cd, XtPointer) {
 
408
        ((Printer *)cd)->PreviewCommand();
 
409
}
 
410
 
 
411
void EditStubs::SetPrintColorsCB(Widget w, XtPointer cd, XtPointer) {
 
412
        ((Printer *)cd)->SetPrintColors(XmToggleButtonGetState(w));
 
413
}
 
414
 
 
415
void EditStubs::SetDuplexCB(Widget w, XtPointer cd, XtPointer) {
 
416
        ((Printer *)cd)->SetDuplex(XmToggleButtonGetState(w));
 
417
}
 
418
 
 
419
void EditStubs::SetTumbleCB(Widget w, XtPointer cd, XtPointer) {
 
420
        ((Printer *)cd)->SetTumble(XmToggleButtonGetState(w));
 
421
}
 
422
 
 
423
void EditStubs::BannerPageCB(Widget w, XtPointer cd, XtPointer) {
 
424
        if (XmToggleButtonGetState(w)) {
 
425
                int num;
 
426
                XtVaGetValues(w, XmNuserData, &num, 0);
 
427
                ((Printer *)cd)->SetBannerPage(num/2);
 
428
        }
 
429
}
 
430
 
 
431
void EditStubs::PageSizeCB(Widget w, XtPointer cd, XtPointer) {
 
432
        if (XmToggleButtonGetState(w)) {
 
433
                // get menu item label and look to which pagesize
 
434
                // it corresponds
 
435
                XmString xms;
 
436
                xms = CreateXmString("");
 
437
                XtVaGetValues(w, XmNlabelString, &xms, 0);
 
438
                char *txt;
 
439
                if (XmStringGetLtoR(xms, XmFONTLIST_DEFAULT_TAG, &txt)) {
 
440
                        string s = txt;
 
441
                        PageSize::Type t = PageSize::Substring2Type(&s);
 
442
                        ((Printer *)cd)->SetPageSize(t);
 
443
                        XtFree(txt);
 
444
                }
 
445
                XmStringFree(xms);
 
446
        }
 
447
}
 
448
 
 
449
void EditStubs::DefaultLineWidthCB(Widget, XtPointer cd, XtPointer) {
 
450
        ((Viewer *) cd)->DefaultLineWidth();
 
451
}
 
452
 
 
453
void EditStubs::DefaultLineStyleCB(Widget, XtPointer cd, XtPointer) {
 
454
        ((Viewer *) cd)->DefaultLineStyle();
 
455
}
 
456
 
 
457
void EditStubs::UpdateLineColorCB(Widget, XtPointer cd, XtPointer) {
 
458
        ((Viewer *) cd)->UpdateLineColor();
 
459
}
 
460
 
 
461
void EditStubs::DefaultLineColorCB(Widget, XtPointer cd, XtPointer) {
 
462
        ((Viewer *) cd)->DefaultLineColor();
 
463
}
 
464
 
 
465
void EditStubs::UpdateTextColorCB(Widget, XtPointer cd, XtPointer) {
 
466
        ((Viewer *) cd)->UpdateTextColor();
 
467
}
 
468
 
 
469
void EditStubs::DefaultTextColorCB(Widget, XtPointer cd, XtPointer) {
 
470
        ((Viewer *) cd)->DefaultTextColor();
 
471
}
 
472
 
 
473
void EditStubs::UpdateFillColorCB(Widget, XtPointer cd, XtPointer) {
 
474
        ((Viewer *) cd)->UpdateFillColor();
 
475
}
 
476
 
 
477
void EditStubs::DefaultFillColorCB(Widget, XtPointer cd, XtPointer) {
 
478
        ((Viewer *) cd)->DefaultFillColor();
 
479
}
 
480
 
 
481
void EditStubs::UpdateLineWidthCB(Widget, XtPointer cd, XtPointer) {
 
482
        ((Viewer *) cd)->UpdateLineWidth();
 
483
}
 
484
 
 
485
void EditStubs::UpdateLineStyleCB(Widget, XtPointer cd, XtPointer) {
 
486
        ((Viewer *) cd)->UpdateLineStyle();
 
487
}
 
488
 
 
489
void EditStubs::DefaultLineColorOKCB(Widget, XtPointer cd, XtPointer) {
 
490
        Viewer *v = (Viewer *)cd;
 
491
        string s;
 
492
        v->GetColorChooserDialog()->GetTextString(&s);
 
493
        v->SetDefaultLineColor(&s);
 
494
}
 
495
 
 
496
void EditStubs::UpdateLineColorOKCB(Widget, XtPointer cd, XtPointer) {
 
497
        Viewer *v = (Viewer *)cd;
 
498
        string s;
 
499
        v->GetColorChooserDialog()->GetTextString(&s);
 
500
        v->UpdateLineColorSelection(&s);
 
501
}
 
502
 
 
503
void EditStubs::DefaultTextColorOKCB(Widget, XtPointer cd, XtPointer) {
 
504
        Viewer *v = (Viewer *)cd;
 
505
        string s;
 
506
        v->GetColorChooserDialog()->GetTextString(&s);
 
507
        v->SetDefaultTextColor(&s);
 
508
}
 
509
 
 
510
void EditStubs::UpdateTextColorOKCB(Widget, XtPointer cd, XtPointer) {
 
511
        Viewer *v = (Viewer *)cd;
 
512
        string s;
 
513
        v->GetColorChooserDialog()->GetTextString(&s);
 
514
        v->UpdateTextColorSelection(&s);
 
515
}
 
516
 
 
517
void EditStubs::DefaultFillColorOKCB(Widget, XtPointer cd, XtPointer) {
 
518
        Viewer *v = (Viewer *)cd;
 
519
        string s;
 
520
        v->GetColorChooserDialog()->GetTextString(&s);
 
521
        bool b = v->GetColorChooserDialog()->FillToggleOn();
 
522
        if (b)
 
523
                v->SetDefaultFillStyle(FillStyle::FILLED);
 
524
        else
 
525
                v->SetDefaultFillStyle(FillStyle::UNFILLED);
 
526
        v->SetDefaultFillColor(&s);
 
527
}
 
528
 
 
529
void EditStubs::UpdateFillColorOKCB(Widget, XtPointer cd, XtPointer) {
 
530
        Viewer *v = (Viewer *)cd;
 
531
        string s;
 
532
        v->GetColorChooserDialog()->GetTextString(&s);
 
533
        FillStyle::Type f;
 
534
        if (v->GetColorChooserDialog()->FillToggleOn()) {
 
535
                f = FillStyle::FILLED;
 
536
        }
 
537
        else {
 
538
                f = FillStyle::UNFILLED;
 
539
        }
 
540
        v->UpdateFillColorSelection(&s, f);
 
541
}
 
542
 
 
543
void EditStubs::DefaultLineColorDefaultCB(Widget, XtPointer cd, XtPointer) {
 
544
        ((Viewer *) cd)->ShowConfigLineColor();
 
545
}
 
546
 
 
547
void EditStubs::UpdateLineColorDefaultCB(Widget, XtPointer cd, XtPointer) {
 
548
        ((Viewer *) cd)->ShowDefaultLineColor();
 
549
}
 
550
 
 
551
void EditStubs::DefaultTextColorDefaultCB(Widget, XtPointer cd, XtPointer) {
 
552
        ((Viewer *) cd)->ShowConfigTextColor();
 
553
}
 
554
 
 
555
void EditStubs::UpdateTextColorDefaultCB(Widget, XtPointer cd, XtPointer) {
 
556
        ((Viewer *) cd)->ShowDefaultTextColor();
 
557
}
 
558
 
 
559
void EditStubs::DefaultFillColorDefaultCB(Widget, XtPointer cd, XtPointer) {
 
560
        ((Viewer *) cd)->ShowConfigFillColor();
 
561
}
 
562
 
 
563
void EditStubs::UpdateFillColorDefaultCB(Widget, XtPointer cd, XtPointer) {
 
564
        ((Viewer *) cd)->ShowDefaultFillColor();
 
565
}
 
566
 
 
567
void EditStubs::DefaultLineWidthOKCB(Widget, XtPointer cd, XtPointer) {
 
568
        Viewer *v = (Viewer *)cd;
 
569
        NToggleListDialog *d = v->GetLineWidthDialog();
 
570
        int n = d->GetValue(0);
 
571
        string text;
 
572
        d->GetItem(0, n, &text);
 
573
        int wd = text.toint();
 
574
        v->SetDefaultLineWidth(wd);
 
575
}
 
576
 
 
577
void EditStubs::DefaultLineWidthDefaultCB(Widget, XtPointer cd, XtPointer) {
 
578
        ((Viewer *) cd)->ShowConfigLineWidth();
 
579
}
 
580
 
 
581
void EditStubs::UpdateLineWidthOKCB(Widget, XtPointer cd, XtPointer) {
 
582
        Viewer *v = (Viewer *)cd;
 
583
        NToggleListDialog *d = v->GetLineWidthDialog();
 
584
        int n = d->GetValue(0);
 
585
        string text;
 
586
        d->GetItem(0, n, &text);
 
587
        int wd = text.toint();
 
588
        v->UpdateLineWidthSelection(wd);
 
589
}
 
590
 
 
591
void EditStubs::UpdateLineWidthDefaultCB(Widget, XtPointer cd, XtPointer) {
 
592
        ((Viewer *) cd)->ShowDefaultLineWidth();
 
593
}
 
594
 
 
595
void EditStubs::DefaultLineStyleOKCB(Widget, XtPointer cd, XtPointer) {
 
596
        Viewer *v = (Viewer *)cd;
 
597
        NToggleListDialog *d = v->GetLineStyleDialog();
 
598
        int n = d->GetValue(0);
 
599
        string text;
 
600
        d->GetItem(0, n, &text);
 
601
        v->SetDefaultLineStyle(LineStyle::String2Type(&text));
 
602
}
 
603
 
 
604
void EditStubs::DefaultLineStyleDefaultCB(Widget, XtPointer cd, XtPointer) {
 
605
        ((Viewer *) cd)->ShowConfigLineStyle();
 
606
}
 
607
 
 
608
void EditStubs::UpdateLineStyleOKCB(Widget, XtPointer cd, XtPointer) {
 
609
        Viewer *v = (Viewer *)cd;
 
610
        NToggleListDialog *d = v->GetLineStyleDialog();
 
611
        int n = d->GetValue(0);
 
612
        string text;
 
613
        d->GetItem(0, n, &text);
 
614
        v->UpdateLineStyleSelection(LineStyle::String2Type(&text));
 
615
}
 
616
 
 
617
void EditStubs::UpdateLineStyleDefaultCB(Widget, XtPointer cd, XtPointer) {
 
618
        ((Viewer *) cd)->ShowDefaultLineStyle();
 
619
}
 
620
 
 
621
void EditStubs::DefaultFontCB(Widget, XtPointer cd, XtPointer) {
 
622
        ((Viewer *) cd)->DefaultFont();
 
623
}
 
624
 
 
625
void EditStubs::UpdateFontCB(Widget, XtPointer cd, XtPointer) {
 
626
        ((Viewer *) cd)->UpdateFont();
 
627
}
 
628
 
 
629
void EditStubs::DefaultFontOKCB(Widget, XtPointer cd, XtPointer) {
 
630
        Viewer *v = (Viewer *)cd;
 
631
        FontChooserDialog *d = v->GetFontChooserDialog();
 
632
        v->SetDefaultFontAttributes(
 
633
                d->GetFamily(), d->GetStyle(), d->GetSize());
 
634
}
 
635
 
 
636
void EditStubs::UpdateFontOKCB(Widget, XtPointer cd, XtPointer) {
 
637
        Viewer *v = (Viewer *)cd;
 
638
        FontChooserDialog *d = v->GetFontChooserDialog();
 
639
        // -1 means that this font attribute should not be updated.
 
640
        int f = d->GetOptionValue(0) > 0 ? d->GetFamily() : -1;
 
641
        int s = d->GetOptionValue(1) > 0 ? d->GetStyle() : -1;
 
642
        int p = d->GetOptionValue(2) > 0 ? d->GetSize() : -1;
 
643
        v->UpdateFontSelection(f, s, p);
 
644
}
 
645
 
 
646
void EditStubs::DefaultFontDefaultCB(Widget, XtPointer cd, XtPointer) {
 
647
        ((Viewer *) cd)->ShowConfigFont();
 
648
}
 
649
 
 
650
void EditStubs::UpdateFontDefaultCB(Widget, XtPointer cd, XtPointer) {
 
651
        ((Viewer *) cd)->ShowDefaultFont();
 
652
}
 
653
 
 
654
void EditStubs::DefaultTextAlignmentCB(Widget, XtPointer cd, XtPointer) {
 
655
        ((Viewer *) cd)->DefaultTextAlignment();
 
656
}
 
657
 
 
658
void EditStubs::DefaultTextAlignmentOKCB(Widget, XtPointer cd, XtPointer) {
 
659
        Viewer *v = (Viewer *)cd;
 
660
        NToggleListDialog *d = v->GetTextAlignmentDialog();
 
661
        int n = d->GetValue(0);
 
662
        string text;
 
663
        d->GetItem(0, n, &text);
 
664
        v->SetDefaultTextAlignment(TextAlign::String2Type(&text));
 
665
}
 
666
 
 
667
void EditStubs::DefaultTextAlignmentDefaultCB(Widget, XtPointer cd, XtPointer) {
 
668
        ((Viewer *) cd)->ShowConfigTextAlignment();
 
669
}
 
670
 
 
671
void EditStubs::UpdateTextAlignmentCB(Widget, XtPointer cd, XtPointer) {
 
672
        ((Viewer *) cd)->UpdateTextAlignment();
 
673
}
 
674
 
 
675
void EditStubs::UpdateTextAlignmentOKCB(Widget, XtPointer cd, XtPointer) {
 
676
        Viewer *v = (Viewer *)cd;
 
677
        NToggleListDialog *d = v->GetTextAlignmentDialog();
 
678
        int n = d->GetValue(0);
 
679
        string text;
 
680
        d->GetItem(0, n, &text);
 
681
        v->UpdateTextAlignmentSelection(TextAlign::String2Type(&text));
 
682
}
 
683
 
 
684
void EditStubs::UpdateTextAlignmentDefaultCB(Widget, XtPointer cd, XtPointer) {
 
685
        ((Viewer *) cd)->ShowDefaultTextAlignment();
 
686
}
 
687
 
 
688
void EditStubs::UpdateFSFilesCB(Widget, XtPointer cd, XtPointer) {
 
689
        ((Printer *)cd)->UpdateFSFiles();
 
690
}
 
691
 
 
692
void EditStubs::UpdateTextCB(Widget, XtPointer cd, XtPointer cbs) {
 
693
        XmAnyCallbackStruct *a = (XmAnyCallbackStruct *)cbs;
 
694
        int reason = a->reason;
 
695
        InlineEditor *e = (InlineEditor *)cd;
 
696
        if (!check(e))
 
697
                return;
 
698
        if (reason == XmCR_OK) {
 
699
                string t;
 
700
                e->GetTextEditDialog()->GetTextString(&t);
 
701
                e->StopWindow(&t);
 
702
        }
 
703
        else e->CancelWindow();
 
704
}
 
705
 
 
706
void EditStubs::GridSizeOKCB(Widget, XtPointer cd, XtPointer) {
 
707
        Grid *g = (Grid *)cd;
 
708
        g->SetGridSize(g->GetScaleDialog()->GetScaleValue());
 
709
}
 
710
 
 
711
void EditStubs::PointDistanceOKCB(Widget, XtPointer cd, XtPointer) {
 
712
        Grid *g = (Grid *)cd;
 
713
        g->SetPointDistance(g->GetScaleDialog()->GetScaleValue());
 
714
}
 
715
 
 
716
void EditStubs::PointSnappingCB(Widget w, XtPointer cd, XtPointer) {
 
717
        ((Grid *)cd)->SetSnap(XmToggleButtonGetState(w));
 
718
}
 
719
 
 
720
void EditStubs::PointDistanceCB(Widget, XtPointer cd, XtPointer) {
 
721
        ((Grid *)cd)->PointDistance();
 
722
}
 
723
 
 
724
void EditStubs::ShowGridCB(Widget w, XtPointer cd, XtPointer) {
 
725
        ((Grid *)cd)->SetShowGrid(XmToggleButtonGetState(w));
 
726
}
 
727
 
 
728
void EditStubs::GridSizeCB(Widget, XtPointer cd, XtPointer) {
 
729
        ((Grid *)cd)->GridSize();
 
730
}
 
731
 
 
732
void EditStubs::UndoCB(Widget, XtPointer cd, XtPointer) {
 
733
        ((Viewer *)cd)->Undo();
 
734
}
 
735
 
 
736
void EditStubs::RedoCB(Widget, XtPointer cd, XtPointer) {
 
737
        ((Viewer *)cd)->Redo();
 
738
}
 
739
 
 
740
void EditStubs::RefreshCB(Widget, XtPointer cd, XtPointer) {
 
741
        ((Viewer *)cd)->Refresh();
 
742
}
 
743