home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / x / volume17 / xtexcad1 / part02 < prev    next >
Encoding:
Text File  |  1992-04-20  |  50.2 KB  |  1,525 lines
  1. Newsgroups: comp.sources.x
  2. Path: uunet!zaphod.mps.ohio-state.edu!mips!msi!dcmartin
  3. From: Fritz Haubensak <hsk@informatik.uni-wuerzburg.de>
  4. Subject: v17i066: TeXcad (X) version 1.2, Part02/10
  5. Message-ID: <1992Apr21.130745.2180@msi.com>
  6. Originator: dcmartin@fascet
  7. Sender: dcmartin@msi.com (David C. Martin - Moderator)
  8. Nntp-Posting-Host: fascet
  9. Organization: Molecular Simulations, Inc.
  10. References: <csx-17i065-xtexcad-1.2@uunet.UU.NET>
  11. Date: Tue, 21 Apr 1992 13:07:45 GMT
  12. Approved: dcmartin@msi.com
  13. Lines: 1510
  14.  
  15. Submitted-by: Fritz Haubensak <hsk@informatik.uni-wuerzburg.de>
  16. Posting-number: Volume 17, Issue 66
  17. Archive-name: xtexcad-1.2/part02
  18.  
  19. # this is part.02 (part 2 of a multipart archive)
  20. # do not concatenate these parts, unpack them in order with /bin/sh
  21. # file file_sel.c continued
  22. #
  23. if test ! -r _shar_seq_.tmp; then
  24.     echo 'Please unpack part 1 first!'
  25.     exit 1
  26. fi
  27. (read Scheck
  28.  if test "$Scheck" != 2; then
  29.     echo Please unpack part "$Scheck" next!
  30.     exit 1
  31.  else
  32.     exit 0
  33.  fi
  34. ) < _shar_seq_.tmp || exit 1
  35. if test ! -f _shar_wnt_.tmp; then
  36.     echo 'x - still skipping file_sel.c'
  37. else
  38. echo 'x - continuing file file_sel.c'
  39. sed 's/^X//' << 'SHAR_EOF' >> 'file_sel.c' &&
  40. X     offset = (char *)(offset + LAENGE);  /* freie Stelle */
  41. X     i++;
  42. X     }
  43. X   
  44. X   /* Liste alphabetisch sortieren */
  45. X   qsort(Liste2[2],i-2,LAENGE,strcmp);
  46. X   
  47. X   /* Liste mit NULL Eintrag beenden */
  48. X   i++;
  49. X   Liste2[i] = NULL;
  50. X
  51. X   /* Directory Stream schliessen */
  52. X   closedir(dirp2);
  53. X
  54. X   /* alten Speicher wieder freigeben */
  55. X   if(Liste != NULL)
  56. X     free(Liste);
  57. X   if(Inhalt != NULL)
  58. X     free(Inhalt);
  59. X
  60. X   Liste = Liste2;
  61. X   Inhalt = Inhalt2;
  62. X
  63. X   return((String *)Liste); /* Pointer auf Listenkopf wird zureuckgegeben */
  64. }
  65. X
  66. /*****************************************************************************/
  67. /* Funktion steuert bei einer Neuerstellung der Liste im Listwidget den      */
  68. /* Ablauf und veranlasst die sich daraus ergebenden Folgen.                  */
  69. /*                                                                           */
  70. /* Aufruf: direct_to_list();                                                 */
  71. /*                                                                           */
  72. /* Parameter: keine                                                          */
  73. /* Rueckgabe: keine                                                          */
  74. /*****************************************************************************/
  75. void direct_to_list()
  76. {
  77. X   Arg args[1];
  78. X   short anzahl;              /* anzahl Directoryeintraege */
  79. X
  80. X   anzahl = count_eintraege();
  81. X
  82. X   /* Datei bei einem Patternwechsel nicht mehr vorhanden */
  83. X   /* Dateinamen in Labelfeld loeschen */
  84. X   /* ohne direkt in Pointer zu schreiben wird Wert nicht angezeigt */
  85. X   XtSetArg(args[0],XtNstring," ");
  86. X   XtSetValues(((DialogWidget)text)->dialog.valueW,args,1);
  87. X
  88. X   /* neue Liste erstellen und Listwidget uebergeben */
  89. X   XtUnmanageChild(list_direct);
  90. X   XawListChange(list_direct,directory_erstellen(anzahl),anzahl,0,True);
  91. X   XtManageChild(list_direct);
  92. X
  93. X   /* Rollbalken wieder am oeberen Ende positionieren */ 
  94. X
  95. X
  96. }        
  97. X
  98. /*****************************************************************************/
  99. /* Callbackfunktion fuer den Ok-Button. (Rueckgabe Dateiname, Fileselectbox  */
  100. /* schliessen.                                                               */
  101. /*                                                                           */
  102. /* Aufruf: Ok_gelickt(w,client_data,call_data);                              */
  103. /*                                                                           */
  104. /* Funktion wird nur von X-Windows aufgerufen.                               */
  105. /*****************************************************************************/
  106. void Ok_geklickt(Widget w ,caddr_t client_data,caddr_t call_data)
  107. {
  108. X  char *stelle;                 /* Pointer auf erstes Blank im String */
  109. X
  110. X
  111. X  if(XawDialogGetValueString(text)[0]  == ' ')
  112. X    /* falls Dateiname leer ist wird NULL zurueck gegeben vgl. CANCEL-Button */
  113. X    filename = NULL;
  114. X  else 
  115. X    {
  116. X    /* Dateinamenfeld war mit Dateinamen gefuellt */
  117. X    filename = (char *)malloc(MAXPATH*sizeof(char));
  118. X    getcwd(filename,LAENGE2);
  119. X    strcat(filename,"/");
  120. X    strcat(filename,XawDialogGetValueString(text));
  121. X    /* nachfolgende Blanks abschneiden */
  122. X    if((stelle=index(filename,' ')) != NULL)  
  123. X    *stelle = '\0';
  124. X    }
  125. X
  126. X  /* Ueberpruefen, ob Dateiname jetzt tatsaechlich passt */
  127. X  free(Liste);
  128. X  free(Inhalt);
  129. X  XtPopdown(file_s);             /* Ruecksprung */
  130. }
  131. X 
  132. /*****************************************************************************/
  133. /* Callbackfunktion fuer den Return im Labelfeld Dateinamen aufgerufen       */
  134. /* Setzt die Parmeter fuer Ok_geklickt (s.o.) um.                            */
  135. /*                                                                           */
  136. /* Aufruf: Ok2_gelickt(widget,event,params,n_params);                        */
  137. /*                                                                           */
  138. /* Funktion wird nur von X-Windows aufgerufen.                               */
  139. /*****************************************************************************/
  140. void Ok2_geklickt(Widget widget,XEvent *event,String *params,Cardinal *n_params)
  141. {
  142. X  /* Prozedur wird nach <Return> in Labelfeld aufgerufen */
  143. X  /* setzt nur Parameter fuer Ok_geklickt um */
  144. X  Ok_geklickt(XtParent(widget),NULL,NULL);
  145. }
  146. X
  147. X
  148. /*****************************************************************************/
  149. /* Callbackfunktion fuer den Return im Labelfeld Pfadnamen aufgerufen        */
  150. /* Wechselt in neuen Pfad und erstellt Eintraege in der Liste neu.           */
  151. /*                                                                           */
  152. /* Aufruf: Path_changed(widget,event,params,n_params);                       */
  153. /*                                                                           */
  154. /* Funktion wird nur von X-Windows aufgerufen.                               */
  155. /*****************************************************************************/
  156. void Path_changed(Widget widget,XEvent *event,String *params,Cardinal *n_params)
  157. {
  158. X  char *home,               /* Homedirectory aus dem Environment */
  159. X       *stelle;             /* temporaerer Pointer */
  160. X  char p_name[LAENGE2];     /* Pfad in korrigierter Laenge */
  161. char p_name2[LAENGE2];
  162. X  char neuer_pfad[LAENGE2]; /* neuer eingegebene Pfad */
  163. Arg args[1];
  164. X  
  165. X  /* Prozedur wird nach <Return> in Dialogfeld fuer Path aufgerufen */
  166. X  /* uebernimmt ggf. neues Pattern und aendert Eintrage im Fenster    */
  167. X  sprintf(neuer_pfad,"%-50.50s",XawDialogGetValueString(XtParent(widget)));
  168. X  /* nachfolgende Blanks abschneiden */
  169. X
  170. X  if((stelle=index(neuer_pfad,' ')) != NULL)  
  171. X    *stelle = '\0';
  172. X  else                       /* Namen sind zu lang */ 
  173. X    {
  174. X    neuer_pfad[LAENGE2] = '\0';
  175. X    neuer_pfad[LAENGE2-1] = '*';
  176. X    }
  177. X
  178. X  if(chdir(neuer_pfad) == -1)
  179. X    /* Fehler beim Wechsel in angegebenen Pfadnamen */
  180. X    {
  181. X    home = getenv("HOME");
  182. X    if(home != NULL)
  183. X       chdir(home);    /* bei Fehler ins Homedirectory wechseln */ 
  184. X    else               /* kein Eintrag fuer Homedirectory gefunden */
  185. X       chdir("/");
  186. X
  187. X    /* Dialogfeld zur Ausgabe des aktuellen Verzeichnisnamen  aendern  */
  188. X    getcwd(p_name,LAENGE2);
  189. X    /* ohne direkt in Pointer zu schreiben wird Wert nicht angezeigt */
  190. X    XtSetArg(args[0],XtNstring,p_name);
  191. X    XtSetValues(((DialogWidget)path)->dialog.valueW,args,1);
  192. X    }
  193. X
  194. X  /* evtl. Wechsel in neues Directory erfolgt, daher Liste neu erstellen */
  195. X  direct_to_list();
  196. }
  197. X
  198. /*****************************************************************************/
  199. /* Callbackfunktion fuer ein Verlassen des Labelfeldes fuer Pfadeingabe      */
  200. /* wenn die Eingabe des Pfades nichtr mit Return abgeschlossen wurde, so     */
  201. /* muss der Pfad wieder korrekt angezeigt werden.                            */
  202. /*                                                                           */
  203. /* Aufruf: Path_leave(widget,event,params,n_params);                         */
  204. /*                                                                           */
  205. /* Funktion wird nur von X-Windows aufgerufen.                               */
  206. /*****************************************************************************/
  207. void Path_leave(Widget widget,XEvent *event,String *params,Cardinal *n_params)
  208. {
  209. X  char p_name[LAENGE2];     /* Pfad in korrigierter Laenge */
  210. char p_name2[LAENGE2];
  211. Arg args[1];
  212. X
  213. X  /* Dialogfeld zur Ausgabe des aktuellen Verzeichnisnamen  aendern  */
  214. X  getcwd(p_name,LAENGE2);
  215. X  /* ohne direkt in Pointer zu schreiben wird Wert nicht angezeigt */
  216. X  sprintf(p_name2,"%-50.50s",p_name);
  217. X  XtSetArg(args[0],XtNstring,p_name2);
  218. X  XtSetValues(((DialogWidget)path)->dialog.valueW,args,1);
  219. }
  220. X
  221. /*****************************************************************************/
  222. /* Callbackfunktion fuer den Return im Labelfeld Pattern aufgerufen          */
  223. /* Wechselt globales Pattern aus und erstellt Eintrage in der Liste neu.     */
  224. /*                                                                           */
  225. /* Aufruf: Patt_changed(widget,event,params,n_params);                       */
  226. /*                                                                           */
  227. /* Funktion wird nur von X-Windows aufgerufen.                               */
  228. /*****************************************************************************/
  229. void Patt_change(Widget widget,XEvent *event,String *params,Cardinal *n_params)
  230. {
  231. X  char neues_patt[LAENGE];   /* neues Patternmuster */
  232. X
  233. X  /* Prozedur wird nach <Return> in Labelfeld fuer Pattern aufgerufen */
  234. X  /* uebernimmt ggf. neues Pattern und aendert Eintrage im Fenster    */
  235. X  strcpy(neues_patt,(char *)XawDialogGetValueString(XtParent(widget)));
  236. X
  237. X  if(neues_patt != patt_global)       /* nur aendern falls Pattern anders */
  238. X    {
  239. X    strcpy(patt_global,neues_patt);   /* neues Pattern setzen */
  240. X    /* Eintrage im Fenster neu erstellen */ 
  241. X    direct_to_list();
  242. X    }
  243. }
  244. X
  245. /*****************************************************************************/
  246. /* Callbackfunktion fuer den Cancel-Button.(Rueckgabe NULL, Fileselectbox    */
  247. /* schliessen.                                                               */
  248. /*                                                                           */
  249. /* Aufruf: Cancel_gelickt(w,client_data,call_data);                          */
  250. /*                                                                           */
  251. /* Funktion wird nur von X-Windows aufgerufen.                               */
  252. /*****************************************************************************/
  253. void Cancel_geklickt(Widget w,caddr_t client_data,caddr_t call_data)
  254. {
  255. X  filename = NULL;                  /* gibt immer NULL zurueck */
  256. X  free(Liste);
  257. X  free(Inhalt);
  258. X  XtPopdown(file_s);
  259. }
  260. X
  261. /*****************************************************************************/
  262. /* Callbackfunktion fuer das Waehlen eines Eintrages in der Liste des List-  */
  263. /* widget. Prueft, ob Name eine Datei (Uebernahme in Dialogewidget) oder ein */
  264. /* Directory ist. (Wechsel in neues Directory,Liste neu erstellen)           */
  265. /*                                                                           */
  266. /* Aufruf: File_gewaehlt(w,client_data,call_data);                           */
  267. /*                                                                           */
  268. /* Funktion wird nur von X-Windows aufgerufen.                               */
  269. /*****************************************************************************/
  270. void File_gewaehlt(Widget w,caddr_t client_data,caddr_t call_data)
  271. {
  272. X  char name[LAENGE+2],          /* gekuerzter Eintragsnamen (ohne Blanks) */
  273. X       p_name[LAENGE2],         /* Pathname mit 50 Stellen */
  274. X       p_name2[LAENGE2];
  275. char name2[21];
  276. X  Arg args[1];                  /* Argumentvektor */
  277. X  char *stelle;                 /* Pointer auf erstes Blank im String */
  278. X  short i;                      /* Zaehler */
  279. X  XawListReturnStruct *feld;     /* Rueckgabe gewaehltes Feld(Listwidget) */
  280. X
  281. X  
  282. X  /* geklickter Dateinamen ermitteln */
  283. X  feld = XawListShowCurrent(w);  
  284. X
  285. X  /* Zeichenkette kopieren, damit Button nicht veraendert wird */
  286. X  strcpy(name,feld->string); 
  287. X  name[LAENGE+2] = '\0';
  288. X
  289. X  /* nachfolgende Blanks abschneiden */
  290. X  if((stelle=index(name,' ')) != NULL)  
  291. X    *stelle = '\0';
  292. X
  293. X  if (!(Is_direct(name)) && (name[0] != ' ')) /* Name nicht leer */
  294. X     /* Eintrag war Dateieintrag */
  295. X     {
  296. X     /* Eintrag wird in Labelfeld uebernommen */
  297. X     /* ohne direkt in Pointer zu schreiben wird der Wert nicht angezeigt */
  298. X     sprintf(name2,"%-20s",name);
  299. X     XtSetArg(args[0],XtNstring,name2);
  300. X     XtSetValues(((DialogWidget)text)->dialog.valueW,args,1);
  301. X     }
  302. X  else                                          
  303. X     {
  304. X     /* Eintrag war Directory */
  305. X     chdir(name);
  306. X
  307. X     /* Dialogfeld zur Ausgabe des aktuellen Verzeichnisnamen  aendern  */
  308. X     getcwd(p_name,LAENGE2);
  309. X     /* ohne direkt in Pointer zu schreiben wird Wert nicht angezeigt */
  310. X     sprintf(p_name2,"%-50.50s",p_name);
  311. X     XtSetArg(args[0],XtNstring,p_name2);
  312. X     XtSetValues(((DialogWidget)path)->dialog.valueW,args,1);
  313. X
  314. X     /* neue Liste erstellen und anzeigen */
  315. X     direct_to_list();
  316. X
  317. X     }
  318. X
  319. } 
  320. X
  321. X
  322. /*****************************************************************************/
  323. /* Funktion setzt einen String die Mitte eines Strings, der aus einer ueber- */
  324. /* gebenen Anzahl von Leerzeichen besteht.                                   */
  325. /*                                                                           */
  326. /* Aufruf: center(zeile,laenge);                                             */
  327. /*                                                                           */
  328. /* Parameter: char *zeile; String der positioniert werden soll.              */
  329. /*            short laenge; Laenge des neu erstellten Strings.               */
  330. /* Rueckgabe: char *; Pointer auf den neu erstellten String                  */
  331. /*                                                                           */
  332. /* !Vorsicht: der Speicher fuer den neuen String wird mit malloc belegt und! */
  333. /* !sollte daher vom spaeteren Benutzer wieder freigegeben werden          ! */
  334. /*****************************************************************************/
  335. char *center(char *zeile,short laenge)
  336. {
  337. X   char *neue_zeile;            /* neu erstellter String */
  338. X   short blanks,                /* Anzahl fuehrende Blanks */
  339. X     zeilen_laenge,         /* Laenge des uebergebenen Strings */
  340. X     i,s;
  341. X
  342. X   zeilen_laenge = strlen(zeile);
  343. X   neue_zeile = (char *)malloc((laenge+1) *sizeof(char));
  344. X
  345. X   /* am Anfang Blanks einfuegen */
  346. X   blanks = (int)((laenge - zeilen_laenge)/2);
  347. X
  348. X   /* gesamten String loeschen */
  349. X   for(i=0;i<=laenge;i++)
  350. X      neue_zeile[i] = ' ';
  351. X
  352. X   /* String uebernehmen */
  353. X   for(i=blanks;i<=blanks+zeilen_laenge-1;i++)
  354. X      neue_zeile[i] = zeile[i-blanks];
  355. X    
  356. X   neue_zeile[laenge] = '\0';
  357. X            
  358. X   return(neue_zeile);
  359. }
  360. X 
  361. /*****************************************************************************/
  362. /* Callbackfunktion fuer allgemeine Events die unterdreuckt werden sollen    */
  363. /* Die Funktion wird aufgerufen, raeumt den Stack auf und kehrt zureuck      */
  364. /*                                                                           */
  365. /* Aufruf: Dummy(widget,event,params,n_params);                              */
  366. /*                                                                           */
  367. /* Funktion wird nur von X-Windows aufgerufen.                               */
  368. /*****************************************************************************/
  369. /* Prozedur dient dazu unerwuenscht Events abzufangen */
  370. void Dummy(Widget widget,XEvent *event,String *params,Cardinal *n_params)
  371. {
  372. }
  373. X
  374. /*****************************************************************************/
  375. /* Funktion initialisiert Fileselectbox.(erstellt Widgets usw.)              */
  376. /* Diese Funktion wird i.A. nur einmal waehrend eines Programmes aufgerufen  */
  377. /*                                                                           */
  378. /* Aufruf: init_file_select(w);                                              */
  379. /*                                                                           */
  380. /* Parameter: Widget w; Widget im Baum, an das Fileselectbox gehangen wird   */
  381. /* Rueckgabe: PopupShell Widget, dass Fileselectbox Popup enthaelt           */
  382. /*****************************************************************************/
  383. Widget init_file_select(Widget w)     
  384. {
  385. X   Arg args[8];               /* Argumentvektor */
  386. X   Widget ok,                 /* Button fuer Ok */
  387. X      box,                /* Rahmen um ganze Fileselectbox */
  388. X      fenster,            /* ViewportWidget um Dir-Eintraege */
  389. X      cancel;             /* Button fuer Cancel */
  390. X   short anzahl;              /* Anzahl temporaere Variablen */
  391. X   XtTranslations trans;      /* Aktionsbeschreibung */
  392. X   /* hinzugefuegte Events bei den Dialogboxen */
  393. X   static XtActionsRec Return_null[]={{"Ok2_geklickt",Ok2_geklickt},};
  394. X   static XtActionsRec Patt_return[]={{"Patt_change",Patt_change},};
  395. X   static XtActionsRec Dummy_call[]={{"Dummy",Dummy},};
  396. X   static XtActionsRec Path_return[]={{"Path_changed",Path_changed},};
  397. X   static XtActionsRec Path_verlas[]={{"Path_leave",Path_leave},};
  398. X   
  399. X   Dimension breite;
  400. X
  401. X   /* Abfrage, so dass FileSelectbox nur einmal initialisiert wird */
  402. X   if(init_called)  /* bereits aufgerufen */
  403. X     return(file_s);
  404. X
  405. X   /* Funktion zum ersten mal aufgerufen Flag setzen */ 
  406. X   init_called = 1;                   
  407. X
  408. X   /* Pattern initialisieren */
  409. X   strcpy(patt_global,"*");
  410. X
  411. X   /* Voreinstellung fuer Dateiname ist Leerstrings */
  412. X   sprintf(_default,"%-21s"," ");
  413. X   sprintf(_default2,"%-51s"," ");
  414. X
  415. X   /* File_selectbox ist Popupshell */
  416. X   XtSetArg( args[0],XtNx, (XtArgVal) DEFAULT_X);
  417. X   XtSetArg( args[1],XtNy, (XtArgVal) DEFAULT_Y);
  418. X   file_s = XtCreatePopupShell("F1",transientShellWidgetClass,w,args,2);
  419. X   
  420. X   /* passender Rahmen um das Ganze */
  421. X   box = XtCreateManagedWidget("F2",formWidgetClass,file_s,NULL,0);
  422. X
  423. X   /* Labelfeld zur Ausgabe der Ueberschrift */           
  424. X   XtSetArg( args[0],XtNlabel, (XtArgVal) _default2);
  425. X   XtSetArg( args[1],XtNborderWidth, (XtArgVal) 4);
  426. X   XtSetArg( args[2],XtNvertDistance, (XtArgVal) ABSTAND);
  427. X   XtSetArg( args[3],XtNhorizDistance, (XtArgVal) ABSTAND);
  428. X   titel_zeile = XtCreateManagedWidget("F10",labelWidgetClass,box,args,4);
  429. X   
  430. X   /* Dialogfeld zur Ausgabe des aktuellen Verzeichnisnamen */
  431. X   XtSetArg( args[0],XtNvalue, (XtArgVal) _default2);
  432. X   XtSetArg( args[1],XtNvertDistance, (XtArgVal) ABSTAND);
  433. X   XtSetArg( args[2],XtNhorizDistance, (XtArgVal) ABSTAND);
  434. X   XtSetArg( args[3],XtNfromVert, (XtArgVal) titel_zeile);
  435. X   XtSetArg( args[4],XtNlabel,(XtArgVal) _default2);
  436. X   XtSetArg( args[5],XtNborderWidth, (XtArgVal) 0);       
  437. X   path = (DialogWidget)
  438. X    XtCreateManagedWidget("F9",dialogWidgetClass,box,args,6); 
  439. X   /* Labelfeld bei der Dialogbox nicht auf den Bildschirm */
  440. X   XtSetArg( args[0],XtNfromHoriz,(XtArgVal) NULL);
  441. X   XtSetArg( args[1],XtNfromVert, (XtArgVal) NULL);
  442. X   XtSetValues( path->dialog.valueW,args,2);
  443. X   XtUnmanageChild(path->dialog.labelW);
  444. X   XtSetArg(args[0],XtNwidth,&breite);
  445. X   XtGetValues(path->dialog.labelW,args,1);
  446. X   XtSetArg(args[0],XtNresize, XawtextResizeNever);
  447. X   XtSetArg(args[1],XtNwidth,breite);
  448. X   XtSetValues(path->dialog.valueW,args,2);
  449. X   /* Return innerhalb des Textfeldes abfangen */
  450. X   XtAppAddActions(XtWidgetToApplicationContext(path->dialog.valueW),
  451. X      Path_return,1);
  452. X   XtSetArg(args[0],XtNresize, XawtextResizeNever);
  453. X   XtSetValues(((DialogWidget)path)->dialog.valueW,args,1);
  454. X   trans=XtParseTranslationTable(":<Key>Return:Path_changed()");
  455. X   XtOverrideTranslations(path->dialog.valueW,trans);
  456. X   /* Eingabe von Leerzeichen im Filenamen ist verboten */
  457. X   XtAppAddActions(XtWidgetToApplicationContext(path->dialog.valueW),
  458. X      Dummy_call,1);
  459. X   trans=XtParseTranslationTable(":<Key>space:Dummy()");
  460. X   XtOverrideTranslations(path->dialog.valueW,trans);
  461. X   /* Wenn das Dialogfeld ohne Return verlassen wird, so muss der */
  462. X   /* Pfadname wieder korrekt angezeigt werden */
  463. X   XtAppAddActions(XtWidgetToApplicationContext(path->dialog.valueW),
  464. X      Path_verlas,1);
  465. X   trans=XtParseTranslationTable(":<LeaveWindow>:Path_leave()");
  466. X   XtAugmentTranslations(path->dialog.valueW,trans);
  467. X
  468. X   /* Viewport um automatischen Rollbalken zu erzeugen */
  469. X   XtSetArg( args[0],XtNallowVert, (XtArgVal) True);
  470. X   XtSetArg( args[1],XtNheight, (XtArgVal) HOEHE);
  471. X   XtSetArg( args[2],XtNwidth, (XtArgVal) WEITE);
  472. X   XtSetArg( args[3],XtNforceBars, (XtArgVal) True);
  473. X   XtSetArg( args[4],XtNfromVert, (XtArgVal) path);
  474. X   XtSetArg( args[5],XtNvertDistance, (XtArgVal) ABSTAND);
  475. X   XtSetArg( args[6],XtNhorizDistance, (XtArgVal) ABSTAND);
  476. X   fenster =XtCreateManagedWidget("F3",viewportWidgetClass,box,args,7);
  477. X  
  478. X   /* Directoryeintraege in ListWidget uebernehmen */
  479. X   anzahl = count_eintraege();
  480. X   XtSetArg( args[0],XtNverticalList, (XtArgVal) True);
  481. X   XtSetArg( args[1],XtNlist, (XtArgVal) directory_erstellen(anzahl));
  482. X   XtSetArg( args[2],XtNnumberStrings, (XtArgVal) anzahl);
  483. X   XtSetArg( args[3],XtNlongest, (XtArgVal) WEITE);
  484. X   XtSetArg( args[4],XtNwidth, (XtArgVal) WEITE);
  485. X   XtSetArg( args[5],XtNvertDistance, (XtArgVal) ABSTAND);
  486. X   list_direct = XtCreateManagedWidget("F5",listWidgetClass,fenster,args,6);
  487. X   XtAddCallback(list_direct,XtNcallback,File_gewaehlt,NULL);
  488. X
  489. X   /* Eingabefeld fuer Dateinamen */
  490. X   XtSetArg( args[0],XtNlabel, (XtArgVal) "    FILENAME <cr>   ");
  491. X   XtSetArg( args[1],XtNvalue, (XtArgVal) _default);
  492. X   XtSetArg( args[2],XtNvertDistance, (XtArgVal) (3*ABSTAND));
  493. X   XtSetArg( args[3],XtNfromVert, (XtArgVal) path);
  494. X   XtSetArg( args[4],XtNhorizDistance, (XtArgVal) (2*ABSTAND));
  495. X   XtSetArg( args[5],XtNfromHoriz, (XtArgVal) fenster);
  496. X   text =(DialogWidget)
  497. X     XtCreateManagedWidget("F6",dialogWidgetClass,box,args,6);
  498. X   XtSetArg(args[0],XtNwidth,&breite);
  499. X   XtGetValues(text->dialog.labelW,args,1);
  500. X   XtSetArg(args[0],XtNresize, XawtextResizeNever);
  501. X   XtSetArg(args[1],XtNwidth,breite);
  502. X   XtSetValues(text->dialog.valueW,args,2);
  503. X   XtSetArg(args[0],XtNresize, XawtextResizeNever);
  504. X   XtSetValues(((DialogWidget)text)->dialog.valueW,args,1);
  505. X
  506. X   /* Return abfangen */
  507. X   XtAppAddActions(XtWidgetToApplicationContext(text->dialog.valueW),
  508. X      Return_null,1);
  509. X   trans=XtParseTranslationTable(":<Key>Return:Ok2_geklickt()");
  510. X   XtOverrideTranslations(text->dialog.valueW,trans);
  511. X   /* Eingabe von Leerzeichen im Filenamen ist verboten */
  512. X   XtAppAddActions(XtWidgetToApplicationContext(text->dialog.valueW),
  513. X      Dummy_call,1);
  514. X   trans=XtParseTranslationTable(":<Key>space:Dummy()");
  515. X   XtOverrideTranslations(text->dialog.valueW,trans);
  516. X
  517. X   /* Eingabefeld fuer Pattern */
  518. X   XtSetArg( args[0],XtNlabel, (XtArgVal) "    FILETYPE <cr>   ");
  519. X   XtSetArg( args[1],XtNvalue, (XtArgVal) _default);
  520. X   XtSetArg( args[2],XtNvertDistance, (XtArgVal) ABSTAND);
  521. X   XtSetArg( args[3],XtNfromVert, (XtArgVal) text);
  522. X   XtSetArg( args[4],XtNhorizDistance, (XtArgVal) (2*ABSTAND));
  523. X   XtSetArg( args[5],XtNfromHoriz, (XtArgVal) fenster);
  524. X   patt_t=(DialogWidget)    
  525. X     XtCreateManagedWidget("F13",dialogWidgetClass,box,args,6);
  526. X   XtSetArg(args[0],XtNwidth,&breite);
  527. X   XtGetValues(patt_t->dialog.labelW,args,1);
  528. X   XtSetArg(args[0],XtNresize, XawtextResizeNever);
  529. X   XtSetArg(args[1],XtNwidth,breite);
  530. X   XtSetValues(patt_t->dialog.valueW,args,2);
  531. X   XtSetArg(args[0],XtNresize, XawtextResizeNever);
  532. X   XtSetValues(((DialogWidget)patt_t)->dialog.valueW,args,1);
  533. X   /* Return abfangen */
  534. X   XtAppAddActions(XtWidgetToApplicationContext(patt_t->dialog.valueW),
  535. X      Patt_return,1);
  536. X   trans=XtParseTranslationTable(":<Key>Return:Patt_change()");
  537. X   XtOverrideTranslations(patt_t->dialog.valueW,trans);
  538. X   /* Eingabe von Leerzeichen im Pattern ist verboten */
  539. X   XtAppAddActions(XtWidgetToApplicationContext(patt_t->dialog.valueW),
  540. X      Dummy_call,1);
  541. X   trans=XtParseTranslationTable(":<Key>space:Dummy()");
  542. X   XtOverrideTranslations(patt_t->dialog.valueW,trans);
  543. X
  544. X   /* Cancel Button */
  545. X   XtSetArg( args[0],XtNlabel, (XtArgVal) "        Cancel         ");
  546. X   XtSetArg( args[1],XtNvertDistance, (XtArgVal) (16*ABSTAND));
  547. X   XtSetArg( args[2],XtNfromVert, (XtArgVal) patt_t);
  548. X   XtSetArg( args[3],XtNhorizDistance, (XtArgVal) (2* ABSTAND));
  549. X   XtSetArg( args[4],XtNfromHoriz, (XtArgVal) fenster);
  550. X   cancel = XtCreateManagedWidget("F7",commandWidgetClass,box,args,5);
  551. X   XtAddCallback(cancel,XtNcallback,Cancel_geklickt,NULL);
  552. X
  553. X   /* OK Button */
  554. X   XtSetArg( args[0],XtNlabel,(XtArgVal) "        Accept         ");
  555. X   XtSetArg( args[1],XtNvertDistance, (XtArgVal) ABSTAND);
  556. X   XtSetArg( args[2],XtNfromVert, (XtArgVal) cancel);
  557. X   XtSetArg( args[3],XtNhorizDistance, (XtArgVal) (2*ABSTAND));
  558. X   XtSetArg( args[4],XtNfromHoriz, (XtArgVal) fenster);
  559. X   ok = XtCreateManagedWidget("F8",commandWidgetClass,box,args,5);
  560. X   XtAddCallback(ok,XtNcallback,Ok_geklickt,NULL);
  561. X
  562. X   return(file_s);
  563. }
  564. X
  565. X
  566. /*****************************************************************************/
  567. /* Funktion zum Aufruf der Fileselectbox.   (s.o)                            */
  568. /*                                                                           */
  569. /* Aufruf: File_select(x,y,patt,titel);                                      */
  570. /*****************************************************************************/
  571. char *file_select(char *patt,char *titel)
  572. {
  573. X   XtAppContext app_context;           /* Applikationskontext */
  574. X   XEvent event;                       /* Event */
  575. X   Arg args[2];                        /* Argumentvektor */
  576. X   char p_name[LAENGE2],               /* Path ion korrigierter Laenge */
  577. X    t_name[LAENGE2];               /* Titel in korrigierter Laenge */
  578. X   char *temp;                         /* Pointer zur Speicherfreigabe */
  579. X
  580. X   if( strlen(patt) > LAENGE || 
  581. X      strlen(titel) == 0 || strlen(titel) > LAENGE2 )
  582. X      {
  583. X
  584. X      printf("Die Argumente sind nicht korrekt !!! \n");
  585. X      return(NULL);
  586. X      }
  587. X   else 
  588. X      {
  589. X
  590. X      Liste = (String *)NULL;
  591. X      Inhalt = (char *)NULL;
  592. X
  593. X      /* uebergebenes Pattern in globale Variable uebernehmen */
  594. X      if(strlen(patt)!=0)
  595. X          strcpy(patt_global,patt);
  596. X      
  597. X      /* Titelzeile in Labelfeld uebernehmen */
  598. X      temp = center(titel,LAENGE2);  /* Ueberschrift zentrieren */
  599. X      strcpy(t_name,temp);
  600. X      free(temp);
  601. X      XtSetArg( args[0],XtNlabel,(XtArgVal) t_name);
  602. X      XtSetValues(titel_zeile,args,1);
  603. X
  604. X      /* aktuellen Pfadnamen im Dialogwidget anzeigen */
  605. X      temp = malloc(LAENGE2+1);
  606. X      getcwd(temp,LAENGE2);
  607. X      sprintf(p_name,"%-51s",temp);                        
  608. X      free(temp);
  609. X      /* Dialogfeld zur Ausgabe des aktuellen Verzeichnisnamen  aendern  */
  610. X      /* ohne direkt in Pointer zu schreiben wird Wert nicht angezeigt */
  611. X      XtSetArg(args[0],XtNstring,p_name);
  612. X      XtSetValues(((DialogWidget)path)->dialog.valueW,args,1);
  613. X
  614. X      /* Pattern in DialogWidget uebernehmen */
  615. X      /* ohne direkt in Pointer zu schreiben wird Wert nicht angezeigt */
  616. X      XtSetArg(args[0],XtNstring,patt_global);
  617. X      XtSetValues(((DialogWidget)patt_t)->dialog.valueW,args,1);
  618. X       
  619. X      /* aktuelles Directory eintragen */
  620. X      direct_to_list(); 
  621. X
  622. X      /* Fileselectbox auf dem Bildschirm anzeigen */
  623. X      XtPopup(file_s,XtGrabExclusive);
  624. X       
  625. X      /* Events im Popup selbst verwalten */
  626. X      app_context = XtWidgetToApplicationContext(file_s);
  627. X      while(((ShellWidget)file_s)->shell.popped_up)
  628. X      {
  629. X     XtAppNextEvent(app_context,&event);
  630. X     XtDispatchEvent(&event);
  631. X      }
  632. X
  633. X      } 
  634. X
  635. X   /* String bereits in beim OK-Button kontrolliert */
  636. X   return(filename);
  637. } 
  638. X
  639. X
  640. /*******************************************************************
  641. X * Center a popup in the middle of another widget if possible,     *
  642. X * otherwise make shure that the popup is visible on the screen    *
  643. X *******************************************************************/
  644. void centerpopup(Widget centerin,Widget tocenter)
  645. {
  646. Display *CurDpy;
  647. Position xin,yin,x,y;
  648. Dimension win,hin,wto,hto;
  649. Arg args[4];
  650. X
  651. CurDpy = XtDisplay(centerin);
  652. XXtRealizeWidget(tocenter);
  653. XXtSetArg(args[0],XtNwidth,&wto);
  654. XXtSetArg(args[1],XtNheight,&hto);
  655. XXtGetValues(tocenter,args,2);
  656. X
  657. XXtSetArg(args[0],XtNwidth,&win);
  658. XXtSetArg(args[1],XtNheight,&hin);
  659. XXtGetValues(centerin,args,2);
  660. X
  661. XXtTranslateCoords(centerin,0,0,&xin,&yin);
  662. X
  663. x = xin + win/2 - wto/2;
  664. y = yin + hin/2 - hto/2;
  665. if(x < 0)
  666. X    x = 0;
  667. if(y < 0)
  668. X    y = 0;
  669. if((x+wto) > DisplayWidth(CurDpy, DefaultScreen(CurDpy)))
  670. X    x = DisplayWidth(CurDpy, DefaultScreen(CurDpy)) - wto;
  671. if((y+hto) > DisplayHeight(CurDpy, DefaultScreen(CurDpy)))
  672. X    y = DisplayHeight(CurDpy, DefaultScreen(CurDpy)) - hto;
  673. X
  674. XXtSetArg(args[0],XtNx,x);
  675. XXtSetArg(args[1],XtNy,y);
  676. XXtSetValues(tocenter,args,2);
  677. XXWarpPointer(CurDpy,None,DefaultRootWindow(CurDpy),0,0,0,0,x+wto/2,y+hto/2);
  678. }
  679. X
  680. SHAR_EOF
  681. echo 'File file_sel.c is complete' &&
  682. chmod 0644 file_sel.c ||
  683. echo 'restore of file_sel.c failed'
  684. Wc_c="`wc -c < 'file_sel.c'`"
  685. test 36818 -eq "$Wc_c" ||
  686.     echo 'file_sel.c: original size 36818, current size' "$Wc_c"
  687. rm -f _shar_wnt_.tmp
  688. fi
  689. # ============= file_sel.h ==============
  690. if test -f 'file_sel.h' -a X"$1" != X"-c"; then
  691.     echo 'x - skipping file_sel.h (File already exists)'
  692.     rm -f _shar_wnt_.tmp
  693. else
  694. > _shar_wnt_.tmp
  695. echo 'x - extracting file_sel.h (Text)'
  696. sed 's/^X//' << 'SHAR_EOF' > 'file_sel.h' &&
  697. /* xtexcad  V1.2 - graphic editor for LaTeX */
  698. /* 1991 by K.Zitzmann */
  699. /* header-file file_sel.h */
  700. X
  701. #ifndef FILE_SELH
  702. #define FILE_SELH
  703. X
  704. X
  705. X
  706. X
  707. int Is_direct(char *name);
  708. short count_eintraege(void);
  709. int match(char *sstring,char *pattern);
  710. String *directory_erstellen(short anzahl);
  711. void direct_to_list(void);
  712. void Ok_geklickt(Widget w ,caddr_t client_data,caddr_t call_data);
  713. void Ok2_geklickt(Widget widget,XEvent *event,String *params,Cardinal *n_params);
  714. void Path_changed(Widget widget,XEvent *event,String *params,Cardinal *n_params);
  715. void Path_leave(Widget widget,XEvent *event,String *params,Cardinal *n_params);
  716. void Patt_change(Widget widget,XEvent *event,String *params,Cardinal *n_params);
  717. void Cancel_geklickt(Widget w,caddr_t client_data,caddr_t call_data);
  718. void File_gewaehlt(Widget w,caddr_t client_data,caddr_t call_data);
  719. char *center(char *zeile,short laenge);
  720. void Dummy(Widget widget,XEvent *event,String *params,Cardinal *n_params);
  721. Widget init_file_select(Widget w);
  722. char *file_select(char *patt,char *titel);
  723. X
  724. X
  725. #endif
  726. X
  727. X
  728. X
  729. X
  730. X
  731. X
  732. SHAR_EOF
  733. chmod 0644 file_sel.h ||
  734. echo 'restore of file_sel.h failed'
  735. Wc_c="`wc -c < 'file_sel.h'`"
  736. test 1046 -eq "$Wc_c" ||
  737.     echo 'file_sel.h: original size 1046, current size' "$Wc_c"
  738. rm -f _shar_wnt_.tmp
  739. fi
  740. # ============= graphics.c ==============
  741. if test -f 'graphics.c' -a X"$1" != X"-c"; then
  742.     echo 'x - skipping graphics.c (File already exists)'
  743.     rm -f _shar_wnt_.tmp
  744. else
  745. > _shar_wnt_.tmp
  746. echo 'x - extracting graphics.c (Text)'
  747. sed 's/^X//' << 'SHAR_EOF' > 'graphics.c' &&
  748. /* xtexcad  V1.2 - graphic editor for LaTeX */
  749. /* 1991 by K.Zitzmann */
  750. /* graphics.c */
  751. X
  752. #include "x_stuff.h"
  753. #include "oberfl.h"
  754. #include "ereignis.h"
  755. #include "io_trans.h"
  756. #include "graphics.h"
  757. #include <math.h>
  758. #include <ctype.h>
  759. X
  760. X
  761. X
  762. X
  763. X
  764. int black_white_patch = (1==0); /* JM */
  765. X
  766. X
  767. X
  768. /* the LaTeX-dilemma : restricted slopes, length and diameters */
  769. X
  770. /* possible line slopes */
  771. /*
  772. X * the constants indicate the possible values for the numerator or
  773. X * denominator of the fraction which represents the slope, i.e "6" means,
  774. X * values from -6 to 6
  775. X */
  776. /*
  777. X * convention : some TeX implementations support unlimited slopes, diameters
  778. X * and length. This might be indicated by changing the r-value to 0 !!!
  779. X */
  780. X
  781. int             line_slope = 6;
  782. int             slope_line = 6;    /* a copy */
  783. int             arrow_slope = 4;
  784. int             slope_arrow = 4;    /* a copy */
  785. int             line_length = 10;    /* each line/arrow must be 10 points
  786. X                     * long */
  787. /* const circle_diameter[0]={-1}; */
  788. /* diameters must! be sorted by size */
  789. /* -1 is an end-marker */
  790. int             circle_diameter[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 20, 24, 28, 32, 36, 40, -1};
  791. int             disc_diameter[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, -1};
  792. int             rast_height = 40;
  793. X
  794. float           l_slope[30][3];    /* static !!! depends on 'line_slope' !!!! */
  795. float           a_slope[20][3];    /* dito! */
  796. Boolean         visible;
  797. int        ab=-9;
  798. Widget        muschel; /* popup-shell for textedit */
  799. Widget        fb_muschel; /* popup-shell ... */
  800. Widget        db_muschel; /* popup-shell ... */
  801. X
  802. struct textdel {
  803. X        Widget tg; /* pointer to the togglewidget */
  804. X        void *obj; /* pointer to text */
  805. X        } mem[10];        
  806. X
  807. X
  808. X
  809. X
  810. X
  811. void
  812. transform(char *name)
  813. {
  814. X    /* eliminates all special characters in this string */
  815. X
  816. X    char           *buffer;
  817. X    int             i, k, name_length;
  818. X
  819. X
  820. X
  821. X    name_length = strlen(name);
  822. X
  823. X    buffer = (char *) malloc(name_length + 1);
  824. X
  825. X    strcpy(buffer, name);
  826. X
  827. X    for (i = 0, k = 0; (i <= name_length), (buffer[i] != '\0'); i++)
  828. X    {
  829. X        if (isprint(buffer[i]))
  830. X            name[k++] = buffer[i];
  831. X    }
  832. X
  833. X    if (name[k - 1] != '\0')
  834. X        name[k] = '\0';
  835. X
  836. X    free(buffer);
  837. X
  838. X
  839. }
  840. X
  841. X
  842. X
  843. X
  844. X
  845. void
  846. make_GCcontext()
  847. {
  848. X    /* make a GC */
  849. X
  850. X    XGCValues       gcvals;
  851. X    Display        *disp=XtDisplay(toplevel);
  852. X    Drawable        win=(Drawable)XtWindow(toplevel);
  853. X    unsigned long   maske;
  854. X    char            d_list[5];
  855. X    Screen        *scr=XtScreen(toplevel);
  856. X
  857. X
  858. X    gcvals.foreground = BlackPixel(disp,XScreenNumberOfScreen(scr));
  859. X    gcvals.background = WhitePixel(disp,XScreenNumberOfScreen(scr));
  860. X    gcvals.line_width = 0;
  861. X    gcvals.plane_mask = AllPlanes;
  862. X    gcvals.line_style = LineSolid;
  863. X    gcvals.cap_style = CapButt;
  864. X    gcvals.join_style = JoinMiter;
  865. X    gcvals.fill_style = FillSolid;
  866. X    gcvals.fill_rule = WindingRule;
  867. X    gcvals.dash_offset = 5;
  868. X    
  869. X    /* gcvals.function = GXxor; */ 
  870. X    /* JM */ 
  871. X    /* starts here... */
  872. X    black_white_patch = (gcvals.foreground == 0);
  873. X    if (black_white_patch)
  874. X        gcvals.function = GXequiv;
  875. X    else
  876. X        gcvals.function = GXxor;
  877. X    /* ...ends here ! */
  878. X
  879. X    maske = (GCForeground | GCBackground | GCLineWidth | GCLineWidth |
  880. X    GCPlaneMask | GCLineStyle | GCCapStyle | GCJoinStyle | GCFillStyle |
  881. X         GCFillRule | GCDashOffset | GCFunction);
  882. X
  883. X
  884. X    gc = XCreateGC(disp, win, maske, &gcvals);
  885. X
  886. X    /* for dashed lines only */
  887. X    copy_gc = XCreateGC(disp, win, maske, &gcvals);
  888. X
  889. X    d_list[0] = 3;
  890. X    d_list[1] = 10;
  891. X    d_list[2] = '\0';
  892. X    XSetLineAttributes(disp, copy_gc, 0, LineOnOffDash, CapButt, JoinMiter);
  893. X    XSetDashes(disp, copy_gc, 0, d_list, strlen(d_list));
  894. X
  895. X
  896. X
  897. }
  898. X
  899. X
  900. void
  901. PointerPosition(int *x, int *y, unsigned int *mask)
  902. {
  903. X    /* return the (relative) coordinates of the pointer in pboard */
  904. X    /* XQueryPointer returns origin-coordinates: (-1,-1) !!! */
  905. X    /* origin is top-left */
  906. X
  907. X    Display        *disp;
  908. X    Window          win, egal1, egal2;
  909. X    int             h, v;
  910. X    Bool            result;
  911. X    disp = XtDisplay(pboard);
  912. X    win = XtWindow(pboard);
  913. X    result = XQueryPointer(disp, win, &egal1, &egal2, &h, &v, x, y, mask);
  914. X    /* important parameters are disp,win,x,y */
  915. X    /* result==False is an impossible error ! */
  916. X    /* corrections of origin : */
  917. X
  918. X    if ((*x) < 0)
  919. X        x = 0;
  920. X    if ((*y) < 0)
  921. X        y = 0;
  922. X
  923. X
  924. }/* function returns the x,y coordinates of the pointer in pboard */
  925. X
  926. X
  927. void
  928. snapPointerPosition(int *x, int *y, unsigned int *mask)
  929. {
  930. X    PointerPosition(x, y, mask);
  931. X    if ((snap == True) && (raster == True))
  932. X        valid_snap_coords(x, y);
  933. }
  934. X
  935. X
  936. void
  937. valid_snap_coords(int *x, int *y)
  938. {
  939. X    /* compute the coordinates of the nearest raster-node */
  940. X    int             res, h = rast_height;
  941. X    float           a, b;
  942. X    a = (float) (*x);
  943. X    b = (float) (*y);
  944. X
  945. X    if (zoomed == True)
  946. X        zoomed2real(&a, &b);
  947. X
  948. X    (*x) = (int) a;
  949. X    (*y) = (int) b;
  950. X
  951. X    res = (h / 2 + (*x)) / h;
  952. X    (*x) = res * h;
  953. X
  954. X    res = (h / 2 + (*y)) / h;
  955. X    (*y) = res * h;
  956. X
  957. X
  958. X    a = (float) (*x);
  959. X    b = (float) (*y);
  960. X
  961. X    if (zoomed == True)
  962. X        real2zoomed(&a, &b);
  963. X
  964. X    (*x) = (int) a;
  965. X    (*y) = (int) b;
  966. X
  967. X
  968. }
  969. X
  970. X
  971. void
  972. set_TM_btn1_first(Widget w, XEvent * event, String * id, Cardinal * num)
  973. {
  974. X    switch (graph_action)
  975. X    {
  976. X    case 'Z':set_zoom_window();
  977. X        break;
  978. X
  979. X    case 'T':
  980. X        set_text_input();
  981. X        break;
  982. X
  983. X    case 'P':
  984. X        set_pick_object();
  985. X        break;
  986. X
  987. X    case 'Y':
  988. X        set_copy_object();
  989. X        break;
  990. X
  991. X    case 'G':
  992. X        set_pick_erase();
  993. X        break;
  994. X
  995. X    default:
  996. X        set_first();
  997. X        break;
  998. X    }
  999. }
  1000. X
  1001. X
  1002. void
  1003. set_first()
  1004. {
  1005. X    /* sets the translation manager of pboard */
  1006. X    /* if button is pressed, execute the function */
  1007. X
  1008. X    /* Override Translation Manager */
  1009. X    XtTranslations  trans_table;
  1010. X    char            destination[80] = "<Btn1Down>: btn1_press_first()";
  1011. X    static XtActionsRec actions[80] = {{"btn1_press_first", btn1_press_first}};
  1012. X    XtAddActions(actions, XtNumber(actions));
  1013. X    trans_table = XtParseTranslationTable(destination);
  1014. X    XtOverrideTranslations(pboard, trans_table);
  1015. X
  1016. }
  1017. X
  1018. void
  1019. set_text_input()
  1020. {
  1021. X    /* does the same (as the function above) for 'text' */
  1022. X    /* Override Translation Manager */
  1023. X    XtTranslations  trans_table;
  1024. X    char            destination[80] = "<Btn1Down>: manage_text_input()";
  1025. X    static XtActionsRec actions[80] = {{"manage_text_input", manage_text_input}};
  1026. X    XtAddActions(actions, XtNumber(actions));
  1027. X    trans_table = XtParseTranslationTable(destination);
  1028. X    XtOverrideTranslations(pboard, trans_table);
  1029. X
  1030. }
  1031. X
  1032. void print_head(char ch)
  1033. {
  1034. X  char txt[80];
  1035. X
  1036. X    strcpy(txt, titlename);
  1037. X    strcat(txt, "  :  ");
  1038. X
  1039. X    switch (ch)
  1040. X    {
  1041. X        case 'L':strcat(txt,"#### Line ####");
  1042. X             break;
  1043. X        case 'I':strcat(txt,"#### Bezier ####");
  1044. X             break;
  1045. X        case 'V':strcat(txt,"#### Vector ####");
  1046. X             break;
  1047. X        case 'N':strcat(txt,"#### Box --> framed ####");
  1048. X             break;
  1049. X        case 'D':strcat(txt,"#### Box --> dashed ####");
  1050. X             break;
  1051. X        case 'F':strcat(txt,"#### Box --> filled ####");
  1052. X             break;
  1053. X        case 'O':strcat(txt,"#### Circle --> oval ####");
  1054. X             break;
  1055. X        case 'C':strcat(txt,"#### Circle --> normal ####");
  1056. X             break;
  1057. X        case 'B':strcat(txt,"#### Circle --> filled ####");
  1058. X             break;
  1059. X        default :strcat(txt,titlename);
  1060. X             break;
  1061. X    }
  1062. X    
  1063. X    headline(toplevel,txt);
  1064. X
  1065. }
  1066. X
  1067. X
  1068. void
  1069. leave_translation()
  1070. {
  1071. X  char              destination[80] = "<LeaveWindow> : left() \n";
  1072. X  static         XtActionsRec actions[80] = {{"left", left}};
  1073. X  XtTranslations      trans_table;
  1074. X
  1075. X
  1076. X    XtAddActions(actions, XtNumber(actions));
  1077. X    trans_table = XtParseTranslationTable(destination);
  1078. X    XtOverrideTranslations(pboard, trans_table);
  1079. }
  1080. X
  1081. X
  1082. void
  1083. newline()
  1084. {
  1085. X  char ch;
  1086. X  
  1087. X    /* button 3 or 4 was pressed, start drawing a new line (object) */
  1088. X
  1089. X    XtUninstallTranslations(pboard);    
  1090. X
  1091. X    leave_translation();
  1092. X    ch=graph_action;
  1093. X    leaving();
  1094. X    leave_translation();
  1095. X    print_head(ch);
  1096. X    graph_action=ch;
  1097. X    set_first();
  1098. X    
  1099. }
  1100. X 
  1101. X
  1102. X
  1103. void
  1104. btn1_press_first(Widget w, XEvent * event, String * id, Cardinal * num)
  1105. {
  1106. X    /* ------------------------------------------------------------- */
  1107. X    /* btn1 in pboard was pressed for the first time */
  1108. X    /* ------------------------------------------------------------- */
  1109. X
  1110. X    XtTranslations  trans_table;
  1111. X    char            destination[80] = "<LeaveNotify>: leaving()";
  1112. X    char            destination2[80] = "<Btn2Down>: newline()\n\
  1113. X                        <Btn3Down>: newline()\n";
  1114. X    static XtActionsRec actions[80] = {{"leaving", leaving},
  1115. X                       {"newline", newline}
  1116. X                      };
  1117. X    int             x, y;
  1118. X    unsigned int    mask;
  1119. X
  1120. X
  1121. X
  1122. X
  1123. X    /* get the position of the pointer */
  1124. X    snapPointerPosition(&x, &y, &mask);
  1125. X
  1126. X    /* install interrupt-action */
  1127. X    XtAddActions(actions, XtNumber(actions));
  1128. X    trans_table = XtParseTranslationTable(destination);
  1129. X    XtOverrideTranslations(pboard, trans_table);
  1130. X    trans_table = XtParseTranslationTable(destination2);
  1131. X    XtOverrideTranslations(pboard, trans_table);
  1132. X
  1133. X
  1134. X
  1135. X
  1136. X    /* prepare the 2nd btn1-press */
  1137. X    set_TM_btn1_second();
  1138. X
  1139. X
  1140. X
  1141. X
  1142. X    /* store the coordinates */
  1143. X    switch (graph_action)
  1144. X    {
  1145. X    case 'I':
  1146. X        if (bezier_start == NULL)
  1147. X        {    /* first entry */
  1148. X            bezier_start = (struct fig6 *) malloc(sizeof(bezier));
  1149. X            bezier_curr = bezier_start;
  1150. X        } else
  1151. X        {    /* insert at end */
  1152. X            bezier_curr->next = (struct fig6 *) malloc(sizeof(bezier));
  1153. X            bezier_curr = bezier_curr->next;
  1154. X        }
  1155. X        bezier_curr->ax = (float) x;
  1156. X        bezier_curr->ay = (float) y;
  1157. X        bezier_curr->ex= -999.0;    /* special marker */
  1158. X        bezier_curr->next = NULL;
  1159. X        break;    /* bezier_curr points to (incomplete) structure */
  1160. X
  1161. X    case 'L':
  1162. X        if (strich_start == NULL)
  1163. X        {    /* first entry */
  1164. X            strich_start = (struct fig2 *) malloc(sizeof(strich));
  1165. X            strich_curr = strich_start;
  1166. X        } else
  1167. X        {    /* insert at end */
  1168. X            strich_curr->next = (struct fig2 *) malloc(sizeof(strich));
  1169. X            strich_curr = strich_curr->next;
  1170. X        }
  1171. X        strich_curr->x = (float) x;
  1172. X        strich_curr->y = (float) y;
  1173. X        strich_curr->h = -999.0;    /* special marker */
  1174. X        strich_curr->next = NULL;
  1175. X        break;    /* strich_curr points to (incomplete) structure */
  1176. X
  1177. X    case 'V':
  1178. X        if (pfeil_start == NULL)
  1179. X        {    /* first entry */
  1180. X            pfeil_start = (struct fig2 *) malloc(sizeof(pfeil));
  1181. X            pfeil_curr = pfeil_start;
  1182. X        } else
  1183. X        {    /* insert at end */
  1184. X            pfeil_curr->next = (struct fig2 *) malloc(sizeof(pfeil));
  1185. X            pfeil_curr = pfeil_curr->next;
  1186. X        }
  1187. X        pfeil_curr->x = (float) x;
  1188. X        pfeil_curr->y = (float) y;
  1189. X        pfeil_curr->h = -999.0;     /* special marker */
  1190. X        pfeil_curr->next = NULL;
  1191. X        break;    /* pfeil_curr points to (incomplete) structure */
  1192. X
  1193. X    case 'N':
  1194. X        if (framedBox_start == NULL)
  1195. X        {    /* first entry */
  1196. X            framedBox_start = (struct fig3 *) malloc(sizeof(framedBox));
  1197. X            framedBox_curr = framedBox_start;
  1198. X        } else
  1199. X        {    /* insert at end */
  1200. X            framedBox_curr->next = (struct fig3 *) malloc(sizeof(framedBox));
  1201. X            framedBox_curr = framedBox_curr->next;
  1202. X        }
  1203. X        framedBox_curr->x = (float) x;
  1204. X        framedBox_curr->y = (float) y;
  1205. X        framedBox_curr->h = -999;    /* special marker */
  1206. X        framedBox_curr->next = NULL;
  1207. X        break;    /* framedBox_curr points to (incomplete) structure */
  1208. X
  1209. X    case 'D':
  1210. X        if (dashedBox_start == NULL)
  1211. X        {    /* first entry */
  1212. X            dashedBox_start = (struct fig4 *) malloc(sizeof(dashedBox));
  1213. X            dashedBox_curr = dashedBox_start;
  1214. X        } else
  1215. X        {    /* insert at end */
  1216. X            dashedBox_curr->next = (struct fig4 *) malloc(sizeof(dashedBox));
  1217. X            dashedBox_curr = dashedBox_curr->next;
  1218. X        }
  1219. X        dashedBox_curr->x = (float) x;
  1220. X        dashedBox_curr->y = (float) y;
  1221. X        dashedBox_curr->h = -999;    /* special marker */
  1222. X        dashedBox_curr->next = NULL;
  1223. X        break;    /* dashedBox_curr points to (incomplete) structure */
  1224. X
  1225. X    case 'F':
  1226. X        if (filledBox_start == NULL)
  1227. X        {    /* first entry */
  1228. X            filledBox_start = (struct fig2 *) malloc(sizeof(filledBox));
  1229. X            filledBox_curr = filledBox_start;
  1230. X        } else
  1231. X        {    /* insert at end */
  1232. X            filledBox_curr->next = (struct fig2 *) malloc(sizeof(filledBox));
  1233. X            filledBox_curr = filledBox_curr->next;
  1234. X        }
  1235. X        filledBox_curr->x = (float) x;
  1236. X        filledBox_curr->y = (float) y;
  1237. X        filledBox_curr->h = -999;    /* special marker */
  1238. X        filledBox_curr->next = NULL;
  1239. X        break;    /* filledBox_curr points to (incomplete) structure */
  1240. X
  1241. X    case 'C':
  1242. X        if (kreis_start == NULL)
  1243. X        {    /* first entry */
  1244. X            kreis_start = (struct fig2 *) malloc(sizeof(kreis));
  1245. X            kreis_curr = kreis_start;
  1246. X        } else
  1247. X        {    /* insert at end */
  1248. X            kreis_curr->next = (struct fig2 *) malloc(sizeof(kreis));
  1249. X            kreis_curr = kreis_curr->next;
  1250. X        }
  1251. X        kreis_curr->x = (float) x;
  1252. X        kreis_curr->y = (float) y;
  1253. X        kreis_curr->h = -999;    /* special marker */
  1254. X        kreis_curr->next = NULL;
  1255. X        break;    /* kreis_curr points to (incomplete) structure */
  1256. X
  1257. X    case 'B':
  1258. X        if (disc_start == NULL)
  1259. X        {    /* first entry */
  1260. X            disc_start = (struct fig2 *) malloc(sizeof(disc));
  1261. X            disc_curr = disc_start;
  1262. X        } else
  1263. X        {    /* insert at end */
  1264. X            disc_curr->next = (struct fig2 *) malloc(sizeof(disc));
  1265. X            disc_curr = disc_curr->next;
  1266. X        }
  1267. X        disc_curr->x = (float) x;
  1268. X        disc_curr->y = (float) y;
  1269. X        disc_curr->h = -999;    /* special marker */
  1270. X        disc_curr->next = NULL;
  1271. X        break;    /* disc_curr points to (incomplete) structure */
  1272. X
  1273. X    case 'O':
  1274. X        if (oval_start == NULL)
  1275. X        {    /* first entry */
  1276. X            oval_start = (struct fig1 *) malloc(sizeof(oval));
  1277. X            oval_curr = oval_start;
  1278. X        } else
  1279. X        {    /* insert at end */
  1280. X            oval_curr->next = (struct fig1 *) malloc(sizeof(oval));
  1281. X            oval_curr = oval_curr->next;
  1282. X        }
  1283. X        oval_curr->x = (float) x;
  1284. X        oval_curr->y = (float) y;
  1285. X        oval_curr->h = -999;    /* special marker */
  1286. X        oval_curr->next = NULL;
  1287. X        break;    /* oval_curr points to (incomplete) structure */
  1288. X
  1289. X    default:
  1290. X        break;
  1291. X    }    /* switch */
  1292. X
  1293. X    enable_tracker();
  1294. X
  1295. X
  1296. }
  1297. X
  1298. X
  1299. X
  1300. X
  1301. X
  1302. void
  1303. set_TM_btn1_second()
  1304. {
  1305. X    /*
  1306. X     * btn1 was pressed for the first time in pboard. Now, prepare the
  1307. X     * second btn1-press
  1308. X     */
  1309. X
  1310. X    /* Override Translation Manager */
  1311. X    XtTranslations  trans_table;
  1312. X    char            destination[80] = "<Btn1Down>: btn1_press_second()";
  1313. X    static XtActionsRec actions[80] = {{"btn1_press_second", btn1_press_second}};
  1314. X    XtAddActions(actions, XtNumber(actions));
  1315. X    trans_table = XtParseTranslationTable(destination);
  1316. X    XtOverrideTranslations(pboard, trans_table);
  1317. }
  1318. X
  1319. X
  1320. X
  1321. void
  1322. btn1_press_second(Widget w, XEvent * event, String * id, Cardinal * num)
  1323. {
  1324. X    /* button was pressed in pboard (for the 2nd time) */
  1325. X    int             x, y, r;
  1326. X    float           a1, a2, e1, e2;
  1327. X    Display        *disp;
  1328. X    Drawable        win;
  1329. X    char         ch=graph_action;
  1330. X    int        lenn=81;
  1331. X
  1332. X
  1333. X    disp = XtDisplay(pboard);
  1334. X    win = XtWindow(pboard);
  1335. X
  1336. X    track_it(&x, &y);    /* the rubber-band-tracker */
  1337. X
  1338. X
  1339. X    switch (graph_action)
  1340. X    {
  1341. X    case 'I':
  1342. X        /* bezier_curr points to incomplete srtucture */
  1343. X        XtUninstallTranslations(pboard);
  1344. X        bezier_curr->ex = (float) x;
  1345. X        bezier_curr->ey = (float) y;
  1346. X        /* delete the line */
  1347. X        XDrawLine(disp,win,gc,(int)bezier_curr->ax,(int)bezier_curr->ay,(int)x,(int)y);
  1348. X        if (zoomed == True)
  1349. X        {
  1350. X            /* translate first coordinate to real-system */
  1351. X            zoomed2real(&bezier_curr->ax,&bezier_curr->ay);
  1352. X            /* translate second coordinate to real-system */
  1353. X            zoomed2real(&bezier_curr->ex,&bezier_curr->ey);
  1354. X        }
  1355. X        bezier_curr->sx=-999.0; /* special marker */
  1356. X        set_lastBezier_press(); /* watch 3rd btn1-press */
  1357. X        break;
  1358. X
  1359. X    case 'L':    /* correct coordinates */
  1360. X        valid_line_coords((int) strich_curr->x, (int) strich_curr->y, &x, &y);
  1361. X        /* strich_curr points to incomplete srtucture */
  1362. X        strich_curr->h = (float) x;
  1363. X        strich_curr->v = (float) y;
  1364. X        if (zoomed == True)
  1365. X        {
  1366. X            /* translate first coordinate to real-system */
  1367. X            a1 = strich_curr->x;
  1368. X            a2 = strich_curr->y;
  1369. X            zoomed2real(&a1, &a2);
  1370. X            strich_curr->x = a1;
  1371. X            strich_curr->y = a2;
  1372. X
  1373. X            /* translate second coordinate to real-system */
  1374. X
  1375. X            e1 = strich_curr->h;
  1376. X            e2 = strich_curr->v;
  1377. X            zoomed2real(&e1, &e2);
  1378. X            strich_curr->h = e1;
  1379. X            strich_curr->v = e2;
  1380. X        }
  1381. X        /* create new struct */
  1382. X        strich_curr->next = (struct fig2 *) malloc(sizeof(strich));
  1383. X        strich_curr = strich_curr->next;
  1384. X        strich_curr->x = (float) x;
  1385. X        strich_curr->y = (float) y;
  1386. X        strich_curr->h = -999;    /* special marker */
  1387. X        strich_curr->next = NULL;
  1388. X        break;    /* strich_curr points to (incomplete) structure */
  1389. X
  1390. X    case 'V':    /* correct coordinates */
  1391. X        valid_vector_coords((int) pfeil_curr->x, (int) pfeil_curr->y, &x, &y);
  1392. X        /* pfeil_curr points to incomplete srtucture */
  1393. X        pfeil_curr->h = (float) x;
  1394. X        pfeil_curr->v = (float) y;
  1395. X        draw_vector_marker(pfeil_curr->x, pfeil_curr->y, pfeil_curr->h, pfeil_curr->v);
  1396. X        if (zoomed == True)
  1397. X        {
  1398. X            /* translate first coordinate to real-system */
  1399. X            a1 = pfeil_curr->x;
  1400. X            a2 = pfeil_curr->y;
  1401. X            zoomed2real(&a1, &a2);
  1402. X            pfeil_curr->x = a1;
  1403. X            pfeil_curr->y = a2;
  1404. X
  1405. X            /* translate second coordinate to real-system */
  1406. X
  1407. X            e1 = pfeil_curr->h;
  1408. X            e2 = pfeil_curr->v;
  1409. X            zoomed2real(&e1, &e2);
  1410. X            pfeil_curr->h = e1;
  1411. X            pfeil_curr->v = e2;
  1412. X        }
  1413. X        /* create new struct */
  1414. X        pfeil_curr->next = (struct fig2 *) malloc(sizeof(pfeil));
  1415. X        pfeil_curr = pfeil_curr->next;
  1416. X        pfeil_curr->x = (float) x;
  1417. X        pfeil_curr->y = (float) y;
  1418. X        pfeil_curr->h = -999;    /* special marker */
  1419. X        pfeil_curr->next = NULL;
  1420. X        break;    /* pfeil_curr points to (incomplete) structure */
  1421. X
  1422. X    case 'N':    /* framedBox_curr points to incomplete structure */
  1423. X        /* forget translations */
  1424. X        XtUninstallTranslations(pboard); 
  1425. X        framedBox_curr->h = (float) x;
  1426. X        framedBox_curr->v = (float) y;
  1427. X        norm_rectangle(&framedBox_curr->x, &framedBox_curr->y,
  1428. X                   &framedBox_curr->h, &framedBox_curr->v);
  1429. X        if (zoomed == True)
  1430. X        {
  1431. X            /* translate first coordinate to real-system */
  1432. X            a1 = framedBox_curr->x;
  1433. X            a2 = framedBox_curr->y;
  1434. X            zoomed2real(&a1, &a2);
  1435. X            framedBox_curr->x = a1;
  1436. X            framedBox_curr->y = a2;
  1437. X
  1438. X            /* translate second coordinate to real-system */
  1439. X
  1440. X            e1 = framedBox_curr->h;
  1441. X            e2 = framedBox_curr->v;
  1442. X            zoomed2real(&e1, &e2);
  1443. X            framedBox_curr->h = e1;
  1444. X            framedBox_curr->v = e2;
  1445. X        }
  1446. X        /* ask for text in box */
  1447. X        txtpos[0] = 'X';
  1448. X        txtpos[1] = 'X';
  1449. X        query_box_text_and_position();
  1450. X        /* now, txtpos contains the position of the text in your box */
  1451. X        /* boxinput contains the text-string */
  1452. X        if (txtpos[0] == '?')    /* cancel option */
  1453. X            leaving();
  1454. X        else
  1455. X        {
  1456. X            if (lenn<1+strlen(boxinput)) lenn=1+strlen(boxinput);
  1457. X            framedBox_curr->text = (char *) malloc(lenn);
  1458. X            strcpy(framedBox_curr->text, boxinput);
  1459. X            strcpy(framedBox_curr->textpos, txtpos);
  1460. X            /* draw the shadow-style */
  1461. X            draw_the_shadow((void *) framedBox_curr, nn);
  1462. X            /* the global variable <shadow> decides, which shadow */
  1463. X            /* will be drawn */
  1464. X            left();
  1465. X        }
  1466. X        graph_action='N';
  1467. X        print_head(graph_action);
  1468. X        leave_translation();
  1469. X        set_first();    
  1470. X        break;    /* framedBox terminated */
  1471. X
  1472. X    case 'D':    /* dashedBox_curr points to incomplete structure */
  1473. X        /* forget translations */
  1474. X        XtUninstallTranslations(pboard);
  1475. X        dashedBox_curr->h = (float) x;
  1476. X        dashedBox_curr->v = (float) y;
  1477. X        norm_rectangle(&dashedBox_curr->x, &dashedBox_curr->y,
  1478. X                   &dashedBox_curr->h, &dashedBox_curr->v);
  1479. X        if (zoomed == True)
  1480. X        {
  1481. X            /* translate first coordinate to real-system */
  1482. X            a1 = dashedBox_curr->x;
  1483. X            a2 = dashedBox_curr->y;
  1484. X            zoomed2real(&a1, &a2);
  1485. X            dashedBox_curr->x = a1;
  1486. X            dashedBox_curr->y = a2;
  1487. X
  1488. X            /* translate second coordinate to real-system */
  1489. X
  1490. X            e1 = dashedBox_curr->h;
  1491. X            e2 = dashedBox_curr->v;
  1492. X            zoomed2real(&e1, &e2);
  1493. X            dashedBox_curr->h = e1;
  1494. X            dashedBox_curr->v = e2;
  1495. X        }
  1496. X        /* ask for text in box */
  1497. X        txtpos[0] = 'X';
  1498. X        txtpos[1] = 'X';
  1499. X        query_box_text_and_position();
  1500. X        /* now, txtpos contains the position of the text in your box */
  1501. X        /* boxinput contains the text-string */
  1502. X        if (txtpos[0] == '?')    /* cancel option */
  1503. X            leaving();
  1504. X        else
  1505. X        {
  1506. X            if (lenn<1+strlen(boxinput)) lenn=1+strlen(boxinput);
  1507. X            dashedBox_curr->text = (char *) malloc(lenn);
  1508. X            strcpy(dashedBox_curr->text, boxinput);
  1509. X            strcpy(dashedBox_curr->textpos, txtpos);
  1510. X            dashedBox_curr->dashlength = 0.5;    /* constant */
  1511. X            /* draw the shadow-style */
  1512. X            draw_the_shadow((void *) dashedBox_curr, dd);
  1513. SHAR_EOF
  1514. true || echo 'restore of graphics.c failed'
  1515. fi
  1516. echo 'End of  part 2'
  1517. echo 'File graphics.c is continued in part 3'
  1518. echo 3 > _shar_seq_.tmp
  1519. exit 0
  1520. -- 
  1521. --
  1522. Molecular Simulations, Inc.            mail: dcmartin@msi.com
  1523. 796 N. Pastoria Avenue                uucp: uunet!dcmartin
  1524. Sunnyvale, California 94086            at&t: 408/522-9236
  1525.