/*
This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop
Copyright (C) 2003-2009 Toby Thain, toby@telegraphics.net
Copyright (C) 2018-2023 Daniel Marschall, ViaThinkSoft
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include <controls.h>
#include <controldefinitions.h>
#include <dialogs.h>
#include <resources.h>
#include <textutils.h>
#include "str.h"
#include "ff.h"
extern Point preview_scroll;
CursHandle handcursor,ibeamcursor;
ControlActionUPP action_UPP,indaction_UPP;
DIALOGREF thedialog;
ControlRef exprctls[4];
int trackingitem;
pascal void preview_item(DialogRef dp,DialogItemIndex item);
pascal void slideraction(ControlRef theControl,short partCode);
pascal Boolean sliderfilter(DialogRef dialog,EventRecord *event,short *item);
void DoAbout(AboutRecordPtr prec){
ModalFilterUPP filterproc_UPP = NewModalFilterUPP(aboutfilter);
if(gdata && gdata->parm.standalone){
ParamText(myc2pstr(_strdup(gdata->parm.szTitle)), myc2pstr(_strdup(gdata->parm.szAuthor)), myc2pstr(_strdup(gdata->parm.szCopyright)), NULL);
Alert(ID_ABOUTSTANDALONEDLG,filterproc_UPP);
}else
Alert(ID_ABOUTDLG,filterproc_UPP);
DisposeModalFilterUPP(filterproc_UPP);
}
Boolean simplealert(char *s){
int i;
myc2pstr(_strdup(s));
ParamText((StringPtr)s,NULL,NULL,NULL);
i = StopAlert(ID_SYNTAXALERT,NULL);
myp2cstr((StringPtr)s);
return i == ok;
}
Boolean simplewarning(char *s){
int i;
myc2pstr(_strdup(s));
ParamText((StringPtr)s,NULL,NULL,NULL);
i = Alert(ID_SYNTAXALERT,NULL);
myp2cstr((StringPtr)s);
return i == ok;
}
Boolean showmessage(char *s){
int i;
myc2pstr(_strdup(s));
ParamText((StringPtr)s,NULL,NULL,NULL);
i = Alert(ID_SYNTAXALERT,NULL);
myp2cstr((StringPtr)s);
return i == ok;
}
/*
NOTE ON CONTROL ACTION PROCS
When using the TrackControl() call when tracking an indicator, the actionProc parameter
(type ControlActionUPP) should be replaced by a parameter of type DragGrayRgnUPP
(see Quickdraw.h).
If, however, you are using the live feedback variants of scroll bars or sliders, you
must pass a ControlActionUPP in when tracking the indicator as well. This functionality
is available in Appearance 1.0 or later.
*/
pascal void slideraction(ControlRef theControl,short partCode){
int old,delta = 0;
ENTERCALLBACK();
if(partCode){
if(partCode != kControlIndicatorPart){
switch(partCode){
case kControlUpButtonPart: delta = -1; break;
case kControlDownButtonPart: delta = 1; break;
case kControlPageUpPart: delta = -SLIDERPAGE; break;
case kControlPageDownPart: delta = SLIDERPAGE; break;
}
SetControlValue(theControl,(old = GetControlValue(theControl)) + delta);
}
slidermoved(thedialog,trackingitem);
recalc_preview(gpb,thedialog);
}
EXITCALLBACK();
}
pascal Boolean sliderfilter(DialogRef dialog,EventRecord *event,short *item){
int i;
short part;
ControlHandle c;
Point pt,origscroll,newscroll;
Boolean result = false,f;
EventRecord ev;
GrafPtr oldport;
ControlRef focus;
ENTERCALLBACK();
GetPort(&oldport);
SetPortDialogPort(dialog);
/* !(result = standardfilter(dialog,event,item)) && */
if( !event->what || (event->what == updateEvt
&& (WindowRef)event->message != GetDialogWindow(dialog)) )
{ // pass null events and update events to Photoshop
gpb->processEvent(event);
}
else if(event->what == mouseDown){
pt = event->where;
GlobalToLocal(&pt);
i = trackingitem = FindDialogItem(dialog,pt)+1;
/* if( (c = FindControlUnderMouse(pt,GetDialogWindow(dialog),&part))
&& part && HandleControlClick(c,pt,event->modifiers,action_UPP) )*/
if( i>=FIRSTCTLITEM && i<=FIRSTCTLITEM+7
&& (part = FindControl(pt,GetDialogWindow(dialog),&c))
&& TrackControl(c,pt,action_UPP) ){
*item = i;
result = true;
}else if(i == PREVIEWITEM){
SetCursor(*handcursor);
origscroll = preview_scroll;
do{
f = WaitNextEvent(mUpMask,&ev,5,NULL);
newscroll.h = origscroll.h - zoomfactor*(ev.where.h - event->where.h);
newscroll.v = origscroll.v - zoomfactor*(ev.where.v - event->where.v);
if(!EqualPt(newscroll,preview_scroll)){
preview_scroll = newscroll;
recalc_preview(gpb,dialog);
}
}while(!f);
*item = i;
result = true;
}
}
else{
GetKeyboardFocus(GetDialogWindow(dialog),&focus);
/* handle return keypresses */
if( event->what == keyDown && (char)event->message == CR
&& ( focus==exprctls[0] || focus==exprctls[1]
|| focus==exprctls[2] || focus==exprctls[3] ) )
result = false;
else
result = StdFilterProc(dialog,event,item);
}
SetPort(oldport);
EXITCALLBACK();
return(result);
}
Boolean maindialog(FilterRecordPtr pb){
short itemType, item;
Handle itemHdl;
DIALOGREF dp;
int i;
UserItemUPP preview_image_UPP = NewUserItemUPP(preview_item);
ModalFilterUPP sliderfilter_UPP = NewModalFilterUPP(sliderfilter);
action_UPP = NewControlActionUPP(slideraction);
dp = thedialog = GetNewDialog(gdata->parm.standalone ? ID_PARAMDLG : ID_MAINDLG,nil,(WindowPtr)-1);
if(gdata->parm.standalone)
SetWTitle(GetDialogWindow(dp), myc2pstr(_strdup(gdata->parm.szTitle)));
GetDialogItem(dp,PREVIEWITEM,&itemType,&itemHdl,&preview_rect);
SetDialogItem(dp,PREVIEWITEM,itemType,(Handle)preview_image_UPP,&preview_rect);
handcursor = GetCursor(ID_HANDCURSOR);
ibeamcursor = GetCursor(iBeamCursor);
SetDialogDefaultItem(dp,ok);
SetDialogCancelItem(dp,cancel);
SetDialogTracksCursor(dp,true);
if(!gdata->parm.standalone)
for(i = 0; i < 4; ++i)
GetDialogItemAsControl(dp,FIRSTEXPRITEM+i,&exprctls[i]);
maindlginit(dp);
do{
InitCursor();
ModalDialog(sliderfilter_UPP,&item);
}while(maindlgitem(dp,item));
DisposeDialog(dp);
DisposeUserItemUPP(preview_image_UPP);
DisposeModalFilterUPP(sliderfilter_UPP);
DisposeControlActionUPP(action_UPP);
return item == ok;
}
Boolean builddialog(FilterRecordPtr pb){
short item;
DIALOGREF dp;
dp = thedialog = GetNewDialog(ID_BUILDDLG,nil,(WindowPtr)-1);
SetDialogDefaultItem(dp,ok);
SetDialogCancelItem(dp,cancel);
builddlginit(dp);
do{
ModalDialog(NULL,&item);
}while(builddlgitem(dp,item));
DisposeDialog(dp);
return item == ok;
}