home *** CD-ROM | disk | FTP | other *** search
-
- #include <stdio.h>
- #include <stdlib.h>
-
- #include <exec/types.h>
- #include <intuition/intuition.h>
- #include <intuition/screens.h>
-
- #include <clib/exec_protos.h>
- #include <clib/intuition_protos.h>
- #include <clib/gadtools_protos.h>
-
- #include "Cx.h"
- #include "Prefs.h"
- #include "GUI.h"
- #include "WheelMouse.h"
-
- #include "ButtonWin.h"
-
- #define MIDCLICK_ID 1
- #define MIDCLICKROLL_ID 2
- #define MIDDOUBLECLICK_ID 3
- #define FOURTHCLICK_ID 4
- #define FOURTHCLICKROLL_ID 5
- #define FOURTHDOUBLECLICK_ID 6
-
- BOOL ButtonWin_Show(struct ButtonWinContext *pwc);
- void ButtonWin_Hide(struct ButtonWinContext *pwc);
- BOOL ButtonWin_Handle(struct ButtonWinContext *pwc,unsigned long sigs);
- void ButtonWin_Dispose(struct ButtonWinContext *pwc);
-
- extern struct WheelMouseContext *MyWM;
- extern struct CxContext *MyCx;
-
- char *BWinGadTitles[]=
- {
- "Middle button:",
- "Fourth button:",
- "Click:",
- "Click + Roll:",
- "Double Click:",
- NULL
- };
-
- #define MIDBUTTON_TITLE 0
- #define FOURTHBUTTON_TITLE 1
- #define CLICK_TITLE 2
- #define CLICKROLL_TITLE 3
- #define DOUBLECLICK_TITLE 4
-
- BOOL ButtonWin_Show(struct ButtonWinContext *pwc)
- {
- struct Gadget *gg;
- int width,width2,leftedge,topedge;
- int winleft,wintop;
-
- if(pwc->Visible)
- return(FALSE);
-
- if(!(pwc->Screen=LockPubScreen(NULL)))
- return(FALSE);
-
- if(!(pwc->GUI=GUI_Create(pwc->Screen,pwc->Screen->Font,8,8)))
- {
- pwc->Hide(pwc);
- return(FALSE);
- }
-
- GUI_StringTab(pwc->GUI,BWinGadTitles);
-
- width=GUI_MaxStringWidth(pwc->GUI,MyWM->MidButton.ClickModeNames);
- width2=GUI_MaxStringWidth(pwc->GUI,MyWM->MidButton.DoubleClickModeNames);
- if(width2>width) width=width2;
- width2=GUI_MaxStringWidth(pwc->GUI,MyWM->MidButton.ClickRollModeNames);
- if(width2>width) width=width2;
-
- pwc->GUI->InnerWidth=pwc->GUI->TabStop+width+64;
-
- /* Middle mouse button stuff */
-
- gg=GUI_BuildText(pwc->GUI,BWinGadTitles[MIDBUTTON_TITLE]);
-
- gg=GUI_BuildCycleGadget(pwc->GUI,BWinGadTitles[CLICK_TITLE],MyWM->MidButton.ClickModeNames,MIDCLICK_ID);
- GT_SetGadgetAttrs(gg,NULL,NULL,GTCY_Active,
- pwc->Prefs->GetLong(pwc->Prefs,"MidClick",0),TAG_DONE);
-
- gg=GUI_BuildCycleGadget(pwc->GUI,BWinGadTitles[CLICKROLL_TITLE],MyWM->MidButton.ClickRollModeNames,MIDCLICKROLL_ID);
- GT_SetGadgetAttrs(gg,NULL,NULL,GTCY_Active,
- pwc->Prefs->GetLong(pwc->Prefs,"MidCRoll",0),TAG_DONE);
-
- gg=GUI_BuildCycleGadget(pwc->GUI,BWinGadTitles[DOUBLECLICK_TITLE],MyWM->MidButton.DoubleClickModeNames,MIDDOUBLECLICK_ID);
- GT_SetGadgetAttrs(gg,NULL,NULL,GTCY_Active,
- pwc->Prefs->GetLong(pwc->Prefs,"MidDClick",0),TAG_DONE);
-
- /* Fourth mouse button stuff */
-
- gg=GUI_BuildText(pwc->GUI,BWinGadTitles[FOURTHBUTTON_TITLE]);
-
- gg=GUI_BuildCycleGadget(pwc->GUI,BWinGadTitles[CLICK_TITLE],MyWM->FourthButton.ClickModeNames,FOURTHCLICK_ID);
- GT_SetGadgetAttrs(gg,NULL,NULL,GTCY_Active,
- pwc->Prefs->GetLong(pwc->Prefs,"4thClick",0),TAG_DONE);
-
- gg=GUI_BuildCycleGadget(pwc->GUI,BWinGadTitles[CLICKROLL_TITLE],MyWM->FourthButton.ClickRollModeNames,FOURTHCLICKROLL_ID);
- GT_SetGadgetAttrs(gg,NULL,NULL,GTCY_Active,
- pwc->Prefs->GetLong(pwc->Prefs,"4thCRoll",0),TAG_DONE);
-
- gg=GUI_BuildCycleGadget(pwc->GUI,BWinGadTitles[DOUBLECLICK_TITLE],MyWM->FourthButton.DoubleClickModeNames,FOURTHDOUBLECLICK_ID);
- GT_SetGadgetAttrs(gg,NULL,NULL,GTCY_Active,
- pwc->Prefs->GetLong(pwc->Prefs,"4thDClick",0),TAG_DONE);
-
- if(!(pwc->GUI->LastGadget))
- {
- pwc->Hide(pwc);
- return(FALSE);
- }
-
- winleft=pwc->Prefs->GetLong(pwc->Prefs,"ButtLeft",0);
- wintop=pwc->Prefs->GetLong(pwc->Prefs,"ButtTop",1+pwc->Screen->BarHeight);
-
- if(!(pwc->Window=OpenWindowTags(NULL,WA_Left,winleft,
- WA_Top,wintop,
- WA_InnerWidth,pwc->GUI->InnerWidth,
- WA_InnerHeight,pwc->GUI->InnerHeight,
- WA_IDCMP,IDCMP_REFRESHWINDOW|IDCMP_CLOSEWINDOW|pwc->GUI->IDCMP,
- WA_SizeGadget,FALSE,WA_DragBar,TRUE,
- WA_DepthGadget,TRUE,WA_CloseGadget,TRUE,
- WA_NewLookMenus,TRUE,
- WA_Activate,FALSE,
- WA_Title,"Button settings...",TAG_DONE)))
- {
- pwc->Hide(pwc);
- return(FALSE);
- }
-
- pwc->GUI->Attach(pwc->GUI,pwc->Window);
-
- pwc->Signals=1<<pwc->Window->UserPort->mp_SigBit;
-
- pwc->Visible=TRUE;
- return(TRUE);
- }
-
-
- void ButtonWin_Hide(struct ButtonWinContext *pwc)
- {
- if(pwc->Window)
- {
- pwc->Prefs->SetLong(pwc->Prefs,"ButtTop",pwc->Window->TopEdge);
- pwc->Prefs->SetLong(pwc->Prefs,"ButtLeft",pwc->Window->LeftEdge);
- CloseWindow(pwc->Window);
- }
- pwc->Window=FALSE;
- pwc->Signals=0;
-
- if(pwc->GUI)
- pwc->GUI->Dispose(pwc->GUI);
- pwc->GUI=NULL;
-
- if(pwc->Screen)
- UnlockPubScreen(NULL,pwc->Screen);
- pwc->Screen=FALSE;
-
- if(pwc->Visible)
- pwc->Visible=FALSE;
- }
-
-
- void ButtonWin_Dispose(struct ButtonWinContext *pwc)
- {
- if(pwc)
- {
- if(pwc->Visible)
- pwc->Hide(pwc);
- free(pwc);
- }
- }
-
-
- struct ButtonWinContext *ButtonWin_Create(struct PrefsGroup *pg)
- {
- struct ButtonWinContext *pwc;
- if(!(pwc=malloc(sizeof(struct ButtonWinContext))))
- return(NULL);
- memset(pwc,0,sizeof(struct ButtonWinContext));
- pwc->Dispose=ButtonWin_Dispose;
- pwc->Handle=ButtonWin_Handle;
- pwc->Hide=ButtonWin_Hide;
- pwc->Show=ButtonWin_Show;
-
- pwc->Prefs=pg;
-
- return(pwc);
- }
-
-
- BOOL ButtonWin_Handle(struct ButtonWinContext *pwc,unsigned long sigs)
- {
- BOOL cont=TRUE,close=FALSE;
- long value;
- char *string;
- if(pwc)
- {
- if(sigs&pwc->Signals)
- {
- struct IntuiMessage *im;
- while(im=GT_GetIMsg(pwc->Window->UserPort))
- {
- int class,code,id;
- struct Gadget *gg;
- class=im->Class;
- code=im->Code;
- switch(class)
- {
- case IDCMP_GADGETUP:
- gg=(struct Gadget *)im->IAddress;
- id=gg->GadgetID;
- GT_ReplyIMsg(im);
- switch(id)
- {
- case MIDCLICK_ID:
- GT_GetGadgetAttrs(gg,pwc->Window,NULL,GTCY_Active,&value,TAG_DONE);
- pwc->Prefs->SetLong(pwc->Prefs,"MidClick",value);
- MyWM->MidButton.ClickMode=value;
- break;
- case MIDCLICKROLL_ID:
- GT_GetGadgetAttrs(gg,pwc->Window,NULL,GTCY_Active,&value,TAG_DONE);
- pwc->Prefs->SetLong(pwc->Prefs,"MidCRoll",value);
- MyWM->MidButton.ClickRollMode=value;
- break;
- case MIDDOUBLECLICK_ID:
- GT_GetGadgetAttrs(gg,pwc->Window,NULL,GTCY_Active,&value,TAG_DONE);
- pwc->Prefs->SetLong(pwc->Prefs,"MidDClick",value);
- MyWM->MidButton.DoubleClickMode=value;
- break;
- case FOURTHCLICK_ID:
- GT_GetGadgetAttrs(gg,pwc->Window,NULL,GTCY_Active,&value,TAG_DONE);
- pwc->Prefs->SetLong(pwc->Prefs,"4thClick",value);
- MyWM->FourthButton.ClickMode=value;
- break;
- case FOURTHCLICKROLL_ID:
- GT_GetGadgetAttrs(gg,pwc->Window,NULL,GTCY_Active,&value,TAG_DONE);
- pwc->Prefs->SetLong(pwc->Prefs,"4thCRoll",value);
- MyWM->FourthButton.ClickRollMode=value;
- break;
- case FOURTHDOUBLECLICK_ID:
- GT_GetGadgetAttrs(gg,pwc->Window,NULL,GTCY_Active,&value,TAG_DONE);
- pwc->Prefs->SetLong(pwc->Prefs,"4thDClick",value);
- MyWM->FourthButton.DoubleClickMode=value;
- break;
- }
- break;
- case IDCMP_CLOSEWINDOW:
- GT_ReplyIMsg(im);
- close=TRUE;
- break;
- case IDCMP_REFRESHWINDOW:
- GT_ReplyIMsg(im);
- GT_BeginRefresh(pwc->Window);
- GT_EndRefresh(pwc->Window, TRUE);
- break;
- default:
- GT_ReplyIMsg(im);
- break;
- }
- }
- }
- }
- if(close)
- pwc->Hide(pwc);
- return(cont);
- }
-
-