Mac binaries

[jabaws.git] / website / archive / binaries / mac / src / fasta34 / FileDlog.c

diff --git a/website/archive/binaries/mac/src/fasta34/FileDlog.c b/website/archive/binaries/mac/src/fasta34/FileDlog.c
new file mode 100644 (file)
index 0000000..1820daf
--- /dev/null
+++ b/website/archive/binaries/mac/src/fasta34/FileDlog.c
@@ -0,0 +1,213 @@
+
+/* copyright (c) 1997 William R. Pearson */
+
+/* used only in Mac versions for file selection */
+/* should use navigation services if available */
+
+
+#include <Dialogs.h>
+#include <Fonts.h>
+#include <Types.h>
+#include <Gestalt.h>
+#include <Resources.h>
+#include <Controls.h>
+#include <StandardFile.h>
+#include <Files.h>
+#include <Folders.h>
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+
+#define NIL nil
+#define PauseID        301
+#define ExitID 302
+#define FileDID 204
+#define SFileDID 205
+
+void HiliteDlog(DialogPtr);
+
+SFTypeList tlist={'TEXT',0L,0L,0L};
+
+extern Point wpos;
+       
+FileDlog(prompt,freply)
+       char *prompt;
+       StandardFileReply *freply;
+{
+       Point dpos={-1,-1};
+       if (GetResource('DLOG',SFileDID)==NIL) {
+               fprintf(stderr," cannot load %d DLOG resource\n",SFileDID); exit(1);
+               }
+       CtoPstr(prompt);
+       ParamText((StringPtr)prompt,"\p","\p","\p");
+/*     SFPGetFile(wpos, (StringPtr)prompt, 0L,(short)1, tlist, 0L, freply, FileDID, NIL); */
+       CustomGetFile(NIL,
+                               -1,
+                               nil,
+                               freply,
+                               SFileDID,
+                               dpos,
+                               nil,
+                               nil,nil,nil,nil);
+
+       ParamText("\p","\p","\p","\p");
+       PtoCstr((StringPtr)prompt);
+       }
+       
+TFileDlog(prompt,freply,plist,nl)
+       char *prompt;
+       StandardFileReply *freply;
+       SFTypeList plist;
+       int nl;
+{
+       Point dpos={-1,-1};
+       if (GetResource('DLOG',SFileDID)==NIL) {
+               fprintf(stderr," cannot load %d TFile DLOG resource\n",SFileDID); exit(1);
+               }
+       CtoPstr(prompt);
+       ParamText((StringPtr)prompt,"\p","\p","\p");
+/*     SFPGetFile(wpos,(StringPtr)prompt,0L,(short)nl,plist,0L,freply,FileDID,NIL); */
+       CustomGetFile(NIL,
+                               nl,
+                               plist,
+                               freply,
+                               SFileDID,
+                               dpos,
+                               nil,
+                               nil,nil,nil,nil);
+       ParamText("\p","\p","\p","\p");
+       PtoCstr((StringPtr)prompt);
+       }
+
+SFileDlog(prompt,freply)
+       char *prompt;
+       StandardFileReply *freply;
+{
+       Point dpos={-1,-1};
+
+       if (GetResource('DLOG',SFileDID)==NIL) {
+               fprintf(stderr," cannot load %d DLOG resource\n",SFileDID); exit(1);
+               }
+
+       CtoPstr(prompt);
+       ParamText((StringPtr)prompt,"\p","\p","\p");
+
+/*     StandardGetFile(NIL,(short)1,tlist,freply); */
+       CustomGetFile(NIL,
+                               -1,
+                               nil,
+                               freply,
+                               SFileDID,
+                               dpos,
+                               nil,
+                               nil,nil,nil,nil);
+       ParamText("\p","\p","\p","\p");
+       PtoCstr((StringPtr)prompt);
+       }
+       
+STFileDlog(char *prompt, StandardFileReply *freply,
+          SFTypeList plist, int nl)
+{
+  Point dpos={-1,-1};
+
+  if (GetResource('DLOG',SFileDID)==NIL) {
+    fprintf(stderr," cannot load %d TFile DLOG resource\n",SFileDID); exit(1);
+  }
+  CtoPstr(prompt);
+  ParamText((StringPtr)prompt,"\p","\p","\p");
+
+  CustomGetFile(NIL,
+               -1,
+               nil,
+               freply,
+               SFileDID,
+               dpos,
+               nil,
+               nil,nil,nil,nil);
+  ParamText("\p","\p","\p","\p");
+  PtoCstr((StringPtr)prompt);
+}
+       
+PauseAlert(unsigned char *prompt)
+{
+  if (GetResource('DLOG',PauseID)==NIL) {
+    fprintf(stderr," cannot load %d TFile DLOG resource\n",PauseID); exit(1);
+  }
+  CtoPstr((char *)prompt);
+  ParamText(prompt,"\p","\p","\p");
+  CautionAlert(PauseID,NULL);
+  ParamText("\p","\p","\p","\p");
+}
+
+IntroDlog(int DlogID, unsigned char *prompt)
+{
+  short itemHit;
+  DialogPtr DP;
+
+  CtoPstr((char *)prompt);
+  ParamText(prompt,"\p","\p","\p");
+
+  if (GetResource('DLOG',DlogID)==NIL) {
+    fprintf(stderr," cannot load %d Intro DLOG resource\n",DlogID); exit(1);
+  }
+  DP = GetNewDialog(DlogID,NULL,(WindowPtr)-1);
+  ShowWindow(DP);
+  SelectWindow(DP);
+  HiliteDlog(DP);
+       
+  ModalDialog(0L,&itemHit);
+  DisposeDialog(DP);
+  ParamText("\p","\p","\p","\p");
+  PtoCstr(prompt);
+}
+
+NIntroDlog(int DlogID,unsigned char *p0,unsigned char *p1,
+          unsigned char *p2,unsigned char *p3)
+{
+  short itemHit;
+  DialogPtr DP;
+  unsigned char *p;
+
+  for (p=p0; *p; p++) if (*p=='\n') *p=' ';
+  for (p=p1; *p; p++) if (*p=='\n') *p=' ';
+  for (p=p2; *p; p++) if (*p=='\n') *p=' ';
+  for (p=p2; *p; p++) if (*p=='\n') *p=' ';
+
+  CtoPstr((char *)p0);
+  CtoPstr((char *)p1);
+  CtoPstr((char *)p2);
+  CtoPstr((char *)p3);
+  ParamText(p0,p1,p2,p3);
+
+  if (GetResource('DLOG',DlogID)==NIL) {
+    fprintf(stderr," cannot load %d Intro DLOG resource\n",DlogID); exit(1);
+  }
+  DP = GetNewDialog(DlogID,NULL,(WindowPtr)-1);
+  ShowWindow(DP);
+  SelectWindow(DP);
+  HiliteDlog(DP);
+       
+  ModalDialog(0L,&itemHit);
+  DisposeDialog(DP);
+  ParamText("\p","\p","\p","\p");
+  PtoCstr(p0);
+  PtoCstr(p1);
+  PtoCstr(p2);
+  PtoCstr(p3);
+}
+
+void
+HiliteDlog(DialogPtr DP)
+{
+  Rect tRect;
+  short  tType;
+  Handle tItem;
+
+  SetPort(DP);
+  GetDialogItem(DP,1,&tType,&tItem,&tRect);
+  PenSize(3, 3);               /* Change pen to draw thick default outline */
+  InsetRect(&tRect, -4, -4);           /* Draw outside the button by 1 pixel */
+  FrameRoundRect(&tRect, 16, 16); /* Draw the outline */
+  PenSize(1, 1);               /* Restore the pen size to the default value */
+}