1 /*------------------------------------------------------------\
2 | |
3 | This file is part of the Alliance CAD System Copyright |
4 | (C) Laboratoire LIP6 - D�partement ASIM Universite P&M Curie|
5 | |
6 | Home page : http://www-asim.lip6.fr/alliance/ |
7 | E-mail : mailto:alliance-users@asim.lip6.fr |
8 | |
9 | This progam is free software; you can redistribute it |
10 | and/or modify it under the terms of the GNU General Public |
11 | License as published by the Free Software Foundation; |
12 | either version 2 of the License, or (at your option) any |
13 | later version. |
14 | |
15 | Alliance VLSI CAD System is distributed in the hope that |
16 | it will be useful, but WITHOUT ANY WARRANTY; |
17 | without even the implied warranty of MERCHANTABILITY or |
18 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General |
19 | Public License for more details. |
20 | |
21 | You should have received a copy of the GNU General Public |
22 | License along with the GNU C Library; see the file COPYING. |
23 | If not, write to the Free Software Foundation, Inc., |
24 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
25 | |
26 \------------------------------------------------------------*/
27
28 /*------------------------------------------------------------\
29 | |
30 | Tool : GRAAL |
31 | |
32 | File : Panel.c |
33 | |
34 | Author : Jacomme Ludovic |
35 | |
36 | Date : 28.03.95 |
37 | |
38 \------------------------------------------------------------*/
39 /*------------------------------------------------------------\
40 | |
41 | Include Files |
42 | |
43 \------------------------------------------------------------*/
44
45 # include <stdio.h>
46 # include <string.h>
47 # include <Xm/Xm.h>
48 # include <Xm/Text.h>
49 # include <Xm/FileSB.h>
50 # include <Xm/SelectioB.h>
51 # include <Xm/PushBG.h>
52
53 # include "mut.h"
54 # include "mph.h"
55 # include "rds.h"
56 # include "rpr.h"
57 # include "rfm.h"
58 # include "GRM.h"
59 # include "GMX.h"
60 # include "GTB.h"
61 # include "GSB.h"
62 # include "GMT.h"
63 # include "GMV.h"
64
65 # include "GMT_panel.h"
66 # include "GMT_message.h"
67 # include "GMT_dialog.h"
68 # include "GMT_tools.h"
69 # include "GMT_druc.h"
70
71 /*------------------------------------------------------------\
72 | |
73 | Constants |
74 | |
75 \------------------------------------------------------------*/
76 /*------------------------------------------------------------\
77 | |
78 | Types |
79 | |
80 \------------------------------------------------------------*/
81 /*------------------------------------------------------------\
82 | |
83 | Variables |
84 | |
85 \------------------------------------------------------------*/
86 /*------------------------------------------------------------\
87 | |
88 | Panel |
89 | |
90 \------------------------------------------------------------*/
91 /*------------------------------------------------------------\
92 | |
93 | Panel Tools |
94 | |
95 \------------------------------------------------------------*/
96
97 GraalPanelButtonItem GraalToolsGlobalButton[] =
98
99 {
100 {
101 "Equi",
102 NULL, NULL, 0, 0,
103 NULL,
104 NULL,
105 0, 0,
106 1, 1,
107 CallbackToolsGlobalEqui,
108 (XtPointer)NULL,
109 (Widget)NULL
110 }
111 ,
112 {
113 "UnEqui",
114 NULL, NULL, 0, 0,
115 NULL,
116 NULL,
117 0, 1,
118 1, 1,
119 CallbackToolsGlobalUnEqui,
120 (XtPointer)NULL,
121 (Widget)NULL
122 }
123 ,
124 {
125 "Flat",
126 NULL, NULL, 0, 0,
127 NULL,
128 NULL,
129 0, 2,
130 1, 1,
131 CallbackToolsGlobalFlat,
132 (XtPointer)NULL,
133 (Widget)NULL
134 }
135 ,
136 {
137 "Unflat",
138 NULL, NULL, 0, 0,
139 NULL,
140 NULL,
141 0, 3,
142 1, 1,
143 CallbackToolsGlobalUnflat,
144 (XtPointer)NULL,
145 (Widget)NULL
146 }
147 ,
148
149 {
150 "Peek",
151 NULL, NULL, 0, 0,
152 NULL,
153 NULL,
154 0, 4,
155 1, 1,
156 CallbackToolsGlobalPeek,
157 (XtPointer)NULL,
158 (Widget)NULL
159 }
160 ,
161 {
162 "Unpeek",
163 NULL, NULL, 0, 0,
164 NULL,
165 NULL,
166 0, 5,
167 1, 1,
168 CallbackToolsGlobalUnpeek,
169 (XtPointer)NULL,
170 (Widget)NULL
171 }
172 ,
173 {
174 "Druc",
175 NULL, NULL, 0, 0,
176 NULL,
177 NULL,
178 0, 6,
179 1, 1,
180 CallbackToolsGlobalDruc,
181 (XtPointer)NULL,
182 (Widget)NULL
183 }
184 ,
185 {
186 "Real flat",
187 NULL, NULL, 0, 0,
188 "Red",
189 NULL,
190 0, 7,
191 1, 1,
192 CallbackToolsGlobalRealFlat,
193 (XtPointer)NULL,
194 (Widget)NULL
195 }
196 ,
197 {
198 "Close",
199 NULL, NULL, 0, 0,
200 NULL,
201 NULL,
202 0, 8,
203 1, 1,
204 CallbackToolsCloseGlobal,
205 (XtPointer)NULL,
206 (Widget)NULL
207 }
208 };
209
210 GraalPanelItem GraalToolsGlobalPanel =
211
212 {
213 "Tools",
214 1,
215 0,
216 GRAAL_TOOLS_GLOBAL_X,
217 GRAAL_TOOLS_GLOBAL_Y,
218 100,
219 225,
220 1,
221 9,
222 (Widget)NULL,
223 (Widget)NULL,
224 (Widget)NULL,
225 (Widget)NULL,
226 9,
227 GraalToolsGlobalButton
228 };
229
230 int GraalToolsGlobalDefaultValues[ 5 ] =
231
232 {
233 GRAAL_TOOLS_GLOBAL_X,
234 GRAAL_TOOLS_GLOBAL_Y,
235 100, 225, 0
236 };
237
238 /*------------------------------------------------------------\
239 | |
240 | Panel Message |
241 | |
242 \------------------------------------------------------------*/
243
244 GraalPanelButtonItem GraalToolsMessageButton[] =
245
246 {
247 {
248 "Text",
249 "Nothing", NULL, 0, 0,
250 NULL,
251 NULL,
252 0, 0,
253 8, 9,
254 NULL,
255 (XtPointer)NULL,
256 (Widget)NULL
257 }
258 ,
259 {
260 "Close",
261 NULL, NULL, 0, 0,
262 NULL,
263 NULL,
264 3, 9,
265 2, 1,
266 CallbackToolsCloseMessage,
267 (XtPointer)NULL,
268 (Widget)NULL
269 }
270 };
271
272 GraalPanelItem GraalToolsMessagePanel =
273
274 {
275 "Message",
276 1,
277 0,
278 GRAAL_TOOLS_MESSAGE_X,
279 GRAAL_TOOLS_MESSAGE_Y,
280 360,
281 250,
282 8,
283 10,
284 (Widget)NULL,
285 (Widget)NULL,
286 (Widget)NULL,
287 (Widget)NULL,
288 2,
289 GraalToolsMessageButton
290 };
291
292 int GraalToolsMessageDefaultValues[ 5 ] =
293
294 {
295 GRAAL_TOOLS_MESSAGE_X,
296 GRAAL_TOOLS_MESSAGE_Y,
297 360, 250, 0
298 };
299
300 /*------------------------------------------------------------\
301 | |
302 | Druc Panel |
303 | |
304 \------------------------------------------------------------*/
305
306 static GraalPanelButtonItem GraalToolsDrucButton[] =
307
308 {
309 {
310 "Text",
311 "Nothing", NULL, 0, 0,
312 NULL,
313 NULL,
314 0, 0,
315 8, 5,
316 NULL,
317 (XtPointer)NULL,
318 (Widget)NULL
319 }
320 ,
321 {
322 "Continue",
323 NULL, NULL, 0, 0,
324 NULL,
325 NULL,
326 1, 5,
327 2, 1,
328 CallbackToolsDrucContinue,
329 (XtPointer)NULL,
330 (Widget)NULL
331 }
332 ,
333 {
334 "Abort",
335 NULL, NULL, 0, 0,
336 NULL,
337 NULL,
338 5, 5,
339 2, 1,
340 CallbackToolsDrucAbort,
341 (XtPointer)NULL,
342 (Widget)NULL
343 }
344 };
345
346 GraalPanelItem GraalToolsDrucPanel =
347
348 {
349 "Druc error",
350 1,
351 0,
352 GRAAL_TOOLS_DRUC_X,
353 GRAAL_TOOLS_DRUC_Y,
354 360,
355 150,
356 8,
357 6,
358 (Widget)NULL,
359 (Widget)NULL,
360 (Widget)NULL,
361 (Widget)NULL,
362 3,
363 GraalToolsDrucButton
364 };
365
366 int GraalToolsDrucDefaultValues[ 5 ] =
367
368 {
369 GRAAL_TOOLS_DRUC_X,
370 GRAAL_TOOLS_DRUC_Y,
371 360, 150, 0
372 };
373
374 /*------------------------------------------------------------\
375 | |
376 | Hierarchy Panel |
377 | |
378 \------------------------------------------------------------*/
379
380 GraalPanelButtonItem GraalToolsHierarchyButton[] =
381
382 {
383 {
384 "Go up",
385 NULL, NULL, 0, 0,
386 NULL,
387 NULL,
388 0, 0,
389 1, 1,
390 CallbackToolsHierarchyUp,
391 (XtPointer)NULL,
392 (Widget)NULL
393 }
394 ,
395 {
396 "Go down",
397 NULL, NULL, 0, 0,
398 NULL,
399 NULL,
400 0, 1,
401 1, 1,
402 CallbackToolsHierarchyDown,
403 (XtPointer)NULL,
404 (Widget)NULL
405 }
406 ,
407 {
408 "Show path",
409 NULL, NULL, 0, 0,
410 NULL,
411 NULL,
412 0, 2,
413 1, 1,
414 CallbackToolsHierarchyShow,
415 (XtPointer)NULL,
416 (Widget)NULL
417 }
418 ,
419 {
420 "Reload",
421 NULL, NULL, 0, 0,
422 NULL,
423 NULL,
424 0, 3,
425 1, 1,
426 CallbackToolsHierarchyReload,
427 (XtPointer)NULL,
428 (Widget)NULL
429 }
430 ,
431 {
432 "Close",
433 NULL, NULL, 0, 0,
434 NULL,
435 NULL,
436 0, 4,
437 1, 1,
438 CallbackToolsCloseHierarchy,
439 (XtPointer)NULL,
440 (Widget)NULL
441 }
442 };
443
444 GraalPanelItem GraalToolsHierarchyPanel =
445
446 {
447 "Hierarchy",
448 1,
449 0,
450 GRAAL_TOOLS_HIERARCHY_X,
451 GRAAL_TOOLS_HIERARCHY_Y,
452 100,
453 100,
454 1,
455 5,
456 (Widget)NULL,
457 (Widget)NULL,
458 (Widget)NULL,
459 (Widget)NULL,
460 5,
461 GraalToolsHierarchyButton
462 };
463
464 int GraalToolsHierarchyDefaultValues[ 5 ] =
465
466 {
467 GRAAL_TOOLS_HIERARCHY_X,
468 GRAAL_TOOLS_HIERARCHY_Y,
469 100, 125, 0
470 };
471
472 /*------------------------------------------------------------\
473 | |
474 | Show Hierarchy Panel |
475 | |
476 \------------------------------------------------------------*/
477
478 GraalPanelButtonItem GraalToolsHierarchyShowButton[] =
479
480 {
481 {
482 "Text",
483 "Nothing", NULL, 0, 0,
484 NULL,
485 NULL,
486 0, 0,
487 8, 9,
488 NULL,
489 (XtPointer)NULL,
490 (Widget)NULL
491 }
492 ,
493 {
494 "Close",
495 NULL, NULL, 0, 0,
496 NULL,
497 NULL,
498 3, 9,
499 2, 1,
500 CallbackToolsCloseHierarchyShow,
501 (XtPointer)NULL,
502 (Widget)NULL
503 }
504 };
505
506 GraalPanelItem GraalToolsHierarchyShowPanel =
507
508 {
509 "Show hierarchy",
510 1,
511 0,
512 GRAAL_TOOLS_HIERARCHY_SHOW_X,
513 GRAAL_TOOLS_HIERARCHY_SHOW_Y,
514 360,
515 250,
516 8,
517 10,
518 (Widget)NULL,
519 (Widget)NULL,
520 (Widget)NULL,
521 (Widget)NULL,
522 2,
523 GraalToolsHierarchyShowButton
524 };
525
526 int GraalToolsHierarchyShowDefaultValues[ 5 ] =
527
528 {
529 GRAAL_TOOLS_HIERARCHY_SHOW_X,
530 GRAAL_TOOLS_HIERARCHY_SHOW_Y,
531 360, 250, 0
532 };
533
534
535 /*------------------------------------------------------------\
536 | |
537 | Functions |
538 | |
539 \------------------------------------------------------------*/
540 /*------------------------------------------------------------\
541 | |
542 | Callback For Tools |
543 | |
544 \------------------------------------------------------------*/
545 /*------------------------------------------------------------\
546 | |
547 | CallbackToolsGlobalEqui |
548 | |
549 \------------------------------------------------------------*/
550
CallbackToolsGlobalEqui(MyWidget,ClientData,CallData)551 void CallbackToolsGlobalEqui( MyWidget, ClientData, CallData )
552
553 Widget MyWidget;
554 caddr_t ClientData;
555 caddr_t CallData;
556 {
557 rdsbegin();
558
559 if ( GraalHeadEqui != (rdsrec_list *)NULL )
560 {
561 GraalDelEqui();
562 GraalZoomRefresh();
563 }
564
565 GraalChangeEditMode( GRAAL_TOOLS_EQUI,
566 GraalPromptToolsEqui );
567
568 rdsend();
569 }
570
571 /*------------------------------------------------------------\
572 | |
573 | CallbackToolsGlobalUnEqui |
574 | |
575 \------------------------------------------------------------*/
576
CallbackToolsGlobalUnEqui(MyWidget,ClientData,CallData)577 void CallbackToolsGlobalUnEqui( MyWidget, ClientData, CallData )
578
579 Widget MyWidget;
580 caddr_t ClientData;
581 caddr_t CallData;
582 {
583 rdsbegin();
584
585 if ( GraalHeadEqui != (rdsrec_list *)NULL )
586 {
587 GraalDelEqui();
588 GraalZoomRefresh();
589 }
590
591 rdsend();
592 }
593
594 /*------------------------------------------------------------\
595 | |
596 | CallbackToolsGlobalFlat |
597 | |
598 \------------------------------------------------------------*/
599
CallbackToolsGlobalFlat(MyWidget,ClientData,CallData)600 void CallbackToolsGlobalFlat( MyWidget, ClientData, CallData )
601
602 Widget MyWidget;
603 caddr_t ClientData;
604 caddr_t CallData;
605 {
606 rdsbegin();
607
608 GraalChangeEditMode( GRAAL_TOOLS_FLATTEN,
609 GraalPromptToolsFlatten );
610
611 rdsend();
612 }
613
614 /*------------------------------------------------------------\
615 | |
616 | CallbackToolsGlobalUnflat |
617 | |
618 \------------------------------------------------------------*/
619
CallbackToolsGlobalUnflat(MyWidget,ClientData,CallData)620 void CallbackToolsGlobalUnflat( MyWidget, ClientData, CallData )
621
622 Widget MyWidget;
623 caddr_t ClientData;
624 caddr_t CallData;
625 {
626 rdsbegin();
627
628 GraalChangeEditMode( GRAAL_TOOLS_UNFLATTEN,
629 GraalPromptToolsUnflatten );
630
631 rdsend();
632 }
633
634 /*------------------------------------------------------------\
635 | |
636 | CallbackToolsGlobalPeek |
637 | |
638 \------------------------------------------------------------*/
639
CallbackToolsGlobalPeek(MyWidget,ClientData,CallData)640 void CallbackToolsGlobalPeek( MyWidget, ClientData, CallData )
641
642 Widget MyWidget;
643 caddr_t ClientData;
644 caddr_t CallData;
645 {
646 rdsbegin();
647
648 GraalChangeEditMode( GRAAL_TOOLS_PEEK,
649 GraalPromptToolsPeek );
650
651 rdsend();
652 }
653
654 /*------------------------------------------------------------\
655 | |
656 | CallbackToolsGlobalUnpeek |
657 | |
658 \------------------------------------------------------------*/
659
CallbackToolsGlobalUnpeek(MyWidget,ClientData,CallData)660 void CallbackToolsGlobalUnpeek( MyWidget, ClientData, CallData )
661
662 Widget MyWidget;
663 caddr_t ClientData;
664 caddr_t CallData;
665 {
666 rdsbegin();
667
668 GraalToolsUnpeek();
669
670 rdsend();
671 }
672
673 /*------------------------------------------------------------\
674 | |
675 | CallbackToolsGlobalDruc |
676 | |
677 \------------------------------------------------------------*/
678
CallbackToolsGlobalDruc(MyWidget,ClientData,CallData)679 void CallbackToolsGlobalDruc( MyWidget, ClientData, CallData )
680
681 Widget MyWidget;
682 caddr_t ClientData;
683 caddr_t CallData;
684 {
685 rdsbegin();
686
687 GraalChangeEditMode( GRAAL_TOOLS_DRUC,
688 GraalPromptToolsDruc );
689
690 rdsend();
691 }
692
693 /*------------------------------------------------------------\
694 | |
695 | CallbackToolsGlobalRealFlat |
696 | |
697 \------------------------------------------------------------*/
698
CallbackToolsGlobalRealFlat(MyWidget,ClientData,CallData)699 void CallbackToolsGlobalRealFlat( MyWidget, ClientData, CallData )
700
701 Widget MyWidget;
702 caddr_t ClientData;
703 caddr_t CallData;
704 {
705 rdsbegin();
706
707 GraalChangeEditMode( GRAAL_TOOLS_REAL_FLATTEN,
708 GraalPromptToolsRealFlatten );
709
710 rdsend();
711 }
712
713 /*------------------------------------------------------------\
714 | |
715 | CallbackToolsCloseGlobal |
716 | |
717 \------------------------------------------------------------*/
718
CallbackToolsCloseGlobal(MyWidget,ClientData,CallData)719 void CallbackToolsCloseGlobal( MyWidget, ClientData, CallData )
720
721 Widget MyWidget;
722 caddr_t ClientData;
723 caddr_t CallData;
724 {
725 rdsbegin();
726
727 GraalExitPanel( &GraalToolsGlobalPanel );
728
729 rdsend();
730 }
731
732 /*------------------------------------------------------------\
733 | |
734 | Callback For Hierarchy |
735 | |
736 \------------------------------------------------------------*/
737 /*------------------------------------------------------------\
738 | |
739 | CallbackToolsHierarchyUp |
740 | |
741 \------------------------------------------------------------*/
742
CallbackToolsHierarchyUp(MyWidget,ClientData,CallData)743 void CallbackToolsHierarchyUp( MyWidget, ClientData, CallData )
744
745 Widget MyWidget;
746 caddr_t ClientData;
747 caddr_t CallData;
748 {
749 rdsbegin();
750
751 GraalToolsHierarchyUp();
752
753 rdsend();
754 }
755
756 /*------------------------------------------------------------\
757 | |
758 | CallbackToolsHierarchyDown |
759 | |
760 \------------------------------------------------------------*/
761
CallbackToolsHierarchyDown(MyWidget,ClientData,CallData)762 void CallbackToolsHierarchyDown( MyWidget, ClientData, CallData )
763
764 Widget MyWidget;
765 caddr_t ClientData;
766 caddr_t CallData;
767 {
768 rdsbegin();
769
770 GraalChangeEditMode( GRAAL_TOOLS_HIERARCHY_DOWN,
771 GraalPromptToolsHierarchyDown );
772 rdsend();
773 }
774
775 /*------------------------------------------------------------\
776 | |
777 | CallbackToolsHierarchyShow |
778 | |
779 \------------------------------------------------------------*/
780
CallbackToolsHierarchyShow(MyWidget,ClientData,CallData)781 void CallbackToolsHierarchyShow( MyWidget, ClientData, CallData )
782
783 Widget MyWidget;
784 caddr_t ClientData;
785 caddr_t CallData;
786 {
787 rdsbegin();
788
789 GraalChangeEditMode( GRAAL_TOOLS_HIERARCHY_SHOW,
790 GraalPromptToolsHierarchyShow );
791 rdsend();
792 }
793
794 /*------------------------------------------------------------\
795 | |
796 | CallbackToolsHierarchyReload |
797 | |
798 \------------------------------------------------------------*/
799
CallbackToolsHierarchyReload(MyWidget,ClientData,CallData)800 void CallbackToolsHierarchyReload( MyWidget, ClientData, CallData )
801
802 Widget MyWidget;
803 caddr_t ClientData;
804 caddr_t CallData;
805 {
806 rdsbegin();
807
808 GraalToolsHierarchyReload();
809
810 rdsend();
811 }
812
813 /*------------------------------------------------------------\
814 | |
815 | CallbackToolsCloseHierarchy |
816 | |
817 \------------------------------------------------------------*/
818
CallbackToolsCloseHierarchy(MyWidget,ClientData,CallData)819 void CallbackToolsCloseHierarchy( MyWidget, ClientData, CallData )
820
821 Widget MyWidget;
822 caddr_t ClientData;
823 caddr_t CallData;
824 {
825 rdsbegin();
826
827 GraalToolsDelAllHierarchy();
828 GraalExitPanel( &GraalToolsHierarchyPanel );
829
830 rdsend();
831 }
832
833 /*------------------------------------------------------------\
834 | |
835 | Callback For Message |
836 | |
837 \------------------------------------------------------------*/
838 /*------------------------------------------------------------\
839 | |
840 | CallbackToolsCloseMessage |
841 | |
842 \------------------------------------------------------------*/
843
CallbackToolsCloseMessage(MyWidget,ClientData,CallData)844 void CallbackToolsCloseMessage( MyWidget, ClientData, CallData )
845
846 Widget MyWidget;
847 caddr_t ClientData;
848 caddr_t CallData;
849 {
850 rdsbegin();
851
852 GraalExitPanel( &GraalToolsMessagePanel );
853
854 rdsend();
855 }
856
857 /*------------------------------------------------------------\
858 | |
859 | GraalDisplayToolsMessage |
860 | |
861 \------------------------------------------------------------*/
862
GraalDisplayToolsMessage()863 void GraalDisplayToolsMessage()
864 {
865 char *Message;
866 rdsbegin();
867
868 Message = GraalGetErrorMessage();
869
870 if ( Message != (char *)NULL )
871 {
872 XmTextSetString( GraalToolsHierarchyShowButton[0].BUTTON, Message );
873
874 GraalEnterPanel( &GraalToolsMessagePanel );
875 }
876 else
877 {
878 XmTextSetString( GraalToolsMessageButton[0].BUTTON, "" );
879 }
880
881 rdsend();
882 }
883
884 /*------------------------------------------------------------\
885 | |
886 | Callback For Druc |
887 | |
888 \------------------------------------------------------------*/
889 /*------------------------------------------------------------\
890 | |
891 | CallbackToolsDrucContinue |
892 | |
893 \------------------------------------------------------------*/
894
CallbackToolsDrucContinue(MyWidget,ClientData,CallData)895 void CallbackToolsDrucContinue( MyWidget, ClientData, CallData )
896
897 Widget MyWidget;
898 caddr_t ClientData;
899 caddr_t CallData;
900 {
901 rdsbegin();
902
903 GraalToolsDrucNextError();
904
905 rdsend();
906 }
907
908 /*------------------------------------------------------------\
909 | |
910 | CallbackToolsDrucAbort |
911 | |
912 \------------------------------------------------------------*/
913
CallbackToolsDrucAbort(MyWidget,ClientData,CallData)914 void CallbackToolsDrucAbort( MyWidget, ClientData, CallData )
915
916 Widget MyWidget;
917 caddr_t ClientData;
918 caddr_t CallData;
919 {
920 rdsbegin();
921
922 GraalToolsDrucAbortError();
923
924 rdsend();
925 }
926
927 /*------------------------------------------------------------\
928 | |
929 | GraalDisplayDrucMessage |
930 | |
931 \------------------------------------------------------------*/
932
GraalDisplayDrucMessage(Message)933 void GraalDisplayDrucMessage( Message )
934
935 char *Message;
936 {
937 rdsbegin();
938
939 XmTextSetString( GraalToolsDrucButton[0].BUTTON, Message );
940
941 rdsend();
942 }
943
944 /*------------------------------------------------------------\
945 | |
946 | Callback For Hierarchy Show |
947 | |
948 \------------------------------------------------------------*/
949 /*------------------------------------------------------------\
950 | |
951 | CallbackToolsCloseHierarchyShow |
952 | |
953 \------------------------------------------------------------*/
954
CallbackToolsCloseHierarchyShow(MyWidget,ClientData,CallData)955 void CallbackToolsCloseHierarchyShow( MyWidget, ClientData, CallData )
956
957 Widget MyWidget;
958 caddr_t ClientData;
959 caddr_t CallData;
960 {
961 rdsbegin();
962
963 GraalExitPanel( &GraalToolsHierarchyShowPanel );
964
965 GraalExitDialog();
966
967 rdsend();
968 }
969
970 /*------------------------------------------------------------\
971 | |
972 | GraalDisplayHierarchyShowMessage |
973 | |
974 \------------------------------------------------------------*/
975
GraalDisplayHierarchyShowMessage(Message)976 void GraalDisplayHierarchyShowMessage( Message )
977
978 char *Message;
979 {
980 rdsbegin();
981
982 XmTextSetString( GraalToolsHierarchyShowButton[0].BUTTON, Message );
983
984 rdsend();
985 }
986