home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Libraries / DCLAP 6d / dclap6d / DClap / DControl.cpp < prev    next >
Encoding:
Text File  |  1996-07-05  |  7.3 KB  |  320 lines  |  [TEXT/R*ch]
  1. // DControl.cp
  2. // d.g.gilbert
  3.  
  4.  
  5. #include "Dvibrant.h"
  6. #include "DControl.h"
  7. #include "DList.h"
  8. #include "DUtil.h"
  9.  
  10.  
  11.  
  12.  
  13. // class DControl  
  14.  
  15.  
  16.  
  17.  
  18. // class DCluster : DControl
  19.  
  20. extern "C" void groupActionProc(Nlm_GrouP    item)
  21. {
  22.     DCluster *obj= (DCluster*) Nlm_GetObject( (Nlm_GraphiC)item);
  23.     if (obj)  obj->IsMyViewAction(obj);
  24. }
  25.  
  26.  
  27. // fFont and SetFont are static
  28. Nlm_FonT DCluster::fFont = NULL;
  29.  
  30. void DCluster::SetFont( Nlm_FonT theFont)
  31. {
  32.     fFont= theFont;
  33. }
  34.  
  35.  
  36. DCluster::DCluster(long id, DView* itsSuperior, 
  37.     short width, short height, Boolean hidden, char* title) :
  38.     DControl( id, itsSuperior) 
  39. { 
  40.     if (hidden)
  41.         fGroup= Nlm_HiddenGroup( (Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, 
  42.             groupActionProc);
  43.     else
  44.         fGroup= Nlm_NormalGroup( (Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, title, 
  45.             fFont, groupActionProc);
  46.     this->SetNlmObject(fGroup);    
  47. }
  48.  
  49. DCluster::~DCluster()
  50. {
  51.  
  52. }
  53.  
  54.  
  55. //class DPrompt : public DControl
  56.  
  57. DPrompt::DPrompt(long id, DView* itsSuperior, char* title, short pixwidth, short pixheight, 
  58.     Nlm_FonT font, Justify just) :
  59.     DControl( id, itsSuperior) 
  60. {
  61.     fPrompt= Nlm_StaticPrompt((Nlm_WindoW)itsSuperior->GetNlmObject(), title, pixwidth, 
  62.                                 pixheight, font, just);  
  63.     this->SetNlmObject(fPrompt);    
  64. }
  65.  
  66.  
  67.  
  68.  
  69.     
  70.  
  71.  
  72.  
  73. class DString2 : public DObject
  74. {
  75.     char * fStr, * fStr2;
  76. public:
  77.     DString2(): fStr(NULL), fStr2(NULL) { }
  78.     DString2(const char* s1, const char* s2= NULL) { 
  79.         fStr= StrDup((char*) s1); 
  80.         fStr2= StrDup((char*) s2); 
  81.         }
  82.     virtual ~DString2() { MemFree(fStr); MemFree(fStr2); }
  83.     virtual const char* Get() { return fStr; }
  84.     virtual const char* Get2() { return fStr2; }
  85.     virtual void Set(const char* s) { MemFree(fStr); fStr= StrDup((char*) s); }
  86.     virtual void Set2(const char* s2) { MemFree(fStr2); fStr2= StrDup((char*) s2); }
  87. };
  88.  
  89.  
  90.  
  91. //class DPopupList : public DView
  92.     
  93. extern "C" void PopupListHandler(Nlm_PopuP p)
  94. {
  95.     DPopupList *obj= (DPopupList*) Nlm_GetObject((Nlm_GraphiC)p);
  96.     if (obj) obj->IsMyViewAction(obj);
  97. }
  98.  
  99. DPopupList::DPopupList(long id, DView* itsSuperior, Boolean macLike) :
  100.     DControl( id, itsSuperior) 
  101. {
  102.     fPopup= Nlm_PopupList((Nlm_GrouP)itsSuperior->GetNlmObject(), macLike, PopupListHandler);
  103.     this->SetNlmObject(fPopup);
  104.     //gViewCentral->RegisterView(id, fPopup, kMenu, this); << done by ::DView() 
  105.     //fItemList= new DList(NULL,DList::kOwnObjects + DList::kDeleteObjects);
  106.     fItemList= new DList(NULL);
  107. }
  108.  
  109.  
  110. DPopupList::~DPopupList()
  111. {
  112.     // dammit, DList( , kDeleteObjects) is NOT WORKING !! (not called obj destructors)
  113.     short i, n= fItemList->GetSize();
  114.     for (i=0; i<n; i++) {
  115.         DString2* st= (DString2*) fItemList->At(i);
  116.         delete st;
  117.         }
  118.     delete fItemList;
  119. }
  120.  
  121. #if FIX_THIS_LATER
  122. void  DPopupList::SetItemState(short item, Boolean enable) 
  123. {
  124.     DView* aview= (DView*)fPopupItemList->At(item);
  125.     if (aview) vobj= aview->fNlmObject;
  126.     if (enable) 
  127.         Nlm_EnableChoiceItem ( vobj, false, false);
  128.     else
  129.         Nlm_DisableChoiceItem ( vobj, false, false);
  130. }
  131. #endif
  132.  
  133. void  DPopupList::AddItem(char* title, char* value) 
  134. {
  135.     DString2* s= new DString2(title, value);
  136.     fItemList->InsertLast(s);
  137.     Nlm_PopupItem(fPopup, title);
  138. }
  139.  
  140. char* DPopupList::GetItemTitleOrValue( short item, char* title, ulong maxsize, 
  141.         Boolean getval2) 
  142. { 
  143.   if (item>0) {
  144.       DString2* s= (DString2*) fItemList->At(item-1);
  145.       if (s) {
  146.             char *cp;
  147.             if (getval2) cp= (char*) s->Get2();
  148.             else cp= (char*) s->Get();
  149.             if (title==NULL) {
  150.               maxsize= StrLen(cp) + 1;
  151.               title= (char*) MemNew(maxsize);
  152.               }
  153.             StrNCpy(title, cp, maxsize);
  154.             }
  155.         }
  156.     return title;
  157. }
  158.  
  159.  
  160. char* DPopupList::GetSelectedItem( short& item, char* name, ulong namesize) 
  161. { 
  162.     item= GetValue(); 
  163.     return this->GetItemTitleOrValue( item, name, namesize, false);
  164. }
  165.  
  166. char* DPopupList::GetSelectedValue( short& item, char* name, ulong namesize) 
  167. { 
  168.     item= GetValue(); 
  169.     return this->GetItemTitleOrValue( item, name, namesize, true);
  170. }
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177. extern "C" void buttonActionProc(Nlm_ButtoN    item)
  178. {
  179.     DButton *obj= (DButton*) Nlm_GetObject( (Nlm_GraphiC)item);
  180.     if (obj)  obj->IsMyViewAction(obj);
  181. }
  182.  
  183. //class DButton : public DControl
  184.  
  185. DButton::DButton(long id, DView* itsSuperior, char* title):
  186.     DControl( id, itsSuperior) 
  187. {
  188.     fButton    = Nlm_PushButton( (Nlm_WindoW)itsSuperior->GetNlmObject(), title, buttonActionProc);
  189.     this->SetNlmObject(fButton);    
  190. }
  191.  
  192.  
  193. //class DDefaultButton : public DButton
  194.  
  195. DDefaultButton::DDefaultButton(long id, DView* itsSuperior, char* title):
  196.     DControl( id, itsSuperior) 
  197. {
  198.     fButton    = Nlm_DefaultButton((Nlm_WindoW)itsSuperior->GetNlmObject(), title, buttonActionProc);
  199.     this->SetNlmObject(fButton);    
  200. }
  201.  
  202.  
  203. //class DCheckBox : public DButton
  204.  
  205. DCheckBox::DCheckBox(long id, DView* itsSuperior, char* title):
  206.     DControl( id, itsSuperior) 
  207. {
  208.     fButton    = Nlm_CheckBox((Nlm_WindoW)itsSuperior->GetNlmObject(), title, buttonActionProc);
  209.     this->SetNlmObject(fButton);    
  210. }
  211.  
  212. //class DRadioButton : public DButton
  213.  
  214. DRadioButton::DRadioButton(long id, DView* itsSuperior, char* title):
  215.     DControl( id, itsSuperior) 
  216. {
  217.     fButton    = Nlm_RadioButton((Nlm_WindoW)itsSuperior->GetNlmObject(), title);
  218.     this->SetNlmObject(fButton);    
  219. }
  220.  
  221.  
  222.  
  223.  
  224.  
  225. //class DListBox : public DControl
  226.  
  227.  
  228. extern "C" void listboxActionProc(Nlm_LisT    item)
  229. {
  230.     DListBox *obj= (DListBox*) Nlm_GetObject( (Nlm_GraphiC)item);
  231.     if (obj)  obj->IsMyViewAction(obj);
  232. }
  233.  
  234. DListBox::DListBox(long id, DView* itsSuperior, 
  235.     short width, short height, Boolean multiselection):
  236.     DControl( id, itsSuperior) 
  237. {
  238.     if (multiselection)
  239.         fListBox= Nlm_MultiList((Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, listboxActionProc);
  240.     else
  241.         fListBox= Nlm_SingleList((Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, listboxActionProc);
  242.     this->SetNlmObject(fListBox);    
  243. }
  244.  
  245.  
  246.  
  247. //class DRepeatButton : public DControl
  248.  
  249. extern "C" void repeaterProc(Nlm_RepeaT item, Nlm_PoinT mouse)
  250. {
  251.     DRepeatButton *obj= (DRepeatButton*) Nlm_GetObject( (Nlm_GraphiC)item);
  252.     if (obj) obj->ClickAt(mouse);
  253. }
  254.  
  255. DRepeatButton::DRepeatButton(long id, DView* itsSuperior, char* title):
  256.     DControl( id, itsSuperior) 
  257. {
  258.     fRepeater= Nlm_RepeatButton((Nlm_WindoW)itsSuperior->GetNlmObject(), title, repeaterProc);
  259.     this->SetNlmObject(fRepeater);    
  260. }
  261.  
  262. void DRepeatButton::ClickAt( Nlm_PoinT mouse)
  263. {
  264.  
  265. }
  266.  
  267.  
  268.  
  269.  
  270. //class DScrollBar : public DControl
  271.  
  272. extern "C" void scrollbarProc(Nlm_BaR item, Nlm_GraphiC itsSlave, Nlm_Int2 newval, Nlm_Int2 oldval)
  273. {
  274.     DScrollBar *obj= (DScrollBar*) Nlm_GetObject( (Nlm_GraphiC)item);
  275.     DView *scrollee= (DView*) Nlm_GetObject( itsSlave);
  276.     // scrollee should == itsSuperior 
  277.     if (obj)  obj->Scroll(scrollee,newval,oldval);
  278. }
  279.  
  280. DScrollBar::DScrollBar(long id, DView* itsSuperior, short width, short height):
  281.     DControl( id, itsSuperior)
  282. {
  283.     fScrollbar=  Nlm_ScrollBar((Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, scrollbarProc);
  284.     this->SetNlmObject(fScrollbar);    
  285. }
  286.  
  287. void DScrollBar::Scroll(DView* scrollee, short newval, short oldval)
  288. {
  289.     
  290. }
  291.  
  292.  
  293.  
  294.  
  295.  
  296. //class DSwitchBox : public DControl
  297.  
  298. extern "C" void switchProc(Nlm_SwitcH    item, short newval, short oldval)
  299. {
  300.     DSwitchBox *obj= (DSwitchBox*) Nlm_GetObject( (Nlm_GraphiC)item);
  301.     if (obj)  obj->Switch(newval, oldval);
  302. }
  303.  
  304. DSwitchBox::DSwitchBox(long id, DView* itsSuperior, Boolean displayTextOfValue, Boolean vertical):
  305.     DControl( id, itsSuperior)
  306. {
  307.     if (vertical)
  308.         fSwitch= Nlm_UpDownSwitch((Nlm_WindoW)itsSuperior->GetNlmObject(), displayTextOfValue, switchProc);
  309.     else
  310.         fSwitch= Nlm_LeftRightSwitch((Nlm_WindoW)itsSuperior->GetNlmObject(), displayTextOfValue, switchProc);
  311.     this->SetNlmObject(fSwitch);    
  312. }
  313.  
  314. void DSwitchBox::Switch(short newval, short oldval)
  315. {
  316.     
  317. }
  318.  
  319.  
  320.