home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DNet / DGoPrefs.cpp < prev    next >
Encoding:
Text File  |  1996-07-05  |  20.5 KB  |  723 lines  |  [TEXT/R*ch]
  1. // DGopherPrefs.cp
  2. // d.g.gilbert
  3.  
  4.  
  5.  
  6.  
  7. #include "DGoPrefs.h"
  8.  
  9. #include <ncbi.h>
  10. #include <dgg.h>
  11. #include <Dvibrant.h>
  12. #include <DApplication.h>
  13. #include <DGoDoc.h>
  14. #include <DGoNetDoc.h>
  15. #include <DGopher.h>
  16. //#include <DGoList.h>
  17. #include <DGoInit.h>
  18. //#include <DGoPlus.h>
  19. #include <DGoClasses.h>
  20. //#include <DPanel.h>
  21. #include <DControl.h>
  22. #include <DDialogText.h>
  23. #include <DWindow.h>
  24. #include <DMenu.h>
  25. #include <DFile.h>
  26. #include <DUtil.h>
  27. #include <DIconLib.h>  
  28. #include <stdio.h>
  29.  
  30.      // some public globals -- do these need to be public? -- yes to share w/ DGopherDoc
  31.      
  32. Global DGoviewPrefs* gGoviewPrefs = NULL;
  33. Global DGoOtherPrefs* gGoOtherPrefs = NULL;
  34.  
  35. Global    Boolean gShowKind = true, gShowPath = true, gShowHost = true, gShowPort = true, 
  36.                 gShowDate = true, gShowSize = true, gShowPlus = true, gShowAdmin = false, 
  37.                 gShowURL= false, gShowAbstract = true, gShowExtras = true, 
  38.                 gAllowLinkEdits = true, gWantFonts = false, gSameWindow = false;
  39.  
  40. Global Nlm_FonT gGoviewFont = NULL; //Nlm_programFont;
  41. Global short  gGoviewFontSize = 12;
  42. Global char    *gGoviewFontName = NULL;
  43. Global Nlm_Boolean gDoubleClicker = true;
  44. Global Nlm_Boolean gSingleClicker = false;
  45.  
  46.  
  47. #if 0
  48. Nlm_FonT     Nlm_GetFont PROTO((Nlm_CharPtr name, Nlm_Int2 size, Nlm_Boolean bld, Nlm_Boolean itlc, Nlm_Boolean undrln, Nlm_CharPtr fmly));
  49. Nlm_FonT     Nlm_ParseFont PROTO((Nlm_CharPtr spec));
  50. void         Nlm_SelectFont PROTO((Nlm_FonT f));
  51. Font Families that vibrant knows:
  52.         if (Nlm_StringICmp (fmly, "Roman") == 0) {
  53.         } else if (Nlm_StringICmp (fmly, "Swiss") == 0) {
  54.         } else if (Nlm_StringICmp (fmly, "Modern") == 0) {
  55.         } else if (Nlm_StringICmp (fmly, "Script") == 0) {
  56.         } else if (Nlm_StringICmp (fmly, "Decorative") == 0) {
  57. #endif
  58.  
  59.  
  60.  
  61.  
  62. //class DGoviewPrefs : public DWindow 
  63.  
  64.  
  65. enum DGoviewPrefCmds {
  66. cIfsz,cTfsz,cTtab,citem,cicoc,cicob,cIsi0,cIsi1,cIsi2,cicos,
  67. cIsz1,cIsz2,cIsz3,cattr,
  68. cDate,cSize,cKind,cPath,cHost,cPort,cURL,cAbstract,cAdmin,
  69. ccfnt,cIfnt,ctext,cTfnt
  70. };
  71.  
  72.  
  73. class DFontSizeControl : public DSwitchBox
  74. {
  75. public:
  76.     DGoviewPrefs*    fDoc;
  77.     
  78.     DFontSizeControl(long id, DView* super, DGoviewPrefs* itsDoc) :
  79.         DSwitchBox( id, super, true, true),
  80.         fDoc(itsDoc)
  81.         {
  82.         }
  83.         
  84.     virtual void Switch(short newval, short oldval)
  85.     {
  86.         switch (Id()) {
  87.             case cIfsz:
  88.                     gGoviewFontSize= newval;
  89.                     fDoc->fNeedSave= true;
  90.                     break;
  91.             case cTfsz:
  92.                     gTextFontSize= newval;
  93.                     fDoc->fNeedSave= true;
  94.                     break;
  95.             case cTtab:
  96.                     gTextTabStops= newval;
  97.                     fDoc->fNeedSave= true;
  98.                     break;
  99.             }
  100.     }
  101. };
  102.  
  103.  
  104.  
  105. DGoviewPrefs::DGoviewPrefs() :
  106.     DWindow( 0, NULL, DWindow::fixed, -10, -10, -50, -20, "View prefs", kDontFreeOnClose),
  107.     fGoFontMenu(NULL),
  108.     fTextFontMenu(NULL),
  109.     fNeedSave(false),
  110.     fItemGroup(NULL),
  111.     fTextGroup(NULL)
  112. {    
  113. }
  114.  
  115. DGoviewPrefs::~DGoviewPrefs()
  116. {
  117. }
  118.  
  119.  
  120. // static
  121. void DGoviewPrefs::InitGlobals() 
  122. { 
  123.     gGoviewFontName= gApplication->GetPref( "gGoviewFontName", "fonts", gGoviewFontName);
  124.     gGoviewFontSize= gApplication->GetPrefVal( "gGoviewFontSize", "fonts", "12");
  125.     gGoviewFont= Nlm_GetFont( gGoviewFontName, gGoviewFontSize, false, false, false, NULL);
  126.  
  127.     if (!gTextFont || !gTextFontName) {
  128.                 // DApplication::IApplication() now reads these ! 
  129.         gTextFontName= gApplication->GetPref( "gTextFontName", "fonts", gTextFontName);
  130.         gTextFontSize= gApplication->GetPrefVal( "gTextFontSize", "fonts", "12");
  131.         gTextTabStops= gApplication->GetPrefVal( "gTextTabStops", "fonts", "4");
  132.         gTextFont  = Nlm_GetFont( gTextFontName, gTextFontSize, false, false, false, NULL);
  133.         }
  134.     
  135.     gIconSize= gApplication->GetPrefVal( "gIconSize", "goview","2");
  136.     gShowDate= gApplication->GetPrefVal( "gShowDate", "goview","1");
  137.     gShowSize= gApplication->GetPrefVal( "gShowSize", "goview","1");
  138.     gShowKind= gApplication->GetPrefVal( "gShowKind", "goview");
  139.     gShowSize= gApplication->GetPrefVal( "gShowSize", "goview");
  140.     gShowPath= gApplication->GetPrefVal( "gShowPath", "goview");
  141.     gShowHost= gApplication->GetPrefVal( "gShowHost", "goview");
  142.     gShowPort= gApplication->GetPrefVal( "gShowPort", "goview");
  143.     gShowURL= gApplication->GetPrefVal( "gShowURL", "goview","0");
  144.     gShowAbstract= gApplication->GetPrefVal( "gShowAbstract", "goview","1");
  145.     gShowAdmin= gApplication->GetPrefVal( "gShowAdmin", "goview");
  146.     gShowExtras= (gShowURL||gShowDate||gShowSize||gShowHost||gShowPort
  147.                             ||gShowPath||gShowAdmin);
  148.  
  149. #ifndef NOTNOW_WIN_MOTIF
  150.     // gcc/motif bombs here w/ bus error
  151.     // deal with windowrect data also? -- gGopherListDocRect
  152.     {
  153.     char* srect = gApplication->GetPref( "gGopherListDocRect", "windows", "20 20 450 220");
  154.         // sscanf is failing on Mac/codewar !? used to work
  155. #if 1
  156.     if (srect) {
  157.         char* cp= srect;
  158.         while (*cp && isspace(*cp)) cp++;
  159.         gGopherListDocRect.left= atoi( cp);
  160.         
  161.         while (*cp && !isspace(*cp)) cp++;
  162.         while (*cp && isspace(*cp)) cp++;
  163.         gGopherListDocRect.top= atoi( cp);
  164.         
  165.         while (*cp && !isspace(*cp)) cp++;
  166.         while (*cp && isspace(*cp)) cp++;
  167.         gGopherListDocRect.right= atoi( cp);
  168.         
  169.         while (*cp && !isspace(*cp)) cp++;
  170.         while (*cp && isspace(*cp)) cp++;
  171.         gGopherListDocRect.bottom= atoi( cp);
  172.         }
  173. #else
  174.     if (srect) sscanf( srect, "%d%d%d%d", 
  175.                 &gGopherListDocRect.left, &gGopherListDocRect.top, 
  176.                 &gGopherListDocRect.right, &gGopherListDocRect.bottom);
  177. #endif
  178.     MemFree(srect);
  179.     }    
  180. #endif
  181. }
  182.  
  183. void DGoviewPrefs::SaveGlobals() 
  184. {
  185.  
  186. }
  187.  
  188. void DGoviewPrefs::Initialize() 
  189. { 
  190.     // InitGlobals(); // ??
  191.         
  192.                 // THIS dialog takes a while to build -- pre-make this dialog at startup??
  193.                 // build the dialog items now, before open, so we can keep a hidden window 
  194.                 // around all of applications life.
  195.                 
  196.     DView* super;
  197.     DEditText* et;
  198.     DPrompt* pr;
  199.     DCheckBox* ck;
  200.     DPopupList* popl;
  201.     DPopupMenu* popm;
  202.     DCluster * cluster, * subcluster;
  203.     DSwitchBox* sw;
  204.     
  205.         // dialog contents:
  206.         // top left -- cluster of 3 iconbuttons over 3 radio buttons, for icon size choice
  207.         // top right -- cluster of 3 rows x 2 cols of check boxes for show attributes
  208.         // bottom -- font popup, fontsize popup + edittext for item font
  209.  
  210.     fItemGroup= new DCluster(citem, this, 30, 10, false, "Item view");
  211.     super= fItemGroup;
  212.     
  213.         // top left -- cluster of 3 iconbuttons over 3 radio buttons, for icon size choice
  214.     
  215.     cluster= new DCluster(cicoc, super, 15, 5, true, NULL);
  216.     super= cluster;
  217.     if (gGopherIcons) {
  218.         DIcon* ico= NULL;
  219.         DIconButton* isize[3];
  220.         
  221.         subcluster= new DCluster(cicob, super, 15, 5, true, NULL);
  222.         super= subcluster;
  223.         
  224.         ico= gGopherIcons->IconById( kTextIcon+20000);  //tiny icon
  225.         isize[0]= new DIconButton(cIsi0, super, ico);
  226.         super->NextSubviewToRight();
  227.         ico= gGopherIcons->IconById( kTextIcon+10000);  //small icon
  228.         isize[1]= new DIconButton(cIsi1, super, ico);
  229.         super->NextSubviewToRight();
  230.         ico= gGopherIcons->IconById( kTextIcon);  //big icon
  231.         isize[2]= new DIconButton(cIsi2, super, ico);
  232.         
  233.         //isize[gIconSize]->SetStatus(true);
  234.         super= cluster;
  235.         super->NextSubviewBelowLeft();
  236.         }
  237.     
  238.     subcluster= new DCluster(cicos, super, 15, 5, true, NULL);
  239.     super= subcluster;
  240.     DRadioButton* rsize[3];
  241.     rsize[0]= new DRadioButton(cIsz1, super, NULL);
  242.     super->NextSubviewToRight();
  243.     rsize[1]= new DRadioButton(cIsz2, super, NULL);
  244.     super->NextSubviewToRight();
  245.     rsize[2]= new DRadioButton(cIsz3, super, NULL);
  246.     rsize[gIconSize]->SetStatus(true);
  247.     
  248.     
  249.         // top right -- cluster of 3 rows x 2 cols of check boxes for show attributes
  250.     super= fItemGroup;
  251.     super->NextSubviewToRight();
  252.     cluster= new DCluster(cattr, super, 15, 5, false, "Show attributes");
  253.     super= cluster;
  254.  
  255.     ck= new DCheckBox(cDate, super, "Date");
  256.     ck->SetStatus(gShowDate);
  257.     super->NextSubviewToRight();
  258.     ck= new DCheckBox(cSize, super, "Size");
  259.     ck->SetStatus(gShowSize);   
  260.     super->NextSubviewBelowLeft();
  261.  
  262.     ck= new DCheckBox(cKind, super, "Kind");
  263.     ck->SetStatus(gShowKind); 
  264.     super->NextSubviewToRight();
  265.     ck= new DCheckBox(cPath, super, "Path");
  266.     ck->SetStatus(gShowPath);   
  267.     super->NextSubviewBelowLeft();
  268.  
  269.     ck= new DCheckBox(cHost, super, "Host");
  270.     ck->SetStatus(gShowHost);
  271.     super->NextSubviewToRight();
  272.     ck= new DCheckBox(cPort, super, "Port");
  273.     ck->SetStatus(gShowPort);   
  274.     super->NextSubviewBelowLeft();
  275.  
  276.     ck= new DCheckBox(cURL, super, "URL");
  277.     ck->SetStatus(gShowURL);
  278.     super->NextSubviewToRight();
  279.     ck= new DCheckBox(cAbstract, super, "Abstract");
  280.     ck->SetStatus(gShowAbstract);   
  281.     super->NextSubviewBelowLeft();
  282.  
  283.     ck= new DCheckBox(cSize, super, "Admin");
  284.     ck->SetStatus(gShowAdmin);   
  285.     super->NextSubviewToRight();
  286.   // another check?
  287.     super->NextSubviewBelowLeft();
  288.     
  289.         // bottom -- font popup, fontsize popup + edittext for item font
  290.     super= fItemGroup;
  291.     super->NextSubviewBelowLeft();
  292.     cluster= new DCluster(ccfnt, super, 15, 5, true, NULL);
  293.     super= cluster;
  294.  
  295.     popm= new DPopupMenu(cIfnt, (Nlm_GrouP)super->GetNlmObject(), "Font  ");
  296.     fGoFontMenu= popm;
  297.     popm->AddFonts();
  298.     popm->SetFontChoice( gGoviewFontName); 
  299.     super->NextSubviewToRight();
  300.     
  301.     pr= new DPrompt(0, super, " font size", 0, 0, Nlm_programFont);             
  302.     super->NextSubviewToRight();
  303.     sw = new DFontSizeControl(cIfsz, super, this);
  304.     sw->SetValues(gGoviewFontSize,99);
  305.     
  306.     
  307.         // Text Group -- font, font size
  308.     super= this;
  309.     super->NextSubviewBelowLeft();
  310.  
  311.     fTextGroup= new DCluster(ctext, this, 30, 10, false, "Text view");
  312.     super= fTextGroup;
  313.  
  314.     popm= new DPopupMenu(cTfnt, (Nlm_GrouP)super->GetNlmObject(), "Font  ");
  315.     fTextFontMenu= popm;
  316.     popm->AddFonts();
  317.     popm->SetFontChoice( gTextFontName); 
  318.     super->NextSubviewToRight();
  319.     
  320.     cluster= new DCluster(0, super, 30, 10, true, NULL);
  321.     super= cluster;
  322.     
  323.     pr= new DPrompt(0, super, "font size", 0, 0, Nlm_programFont);             
  324.     super->NextSubviewToRight();
  325.     sw = new DFontSizeControl(cTfsz, super, this);
  326.     sw->SetValues(gTextFontSize,99);
  327.     super->NextSubviewBelowLeft();
  328.  
  329.     pr= new DPrompt(0, super, "tab stops", 0, 0, Nlm_programFont);             
  330.     super->NextSubviewToRight();
  331.     sw = new DFontSizeControl(cTtab, super, this);
  332.     sw->SetValues(gTextTabStops,99);
  333.  
  334.     super= fTextGroup;
  335.  
  336.     this->AddOkayCancelButtons();
  337.     
  338. }
  339.  
  340.  
  341. void DGoviewPrefs::OkayAction() 
  342. { 
  343.     // convert dialog control values to global values & app static/file prefs
  344.         
  345.     // font check not seen below...
  346.     
  347.     for (short imenu= 0; imenu<2; imenu++) {
  348.         short             aSize, nitem, i;
  349.         char            name[256];
  350.         DMenu     *    aMenu;
  351.         Nlm_FonT    aFont;
  352.         if (imenu) {
  353.             aMenu= fTextFontMenu; 
  354.             aSize= gTextFontSize;
  355.             }
  356.         else {
  357.             aMenu= fGoFontMenu; 
  358.             aSize= gGoviewFontSize;
  359.             }
  360.         if (aMenu && aMenu->GetFontChoice(name, 255)) {
  361.             if (StrCmp(name,"System")==0) aFont= Nlm_systemFont;
  362.             else if (StrCmp(name,"Program")==0) aFont= Nlm_programFont;
  363.             else aFont= Nlm_GetFont( name, aSize, false, false, false, NULL);
  364.             
  365.             if (aMenu == fGoFontMenu && StrCmp(name,gGoviewFontName)!=0 ) {
  366.                 if (gGoviewFontName) MemFree(gGoviewFontName);
  367.                 gGoviewFontName= StrDup(name);
  368.                 gGoviewFont= aFont;
  369.                 fNeedSave= true;
  370.                 }
  371.             else if (aMenu == fTextFontMenu &&  StrCmp(name,gTextFontName)!=0 ){
  372.                 if (gTextFontName) MemFree(gTextFontName);
  373.                 gTextFontName= StrDup(name);
  374.                 gTextFont= aFont;
  375.                 fNeedSave= true;
  376.                 }
  377.             }
  378.         }
  379.     
  380.         
  381.     DList* wins= gWindowManager->GetWindowList();
  382.     if (wins) {
  383.         long i, nwin= wins->GetSize();
  384.         for (i= 0; i<nwin; i++) {
  385.             DGopherListDoc* awin= (DGopherListDoc*) wins->At(i);
  386.             if (awin && awin->Id() == DGopherListDoc::kGoListdoc) {
  387.                 awin->fGoview->SetTableFont(gGoviewFont);
  388.                 awin->fGoview->SetColWidths();
  389.                 awin->fGoview->Invalidate();
  390.                 //awin->Erase(); awin->Show(); // why doesn't Invalidate() work ??
  391.                 }
  392.             }
  393.         }
  394.         
  395.  
  396.     if (fNeedSave) {
  397.         gApplication->SetPref( gGoviewFontName, "gGoviewFontName", "fonts");
  398.         gApplication->SetPref( gGoviewFontSize, "gGoviewFontSize", "fonts");
  399.         gApplication->SetPref( gTextFontName, "gTextFontName", "fonts");
  400.         gApplication->SetPref( gTextFontSize, "gTextFontSize", "fonts");
  401.         gApplication->SetPref( gTextTabStops, "gTextTabStops", "fonts");
  402.         
  403.         gApplication->SetPref( gIconSize, "gIconSize", "goview");
  404.         gApplication->SetPref( gShowDate, "gShowDate", "goview");
  405.         gApplication->SetPref( gShowSize, "gShowSize", "goview");
  406.         gApplication->SetPref( gShowKind, "gShowKind", "goview");
  407.         gApplication->SetPref( gShowPath, "gShowPath", "goview");
  408.         gApplication->SetPref( gShowHost, "gShowHost", "goview");
  409.         gApplication->SetPref( gShowPort, "gShowPort", "goview");
  410.         gApplication->SetPref( gShowURL, "gShowURL", "goview");
  411.         gApplication->SetPref( gShowAbstract, "gShowAbstract", "goview");
  412.         gApplication->SetPref( gShowAdmin, "gShowAdmin", "goview");
  413.  
  414.         fNeedSave= false;
  415.         }
  416. }
  417.  
  418.  
  419.  
  420. Boolean DGoviewPrefs::IsMyAction(DTaskMaster* action) 
  421. {    
  422.     DView*        aview= (DView*) action;
  423.     
  424.     switch(action->Id()) {
  425.             // these really should be done at OkayAction !??
  426.         case cicos: gIconSize= aview->GetValue() - 1; break;
  427.  
  428.         case cIsi0:
  429.         case cIsi1:
  430.         case cIsi2:
  431.             {
  432.             switch(action->Id()) {
  433.                 case cIsi0: gIconSize= 0; break;
  434.                 case cIsi1: gIconSize= 1; break;
  435.                 case cIsi2: gIconSize= 2; break;
  436.                 }
  437.             aview= fItemGroup->FindSubview(cicos);
  438.             if (aview) {
  439.                 aview->SetValue(gIconSize+1);
  440.                 aview->Invalidate();
  441.                 }
  442.             break; 
  443.             }
  444.             
  445.         case cDate: gShowDate= aview->GetStatus(); break;
  446.         case cSize: gShowSize= aview->GetStatus(); break;
  447.         case cKind: gShowKind= aview->GetStatus(); break;
  448.         case cPath: gShowPath= aview->GetStatus(); break;
  449.         case cHost: gShowHost= aview->GetStatus(); break;
  450.         case cPort: gShowPort= aview->GetStatus(); break;
  451.         case cURL: gShowURL= aview->GetStatus(); break;
  452.         case cAbstract: gShowAbstract= aview->GetStatus(); break;
  453.         case cAdmin: gShowAdmin= aview->GetStatus(); break;
  454.                                 
  455.         default : return DWindow::IsMyAction(action);    
  456.         }
  457.         
  458.     gShowExtras= (gShowURL||gShowDate||gShowSize||gShowHost||
  459.                                 gShowPort||gShowPath||gShowAdmin);
  460.     fNeedSave= true;
  461.     return true;
  462. }
  463.  
  464.  
  465. void DGoviewPrefs::Open()
  466. {
  467.     DWindow::Open();
  468. }
  469.  
  470.  
  471.  
  472.  
  473.  
  474. // class DGoOtherPrefs : public DWindow 
  475.  
  476.  
  477. enum GoOtherPrefsCmds {
  478.     kEditGopherMapHit = 4580,
  479.     kLocalRootHit, kLocalAskWaisHit,
  480.     kFetchSingles,
  481.     kClickerCluster,
  482.     kShortFolderCheck
  483.     };
  484.  
  485. DGoOtherPrefs::DGoOtherPrefs() :
  486.     DWindow( 0, NULL, DWindow::fixed, -10, -10, -50, -20, "Other prefs", kDontFreeOnClose),
  487.     fNeedSave(false),
  488.     fPlusGroup(NULL),
  489.     fMiscGroup(NULL),
  490.     fMapGroup(NULL),
  491.     fStartGroup(NULL),
  492.     fClickerGroup(NULL),
  493.     fNetGroup(NULL)
  494. {    
  495. }
  496.  
  497. DGoOtherPrefs::~DGoOtherPrefs()
  498. {
  499. }
  500.  
  501. void DGoOtherPrefs::OkayAction() 
  502. { 
  503.     // convert dialog control values to global values & app static/file prefs
  504.  
  505.     DCheckBox* ck;
  506.     ck= (DCheckBox*) this->FindSubview(kShortFolderCheck);
  507.     if (ck) gShortFolder= ck->GetStatus();
  508.  
  509.     //DGopherListDoc::gFetchSingles     
  510.     ck= (DCheckBox*) this->FindSubview(kFetchSingles);
  511.     if (ck) DGopherListDoc::gFetchSingles= ck->GetStatus();
  512.  
  513.     if (fClickerGroup) {
  514.         switch ( fClickerGroup->GetValue()) {
  515.             default:
  516.             case 1: gDoubleClicker= true; break;
  517.             case 2: gDoubleClicker= false; break;
  518.             }
  519.         gSingleClicker= ! gDoubleClicker;
  520.         }
  521. }
  522.  
  523. Boolean DGoOtherPrefs::IsMyAction(DTaskMaster* action) 
  524. {    
  525.     char* path;
  526.     switch(action->Id()) {
  527.         case kEditGopherMapHit: 
  528.             EditGopherMap(); //DGoInit.h
  529.             return true;
  530.     
  531.         case kLocalRootHit: 
  532.             // Really need a DFileManager:GetFolderName();
  533.             path= (char*) DFileManager::GetFolderName();
  534.             if (path) gLocalGopherRoot= StrDup( path);
  535.             return true;
  536.  
  537.         case kLocalAskWaisHit: 
  538.             path= (char*) DFileManager::GetInputFileName(NULL,"APPL");
  539.             if (path) {
  540.                 long len= StrLen(gLocalGopherRoot);
  541.                 if (StrNCmp( gLocalGopherRoot,path,len)==0) path += len;
  542.                 gAskWaisPath= StrDup( path);
  543.                 }
  544.             return true;
  545.              
  546.         }
  547.         
  548.     return DWindow::IsMyAction(action);    
  549. }
  550.  
  551.  
  552.  
  553. //static
  554. void DGoOtherPrefs::InitGlobals()
  555. {
  556.         // need to load in the user prefs & build prefs dialogs
  557.     char* onoffs;
  558.  
  559.     //gDoSuffix2MacMap= false; // !?? started bombing 26Dec94 w/ this != false
  560.  
  561.     onoffs= (DGopherListDoc::gFetchSingles) ? "1" : "0";
  562.     DGopherListDoc::gFetchSingles= gApplication->GetPrefVal("gFetchSingles","general", onoffs);
  563.     onoffs= (gShortFolder) ? "1" : "0";
  564.     gShortFolder= gApplication->GetPrefVal("gShortFolder","general", onoffs);
  565.     onoffs= (DGopherListDoc::gOptionIsOn) ? "1" : "0";
  566.     DGopherListDoc::gOptionIsOn= gApplication->GetPrefVal("gOptionIsOn","general", onoffs);
  567.     onoffs= (DGoLinkedTextDoc::gAutoloadInlines) ? "1" : "0";
  568.     DGoLinkedTextDoc::gAutoloadInlines= gApplication->GetPrefVal("gAutoloadInlines","general", onoffs);
  569.  
  570.     gLocalGopherRoot= gApplication->GetPref( "gLocalGopherRoot", "general", gLocalGopherRoot);
  571.     gAskWaisPath= gApplication->GetPref( "gAskWaisPath", "general", gAskWaisPath);
  572.  
  573.     onoffs= (gDoubleClicker) ? "1" : "0";
  574.     gDoubleClicker= gApplication->GetPrefVal("gDoubleClicker","general", onoffs);
  575.     gSingleClicker= ! gDoubleClicker;
  576.  
  577.  
  578. #ifndef NOTNOW_WIN_MOTIF
  579.     // gcc/motif bombs here w/ bus error
  580.     // deal with windowrect data also? -- gGopherListDocRect
  581.     {
  582.     char* srect = gApplication->GetPref( "gGopherListDocRect", "windows", "20 20 450 220");
  583.         // sscanf is failing on Mac/codewar !? used to work
  584. #if 1
  585.     if (srect) {
  586.         char* cp= srect;
  587.         while (*cp && isspace(*cp)) cp++;
  588.         gGopherListDocRect.left= atoi( cp);
  589.         
  590.         while (*cp && !isspace(*cp)) cp++;
  591.         while (*cp && isspace(*cp)) cp++;
  592.         gGopherListDocRect.top= atoi( cp);
  593.         
  594.         while (*cp && !isspace(*cp)) cp++;
  595.         while (*cp && isspace(*cp)) cp++;
  596.         gGopherListDocRect.right= atoi( cp);
  597.         
  598.         while (*cp && !isspace(*cp)) cp++;
  599.         while (*cp && isspace(*cp)) cp++;
  600.         gGopherListDocRect.bottom= atoi( cp);
  601.         }
  602. #else
  603.     if (srect) sscanf( srect, "%d%d%d%d", 
  604.                 &gGopherListDocRect.left, &gGopherListDocRect.top, 
  605.                 &gGopherListDocRect.right, &gGopherListDocRect.bottom);
  606. #endif
  607.     MemFree(srect);
  608.     }    
  609.  
  610.     {
  611.     char* srect = gApplication->GetPref( "gRichDocRect", "windows", "0 0 0 0");
  612.         // sscanf is failing on Mac/codewar !? used to work
  613.     if (srect) {
  614.         char* cp= srect;
  615.         while (*cp && isspace(*cp)) cp++;
  616.         DRichTextDoc::gRichDocRect.left= atoi( cp);
  617.         
  618.         while (*cp && !isspace(*cp)) cp++;
  619.         while (*cp && isspace(*cp)) cp++;
  620.         DRichTextDoc::gRichDocRect.top= atoi( cp);
  621.         
  622.         while (*cp && !isspace(*cp)) cp++;
  623.         while (*cp && isspace(*cp)) cp++;
  624.         DRichTextDoc::gRichDocRect.right= atoi( cp);
  625.         
  626.         while (*cp && !isspace(*cp)) cp++;
  627.         while (*cp && isspace(*cp)) cp++;
  628.         DRichTextDoc::gRichDocRect.bottom= atoi( cp);
  629.         }
  630.     MemFree(srect);
  631.     }    
  632. #endif
  633. }
  634.  
  635.  
  636. void DGoOtherPrefs::SaveGlobals()
  637. {
  638.     gApplication->SetPref( (int) gShortFolder,"gShortFolder","general");
  639.     gApplication->SetPref( (int) DGopherListDoc::gFetchSingles, "gFetchSingles","general");
  640.     gApplication->SetPref( (int) DGopherListDoc::gOptionIsOn,"gOptionIsOn","general");
  641.     gApplication->SetPref( (int) DGoLinkedTextDoc::gAutoloadInlines,"gAutoloadInlines","general");
  642.     gApplication->SetPref( gLocalGopherRoot,"gLocalGopherRoot","general");
  643.     gApplication->SetPref( gAskWaisPath,"gAskWaisPath","general");
  644.     gApplication->SetPref( (int) gDoubleClicker,"gDoubleClicker","general");
  645.  
  646.     if (!Nlm_EmptyRect(&gGopherListDocRect)) {
  647.         char  srect[128];
  648.         sprintf( srect, "%d %d %d %d", 
  649.                     gGopherListDocRect.left, gGopherListDocRect.top, 
  650.                     gGopherListDocRect.right, gGopherListDocRect.bottom);
  651.         gApplication->SetPref( srect, "gGopherListDocRect", "windows");
  652.         }
  653.         
  654.     if (!Nlm_EmptyRect(&DRichTextDoc::gRichDocRect)) {
  655.         char  srect[128];
  656.         sprintf( srect, "%d %d %d %d", 
  657.                     DRichTextDoc::gRichDocRect.left, DRichTextDoc::gRichDocRect.top, 
  658.                     DRichTextDoc::gRichDocRect.right, DRichTextDoc::gRichDocRect.bottom);
  659.         gApplication->SetPref( srect, "gRichDocRect", "windows");
  660.         }
  661. }
  662.  
  663. void DGoOtherPrefs::Initialize()
  664. {
  665.     DEditText* et;
  666.     DPrompt* pr;
  667.     DCheckBox* ck;
  668.     DPopupList* popl;
  669.     DPopupMenu* popm;
  670.     DButton* but;
  671.     DCluster* clu;
  672.     DRadioButton* rb;
  673.     Nlm_FonT    promptFont = Nlm_programFont;
  674.     DView* super = this;
  675.     char   buf[512];
  676.     
  677.         // dialog contents:
  678.  
  679.     ck= new DCheckBox(kShortFolderCheck,this,"Fetch brief gopher+ folders");
  680.     ck->SetStatus(gShortFolder);
  681.     //this->NextSubviewBelowLeft();
  682.     
  683.     ck= new DCheckBox(kFetchSingles,this,"auto-Fetch from folder with just one item");
  684.     ck->SetStatus(DGopherListDoc::gFetchSingles);
  685.  
  686.     this->NextSubviewBelowLeft();
  687.     
  688.     but= new DButton(kEditGopherMapHit,this,"Edit Gopher type handlers");
  689.     //this->NextSubviewBelowLeft();
  690.     
  691.     sprintf( buf, "Local services folder is '%s'", gLocalGopherRoot);
  692.     pr= new DPrompt(0, this, buf, 0, 0, promptFont);             
  693.     but= new DButton(kLocalRootHit,this,"Select local services folder");
  694.     //this->NextSubviewBelowLeft();
  695.  
  696.     sprintf(buf, "Local search app is '%s'", gAskWaisPath);
  697.     pr= new DPrompt(0, this, buf, 0, 0, promptFont);             
  698.     but= new DButton(kLocalAskWaisHit,this,"Select local search app");
  699.     
  700.     clu= new DCluster(kClickerCluster, super, 15, 5, false, "Mouse-clicks to fetch links");
  701.     fClickerGroup= clu;
  702.     super= clu;
  703.     rb= new DRadioButton( 0, super, "Double click");
  704.     rb->SetStatus(gDoubleClicker); 
  705.  
  706.     super->NextSubviewToRight();
  707.     rb= new DRadioButton( 0, super, "Single click");
  708.     rb->SetStatus(gSingleClicker);
  709.     super= this;
  710.  
  711.         //?? include a "Save prefs only on quit..." to save disk thrashing by saveprefs()
  712.     this->NextSubviewBelowLeft(); 
  713.     pr= new DPrompt(0, this, "Watch this space...", 0, 0, promptFont);             
  714.         
  715.     this->AddOkayCancelButtons();    
  716. }
  717.  
  718. void DGoOtherPrefs::Open()
  719. {
  720.     DWindow::Open();
  721. }
  722.  
  723.