The R Project SVN R

Rev

Rev 28635 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

/*
 *  R : A Computer Language for Statistical Data Analysis
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 *  Copyright (C) 1997--2003  Robert Gentleman, Ross Ihaka
 *                and the R Development Core Team
 *
 *  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
 */


#ifndef __AQUA_PREFS__
#define __AQUA_PREFS__

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif



#ifdef HAVE_AQUA
#define __DEBUGGING__
#include <Carbon/Carbon.h>

#include "Raqua.h"

extern WindowRef    RPrefsWindow;

pascal void RPrefsHandler(WindowRef window);
void ActivatePrefsWindow(void);
void DeactivatePrefsWindow(void);

void CopyPrefs(RAquaPrefsPointer From, RAquaPrefsPointer To);

extern void RSetTab(void);
extern void RSetFontSize(void);
extern void RSetFont(void);
extern void RSetConsoleWidth(void);
extern void RescaleInOut(double prop);

RAquaPrefs DefaultPrefs;
RAquaPrefs CurrentPrefs, TempPrefs;
RAquaPrefs LastSavedPrefs;


  
FMFontFamilyInstance    instance;
FMFontSize              fontSize;       

void pickColor(RGBColor inColour, RGBColor *outColor);

static void SetInitialTabState(WindowRef theWindow);
                
void CallFontPanel(void);

        

/* R Preferences version */                
#define RAquaPrefsVer   5L


/* button ID for Preferences panel */
#define kRFontFacePopUp         1002
#define kRFontSizePopUp         1003
#define kRTabSizePopUp          1005
#define kOutputColorText        1007
#define kInputColorText         1008
#define kOutputColorButton      1009
#define kInputColorButton       1010
#define kOutputBackButton       1011
#define kInputBackButton        1012
#define kSaveConsolePosBox      1062
#define kSetConsoleWidthBox     1063


#define kDeviceFontButton       3001
#define kDeviceFontText     3002
#define kOverrideRDefBox    3007
#define kWidthField         3008
#define kHeightField        3009
#define kAntiAliasingBox    3013
#define kAutoRefreshBox     3014
#define kQuartzPosPopUp     3015

#define kCRANmirrorText         4501
#define kBIOCmirrorText         4502
#define kGlobalPackagesBox      4503

#define kGrabStdoutBox      6000
#define kGrabStderrBox      6001

#define kDefaultDirText     6009
#define kDefaultDirButton   6010

#define kApplyPrefsButton   5000
#define kCancelPrefsButton  5001 
#define kDefaultPrefsButton 5002
#define kSavePrefsButton    5003

                
#define kTabMasterSig       'PRTT'
#define kTabMasterID        1000
#define kTabPaneSig     'PRTB'
#define kPrefControlsSig    'PREF'
#define kDummyValue     0
#define kMaxNumTabs     4

ControlID   MainControlID = { kPrefControlsSig, kRFontFacePopUp };
ControlID   RFontFaceID = { kPrefControlsSig, kRFontFacePopUp };
ControlID   RTabSizeID = { kPrefControlsSig, kRTabSizePopUp };
ControlID   RFontSizeID = { kPrefControlsSig, kRFontSizePopUp };
ControlID   DeviceFontTextID = { kPrefControlsSig, kDeviceFontText };
ControlID   OverrideRDefBoxID = { kPrefControlsSig, kOverrideRDefBox };
ControlID   WidthID = { kPrefControlsSig, kWidthField };
ControlID   HeightID = { kPrefControlsSig, kHeightField };
ControlID   AutoRefreshID = { kPrefControlsSig, kAutoRefreshBox };
ControlID   AntiAliasingID = { kPrefControlsSig, kAntiAliasingBox };
ControlID   QuartzPosID = { kPrefControlsSig, kQuartzPosPopUp };
ControlID   InputColorID = { kPrefControlsSig, kInputColorText };
ControlID   OutputColorID = { kPrefControlsSig, kOutputColorText };
ControlID   DefaultDirTextID = { kPrefControlsSig, kDefaultDirText };
ControlID   CRANmirrorID = { kPrefControlsSig, kCRANmirrorText };
ControlID   BIOCmirrorID = { kPrefControlsSig, kBIOCmirrorText };
ControlID   GlobalPackagesID = {kPrefControlsSig, kGlobalPackagesBox };
ControlID   GrabStdoutID = {kPrefControlsSig, kGrabStdoutBox };
ControlID   GrabStderrID = {kPrefControlsSig, kGrabStderrBox };
ControlID   SaveConsolePosID = {kPrefControlsSig, kSaveConsolePosBox };
ControlID   SetConsoleWidthID = {kPrefControlsSig, kSetConsoleWidthBox};


static  int     DefaultRFontFace = 4;
static  int     DefaultRFontSize = 4;
static  int     DefaultRTabSize = 10;
static  RGBColor    DefaultFGInputColor = {0xffff, 0x0000, 0x0000};
static  RGBColor    DefaultBGInputColor = {0xffff, 0xffff, 0xffff};
static  RGBColor    DefaultFGOutputColor = {0x0000, 0x0000, 0xffff};
static  RGBColor    DefaultBGOutputColor = {0xffff, 0xffff, 0xffff};
static  char        DefaultDeviceFontName[] = "Helvetica";
static  int     DefaultDevicePointSize = 12;
static  double      DefaultDeviceWidth = 5.0;
static  double      DefaultDeviceHeight = 5.0;  
static  int     DefaultAntiAlias = 1;
static  int     DefaultAutoRefresh = 1;
static  int     DefaultOverrideRDefaults = 0;
static  int             DefaultQuartzPos = 1;
static  char            DefaultCRANmirror[] ="http://cran.r-project.org";
static  char            DefaultBIOCmirror[] ="http://www.bioconductor.org";
static  char            DefaultWorkingDir[] ="~/";
static  int             DefaultGlobalPackages = 0;
static  int             DefaultGrabStdout = 0;
static  int             DefaultGrabStderr = 0;
static  int             DefaultSaveConsolePos = 1;
static  int             DefaultSetConsoleWidthOnResize = 1;
static  Rect        BrokenConsoleWindowBounds = {0, 0, 0, 0};

Rect    ConsoleWindowBounds;

ControlRef GrabCRef(WindowRef theWindow,OSType theSig, SInt32 theNum);

             
             
OSStatus MySetFontSelection(void);                              
OSStatus MyGetFontSelection(EventRef event);
void RSetPackagePrefs(void);
void RSetPipes(void);
        
/* external symbols from aquaconsole.c */                                   
extern void RSetColors(void);
extern void consolecmd(char* cmd);
extern  void    OpenStdoutPipe(void);
extern  void    OpenStderrPipe(void);
extern  void    CloseStdoutPipe(void);
extern  void    CloseStderrPipe(void);
                    

EventTypeSpec   tabControlEvents[] = {
    { kEventClassControl, kEventControlHit },
    { kEventClassCommand, kEventCommandProcess }
};

EventTypeSpec   RPrefsSpec[] = { 
    { kEventClassWindow, kEventWindowClose }
};

EventTypeSpec   okcanxControlEvents[] = {
    { kEventClassControl, kEventControlHit }
};


static pascal OSStatus RPrefsWinHandler(EventHandlerCallRef handlerRef, EventRef event, void *userData);
static pascal OSStatus PrefsTabEventHandlerProc( EventHandlerCallRef inCallRef, EventRef inEvent, void* inUserData );
static  OSStatus GenContEventHandlerProc( EventHandlerCallRef inCallRef, EventRef inEvent, void* inUserData );

void    SetDefaultPrefs(void);
void    SetUpPrefsWindow(RAquaPrefsPointer Settings);
void    GetDialogPrefs(void);
void    GetRPrefs(void);
void    SaveRPrefs(void);
void    SaveConsolePosToPrefs(void);


CFStringRef appName, RPrefsVerKey, WorkingDirKey;
CFStringRef RTabSizeKey, RFontSizeKey, RFontFaceKey, devicefontKey;
CFStringRef outfgKey, outbgKey, infgKey, inbgKey;
CFStringRef devWidthKey, devHeightKey, devPSizeKey;
CFStringRef devAutoRefreshKey, devAntialiasingKey, devOverrideRDefKey;
CFStringRef CRANmirrorKey, BIOCmirrorKey, GlobalPackagesKey, GrabStderrKey, GrabStdoutKey;
CFStringRef SaveConsolePosKey, ConsoleBoundsKey, devQuartzPosKey, SetConsoleWidthKey;

           
         
             
OSStatus InstallPrefsHandlers(void);
void    SetUpPrefSymbols(void);

void    SetUpPrefSymbols(void){
    
    appName = CFSTR("org.r-project.R");
    RPrefsVerKey = CFSTR("R Preference Version");
    RTabSizeKey = CFSTR("R Tab Size");
    WorkingDirKey = CFSTR("Working Directory");
    RFontSizeKey = CFSTR("R Font Size");
    RFontFaceKey = CFSTR("R Font Face");
    devicefontKey = CFSTR("Device Font");
    outfgKey = CFSTR("OutFg Color");
    outbgKey = CFSTR("OutBg Color");
    infgKey = CFSTR("InFg Color");
    inbgKey = CFSTR("InBg Color");
    devWidthKey = CFSTR("Device Width");
    devHeightKey = CFSTR("Device Height");
    devPSizeKey = CFSTR("Device PointSize");
    devAutoRefreshKey = CFSTR("Device Autorefresh");
    devAntialiasingKey = CFSTR("Device Antialiasing");
    devOverrideRDefKey = CFSTR("Override R Defaults");
    devQuartzPosKey = CFSTR("Quartz Device Window Positioning");
    CRANmirrorKey = CFSTR("CRAN mirror");
    BIOCmirrorKey = CFSTR("BIOC mirror");
    GlobalPackagesKey = CFSTR("Global Packages");
    GrabStdoutKey = CFSTR("Grab Stdout");
    GrabStderrKey = CFSTR("Grab Stderr");
    SaveConsolePosKey = CFSTR("Save Console Position");
    SetConsoleWidthKey = CFSTR("Set Console Width on Resize");
    ConsoleBoundsKey = CFSTR("Console Window Bounds");
}

OSStatus InstallPrefsHandlers(void){
    OSStatus err = noErr;
    
    err = InstallWindowEventHandler(RPrefsWindow, NewEventHandlerUPP(RPrefsWinHandler), GetEventTypeCount(RPrefsSpec), RPrefsSpec,  (void *)RPrefsWindow, NULL);


    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kTabMasterSig,kTabMasterID),  PrefsTabEventHandlerProc , GetEventTypeCount(tabControlEvents), tabControlEvents, RPrefsWindow, NULL );

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kApplyPrefsButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kCancelPrefsButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kDefaultDirButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kDefaultPrefsButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kSavePrefsButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        
     
    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kOutputColorButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kInputColorButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kOutputBackButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kInputBackButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        

    err = InstallControlEventHandler( GrabCRef(RPrefsWindow,kPrefControlsSig,kDeviceFontButton),  GenContEventHandlerProc , GetEventTypeCount(okcanxControlEvents), okcanxControlEvents, RPrefsWindow, NULL );        
     
    return err;
}
                   
pascal void RPrefsHandler(WindowRef window)
{
    CFStringRef text;
    CFStringRef appBundle;
    ControlID   versionInfoID = {kRAppSignature, kRVersionInfoID};
    ControlRef  versionControl;
    ControlFontStyleRec controlStyle;
    EventRef    RPrefsEvent;
      
    CopyPrefs(&CurrentPrefs,&TempPrefs);
    SetUpPrefsWindow(&TempPrefs);
    SetInitialTabState(window);
    
/* We force refresh of the Preference Window */
    CreateEvent(NULL, kEventClassWindow, kEventWindowUpdate, 0, kEventAttributeNone, &RPrefsEvent);
    SetEventParameter(RPrefsEvent, kEventParamDirectObject, typeWindowRef, sizeof(typeWindowRef), window);
    SendEventToEventTarget (RPrefsEvent,GetWindowEventTarget(RPrefsWindow));
    ReleaseEvent(RPrefsEvent);
           
    ShowWindow(window);
}


pascal OSStatus RPrefsWinHandler(EventHandlerCallRef handlerRef, EventRef event, void *userData)
{
    OSStatus result = eventNotHandledErr;
    UInt32  eventKind;
    UInt32      eventClass;
     
    eventKind = GetEventKind(event);
    eventClass = GetEventClass(event);
    
    switch(eventClass){
     case kEventClassWindow:
      switch(eventKind){
     
      case kEventWindowClose:
       HideWindow( (WindowRef)userData );
       result = noErr;
      break;
    
      default:
      break;
      }
     break;
    }    
    
    return result;
}


void SetDefaultPrefs(void)
{
    DefaultPrefs.prefsTypeVers = RAquaPrefsVer;

    DefaultPrefs.RFontFace = DefaultRFontFace;
    DefaultPrefs.RFontSize = DefaultRFontSize;
    DefaultPrefs.RTabSize = DefaultRTabSize;
    DefaultPrefs.FGInputColor = DefaultFGInputColor;
    DefaultPrefs.BGInputColor = DefaultBGInputColor;
    DefaultPrefs.FGOutputColor = DefaultFGOutputColor;
    DefaultPrefs.BGOutputColor = DefaultBGOutputColor;
    strcpy(DefaultPrefs.DeviceFontName, DefaultDeviceFontName);
    DefaultPrefs.DevicePointSize = DefaultDevicePointSize;
    DefaultPrefs.DeviceWidth = DefaultDeviceWidth;
    DefaultPrefs.DeviceHeight = DefaultDeviceHeight;    
    DefaultPrefs.AntiAlias = DefaultAntiAlias;
    DefaultPrefs.AutoRefresh = DefaultAutoRefresh;
    DefaultPrefs.OverrideRDefaults = DefaultOverrideRDefaults;
    DefaultPrefs.QuartzPos = DefaultQuartzPos;
    strcpy(DefaultPrefs.CRANmirror,DefaultCRANmirror);
    strcpy(DefaultPrefs.BIOCmirror,DefaultBIOCmirror);
    strcpy(DefaultPrefs.WorkingDirectory,DefaultWorkingDir);
    DefaultPrefs.GlobalPackages = DefaultGlobalPackages;
    DefaultPrefs.GrabStdout = DefaultGrabStdout;
    DefaultPrefs.GrabStderr = DefaultGrabStderr;
    DefaultPrefs.SaveConsolePos = DefaultSaveConsolePos;
    DefaultPrefs.SetConsoleWidthOnResize = DefaultSetConsoleWidthOnResize;
}

void CopyPrefs(RAquaPrefsPointer From, RAquaPrefsPointer To)
{
    To->prefsTypeVers = From->prefsTypeVers;
    To->RFontFace =  From->RFontFace;
    To->RFontSize = From->RFontSize;
    To->RTabSize = From->RTabSize;
    To->FGInputColor = From->FGInputColor;
    To->BGInputColor = From->BGInputColor;
    To->FGOutputColor = From->FGOutputColor;
    To->BGOutputColor = From->BGOutputColor;
    strcpy(To->DeviceFontName, From->DeviceFontName);
    To->DevicePointSize = From->DevicePointSize;
    To->DeviceWidth = From->DeviceWidth;
    To->DeviceHeight = From->DeviceHeight;
    To->AntiAlias = From->AntiAlias;
    To->AutoRefresh = From->AutoRefresh;
    To->OverrideRDefaults = From->OverrideRDefaults;
    To->QuartzPos = From->QuartzPos;
    strcpy(To->CRANmirror, From->CRANmirror);
    strcpy(To->BIOCmirror, From->BIOCmirror);
    strcpy(To->WorkingDirectory, From->WorkingDirectory);
    To->GlobalPackages = From->GlobalPackages;
    To->GrabStdout = From->GrabStdout;
    To->GrabStderr = From->GrabStderr;
    To->SaveConsolePos = From->SaveConsolePos;
    To->SetConsoleWidthOnResize = From->SetConsoleWidthOnResize;
}

    
void GetRPrefs(void)
{
    
    CFNumberRef value;
    CFStringRef text;
    int     tabsize, fontsize, fontface,pointsize, quartzpos;
    double  devheight, devwidth;
    CFDataRef   color, bounds;
    RGBColor    fgout,bgout,fgin,bgin;
    Rect        consolebounds;
    char  devicefont[255], CRANmirror[255], BIOCmirror[255], WorkingDir[255];
    int autorefresh, antialiasing, overrideRdef;
    int grabstdout, grabstderr, globalpackages, saveconsolepos, setconsolewidth;
    
    
    SetUpPrefSymbols();
    SetDefaultPrefs();
    CopyPrefs(&DefaultPrefs,&CurrentPrefs);

/* Tab Size */
    value = CFPreferencesCopyAppValue(RTabSizeKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &tabsize))
            tabsize = DefaultPrefs.RTabSize;
        CFRelease(value);
        value = NULL;
    } else 
        tabsize = DefaultPrefs.RTabSize; /* set default value */

    CurrentPrefs.RTabSize  = tabsize;
    
    
/* Font Size */
    value = CFPreferencesCopyAppValue(RFontSizeKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &fontsize))
            fontsize = DefaultPrefs.RFontSize;
        CFRelease(value);
        value = NULL;
    } else 
        fontsize = DefaultPrefs.RFontSize; /* set default value */

    CurrentPrefs.RFontSize  = fontsize;
    
    
/* Console Font Name */
    value = CFPreferencesCopyAppValue(RFontFaceKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &fontface)) 
            fontface = DefaultPrefs.RFontFace;
        CFRelease(value);
        value = NULL;
    } else 
        fontface = DefaultPrefs.RFontFace; /* set default value */

    CurrentPrefs.RFontFace  = fontface;
    
    
    
/* Device Point Size */
    value = CFPreferencesCopyAppValue(devPSizeKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &pointsize)) 
            pointsize = DefaultPrefs.DevicePointSize;
        CFRelease(value);
        value = NULL;
    } else 
        pointsize = DefaultPrefs.DevicePointSize; /* set default value */

    CurrentPrefs.DevicePointSize = pointsize;
    
    
    
/* Device Font Name */

    text = CFPreferencesCopyAppValue(devicefontKey, appName);   
    if (text) {
        if (! CFStringGetCString (text, devicefont, 255,  kCFStringEncodingMacRoman)) 
            strcpy(devicefont, DefaultPrefs.DeviceFontName);
        CFRelease(text);
        text = NULL;
    } else 
        strcpy(devicefont, DefaultPrefs.DeviceFontName); /* set default value */

    strcpy(CurrentPrefs.DeviceFontName, devicefont);

    
/* Device Width */
    value = CFPreferencesCopyAppValue(devWidthKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberDoubleType, &devwidth))
            devwidth = DefaultPrefs.DeviceWidth;
        CFRelease(value);
        value = NULL;
    } else 
        devwidth = DefaultPrefs.DeviceWidth; /* set default value */

    CurrentPrefs.DeviceWidth = devwidth;

/* Device Height */
    value = CFPreferencesCopyAppValue(devHeightKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberDoubleType, &devheight)) 
            devheight = DefaultPrefs.DeviceHeight;
        CFRelease(value);
        value = NULL;
    } else 
        devheight = DefaultPrefs.DeviceHeight; /* set default value */

    CurrentPrefs.DeviceHeight = devheight;

/* Device AntiAliasing */
    value = CFPreferencesCopyAppValue(devAntialiasingKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &antialiasing))
            antialiasing = DefaultPrefs.AntiAlias;
        CFRelease(value);
        value = NULL;
    } else 
        antialiasing = DefaultPrefs.AntiAlias; /* set default value */

    CurrentPrefs.AntiAlias = antialiasing;

/* Device AutoRefresh */
    value = CFPreferencesCopyAppValue(devAutoRefreshKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &autorefresh)) 
            autorefresh = DefaultPrefs.AutoRefresh;
        CFRelease(value);
        value = NULL;
    } else 
        autorefresh = DefaultPrefs.AutoRefresh; /* set default value */

    CurrentPrefs.AutoRefresh = autorefresh;

/* Quartz Device Window Position */
    value = CFPreferencesCopyAppValue(devQuartzPosKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &quartzpos)) 
            quartzpos = DefaultPrefs.QuartzPos;
        CFRelease(value);
        value = NULL;
    } else 
        quartzpos = DefaultPrefs.QuartzPos; /* set default value */

    CurrentPrefs.QuartzPos = quartzpos;

/* Override R Defaults */
    value = CFPreferencesCopyAppValue(devOverrideRDefKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &overrideRdef)) 
            overrideRdef = DefaultPrefs.OverrideRDefaults;
        CFRelease(value);
        value = NULL;
    } else 
        overrideRdef = DefaultPrefs.OverrideRDefaults; /* set default value */

    CurrentPrefs.OverrideRDefaults = overrideRdef;


/*  Console Out Foreground color */
    color = CFPreferencesCopyAppValue(outfgKey, appName);   
    if(color){ 
        CFDataGetBytes (color, CFRangeMake(0,CFDataGetLength(color)), (UInt8*)&fgout); 
        CFRelease(color);
        color = NULL;
    } else 
        fgout = DefaultPrefs.FGOutputColor;
     
    CurrentPrefs.FGOutputColor = fgout;
    
/*  Console Out Background color */
    color = CFPreferencesCopyAppValue(outbgKey, appName);   
    if(color){
        CFDataGetBytes (color, CFRangeMake(0,CFDataGetLength(color)), (UInt8*)&bgout); 
        CFRelease(color);
        color = NULL;
    } else 
        bgout = DefaultPrefs.BGOutputColor;
     
    CurrentPrefs.BGOutputColor = bgout;
    
   
/*  Console In Foreground color */
    color = CFPreferencesCopyAppValue(infgKey, appName);   
    if(color){
        CFDataGetBytes (color, CFRangeMake(0,CFDataGetLength(color)), (UInt8*)&fgin); 
        CFRelease(color);
        color = NULL;
    } else
        fgin = DefaultPrefs.FGInputColor;

    CurrentPrefs.FGInputColor  = fgin;

/*  Console In Background color */
    color = CFPreferencesCopyAppValue(inbgKey, appName);   
    if(color){
        CFDataGetBytes (color, CFRangeMake(0,CFDataGetLength(color)), (UInt8*)&bgin); 
       CFRelease(color);
       color = NULL;
    } else
        bgin = DefaultPrefs.BGInputColor;

    CurrentPrefs.BGInputColor = bgin;
   
    /* CRAN mirror */
    text = CFPreferencesCopyAppValue(CRANmirrorKey, appName);   
    if (text) {
        if (! CFStringGetCString (text, CRANmirror, 255,  kCFStringEncodingMacRoman)) 
            strcpy(CRANmirror, DefaultPrefs.CRANmirror);
        CFRelease(text);
        text = NULL;
    } else 
        strcpy(CRANmirror, DefaultPrefs.CRANmirror); /* set default value */

    strcpy(CurrentPrefs.CRANmirror, CRANmirror);
 
    /* BIOC repository  */
    text = CFPreferencesCopyAppValue(BIOCmirrorKey, appName);   
    if (text) {
        if (! CFStringGetCString (text, BIOCmirror, 255,  kCFStringEncodingMacRoman)) 
            strcpy(BIOCmirror, DefaultPrefs.BIOCmirror);
        CFRelease(text);
        text = NULL;
    } else 
        strcpy(BIOCmirror, DefaultPrefs.BIOCmirror); /* set default value */

    strcpy(CurrentPrefs.BIOCmirror, BIOCmirror);

    /*  Working Directory   */
    text = CFPreferencesCopyAppValue(WorkingDirKey, appName);   
    if (text) {
        if (! CFStringGetCString (text, WorkingDir, 255,  kCFStringEncodingMacRoman)) 
            strcpy(WorkingDir, DefaultPrefs.WorkingDirectory);
        CFRelease(text);
        text = NULL;
    } else 
        strcpy(WorkingDir, DefaultPrefs.WorkingDirectory); /* set default value */

    strcpy(CurrentPrefs.WorkingDirectory, WorkingDir);

    /* new packages go in root */
    value = CFPreferencesCopyAppValue(GlobalPackagesKey, appName);   
    if(value){
        if (!CFNumberGetValue(value, kCFNumberIntType, &globalpackages)) 
            globalpackages = DefaultPrefs.GlobalPackages;
        CFRelease(value);
        value = NULL;
    } else 
        globalpackages = DefaultPrefs.GlobalPackages; /* set default value */

    CurrentPrefs.GlobalPackages = globalpackages;

    value = CFPreferencesCopyAppValue(GrabStdoutKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &grabstdout)) 
            grabstdout = DefaultPrefs.GrabStdout;
        CFRelease(value);
        value = NULL;
    } else 
        grabstdout = DefaultPrefs.GrabStdout; /* set default value */

    CurrentPrefs.GrabStdout = grabstdout;
    
    value = CFPreferencesCopyAppValue(GrabStderrKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &grabstderr)) 
            grabstderr = DefaultPrefs.GrabStderr;
        CFRelease(value);
        value = NULL;
    } else 
        grabstderr = DefaultPrefs.GrabStderr; /* set default value */

    CurrentPrefs.GrabStderr = grabstderr;
 
    value = CFPreferencesCopyAppValue(SaveConsolePosKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &saveconsolepos)) 
            saveconsolepos = DefaultPrefs.SaveConsolePos;
        CFRelease(value);
        value = NULL;
    } else 
        saveconsolepos = DefaultPrefs.SaveConsolePos; /* set default value */

    CurrentPrefs.SaveConsolePos = saveconsolepos;
    
    value = CFPreferencesCopyAppValue(SetConsoleWidthKey, appName);   
    if (value) {
        if (!CFNumberGetValue(value, kCFNumberIntType, &setconsolewidth)) 
            setconsolewidth = DefaultPrefs.SetConsoleWidthOnResize;
        CFRelease(value);
        value = NULL;
    } else 
        setconsolewidth = DefaultPrefs.SetConsoleWidthOnResize; /* set default value */

    CurrentPrefs.SetConsoleWidthOnResize = setconsolewidth;

    bounds = CFPreferencesCopyAppValue(ConsoleBoundsKey, appName);   
    if (bounds){
        CFDataGetBytes (bounds, CFRangeMake(0,CFDataGetLength(bounds)), (UInt8*)&consolebounds); 
       CFRelease(bounds);
       bounds = NULL;
    } else
        ConsoleWindowBounds = BrokenConsoleWindowBounds;

    ConsoleWindowBounds = consolebounds;
}

void SetUpPrefsWindow(RAquaPrefsPointer Settings)
{
    ControlRef  myControl;
    ControlFontStyleRec controlStyle;
    CFStringRef text;
 
    GetControlByID(RPrefsWindow, &RFontSizeID, &myControl);
    SetControl32BitValue(myControl, Settings->RFontSize);

    GetControlByID(RPrefsWindow, &RFontFaceID, &myControl);
    SetControl32BitValue(myControl, Settings->RFontFace);

    GetControlByID(RPrefsWindow, &RTabSizeID, &myControl);
    SetControl32BitValue(myControl, Settings->RTabSize);   
 
/* Sets the Device Font name */
   GetControlByID(RPrefsWindow, &DeviceFontTextID, &myControl);
   text = CFStringCreateWithFormat( NULL, NULL, CFSTR("%s %d pt"), Settings->DeviceFontName, Settings->DevicePointSize );
   if(text){
        SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
        DrawOneControl(myControl);    
        CFRelease(text);
        text = NULL;
    }

/* Sets the CRAN mirror  name */
   GetControlByID(RPrefsWindow, &CRANmirrorID, &myControl);
   text = CFStringCreateWithFormat( NULL, NULL, CFSTR("%s"), Settings->CRANmirror);
   if(text){
        SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
        DrawOneControl(myControl);    
        CFRelease(text);
        text = NULL;
    }
  
/* Sets the BioC repository  name */
   GetControlByID(RPrefsWindow, &BIOCmirrorID, &myControl);
   text = CFStringCreateWithFormat( NULL, NULL, CFSTR("%s"), Settings->BIOCmirror);
   if(text){
        SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
        DrawOneControl(myControl);    
        CFRelease(text);
        text = NULL;
    }
    
/* Sets the Working Directory  name */
   GetControlByID(RPrefsWindow, &DefaultDirTextID, &myControl);
   text = CFStringCreateWithCString( NULL, Settings->WorkingDirectory, kCFStringEncodingMacRoman);
   if(text){
        SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
        DrawOneControl(myControl);    
        CFRelease(text);
        text = NULL;
    }

/* Sets color font for Output Console */
    GetControlByID(RPrefsWindow, &OutputColorID, &myControl);
    controlStyle.foreColor = Settings->FGOutputColor;
    controlStyle.backColor = Settings->BGOutputColor;
    SetControlFontStyle(myControl, &controlStyle);
    DrawOneControl(myControl);    
    
/* Sets color font for Input Console */
    GetControlByID(RPrefsWindow, &InputColorID, &myControl);
    controlStyle.foreColor = Settings->FGInputColor;
    controlStyle.backColor = Settings->BGInputColor;
    SetControlFontStyle(myControl, &controlStyle);    
    DrawOneControl(myControl);    
     
/* Sets Device Width */
    GetControlByID(RPrefsWindow, &WidthID, &myControl);
    text = CFStringCreateWithFormat( NULL, NULL, CFSTR("%f"), Settings->DeviceWidth );
    if(text){
        SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
        CFRelease( text );
        text = NULL;
    }
    
/* Sets Device Height */
    GetControlByID(RPrefsWindow, &HeightID, &myControl);
    text = CFStringCreateWithFormat( NULL, NULL, CFSTR("%f"), Settings->DeviceHeight );
    if(text){
        SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
        CFRelease( text );
        text = NULL;
    }

    GetControlByID(RPrefsWindow, &AutoRefreshID, &myControl);
    SetControl32BitValue(myControl, Settings->AutoRefresh);

    GetControlByID(RPrefsWindow, &AntiAliasingID, &myControl);
    SetControl32BitValue(myControl, Settings->AntiAlias);


    GetControlByID(RPrefsWindow, &QuartzPosID, &myControl);
    SetControl32BitValue(myControl, Settings->QuartzPos);

    GetControlByID(RPrefsWindow, &OverrideRDefBoxID, &myControl);
    SetControl32BitValue(myControl, Settings->OverrideRDefaults);

    GetControlByID(RPrefsWindow, &GlobalPackagesID, &myControl);
    SetControl32BitValue(myControl, Settings->GlobalPackages);

    GetControlByID(RPrefsWindow, &GrabStdoutID, &myControl);
    SetControl32BitValue(myControl, Settings->GrabStdout);

    GetControlByID(RPrefsWindow, &GrabStderrID, &myControl);
    SetControl32BitValue(myControl, Settings->GrabStderr);

    GetControlByID(RPrefsWindow, &SaveConsolePosID, &myControl);
    SetControl32BitValue(myControl, Settings->SaveConsolePos);

    GetControlByID(RPrefsWindow, &SetConsoleWidthID, &myControl);
    SetControl32BitValue(myControl, Settings->SetConsoleWidthOnResize);
}


void    SaveConsolePosToPrefs(void){
    CFDataRef   bounds;

    if(CurrentPrefs.SaveConsolePos == 0)
     return;
     
    bounds = CFDataCreate (NULL, (UInt8*)&ConsoleWindowBounds, sizeof(ConsoleWindowBounds));
    if(bounds){
     CFPreferencesSetAppValue(ConsoleBoundsKey, bounds, appName);
     CFRelease(bounds);
     bounds = NULL;
    }
    
    (void)CFPreferencesAppSynchronize(appName);
}

void SaveRPrefs(void)
{
    CFNumberRef value;
    CFStringRef text;
    int tabsize, fontsize, pointsize, quartzpos, fontface;
    double  devwidth, devheight;
    CFDataRef   color, bounds;
    RGBColor    fgout,bgout,fgin,bgin;
    char     devicefont[255], cran[255], bioc[255], workdir[255];
    int autorefresh, antialiasing, overrideRdef;
    long prefver;
    int grabstdout, grabstderr, globalpackages, saveconsolepos, setconsolewidth;


    
    prefver = CurrentPrefs.prefsTypeVers;
    tabsize = CurrentPrefs.RTabSize;
    fontsize = CurrentPrefs.RFontSize;
    fontface = CurrentPrefs.RFontFace;
    strcpy(devicefont, CurrentPrefs.DeviceFontName);
    
    pointsize = CurrentPrefs.DevicePointSize;
    devwidth = CurrentPrefs.DeviceWidth;
    devheight = CurrentPrefs.DeviceHeight;
    fgout = CurrentPrefs.FGOutputColor;    
    bgout = CurrentPrefs.BGOutputColor;    
    fgin = CurrentPrefs.FGInputColor;
    bgin = CurrentPrefs.BGInputColor;
    autorefresh = CurrentPrefs.AutoRefresh;
    antialiasing = CurrentPrefs.AntiAlias;
    quartzpos = CurrentPrefs.QuartzPos;
    overrideRdef = CurrentPrefs.OverrideRDefaults;
    globalpackages = CurrentPrefs.GlobalPackages;
    grabstdout = CurrentPrefs.GrabStdout;
    grabstderr = CurrentPrefs.GrabStderr;
    saveconsolepos = CurrentPrefs.SaveConsolePos;
    setconsolewidth = CurrentPrefs.SetConsoleWidthOnResize;
    strcpy(bioc, CurrentPrefs.BIOCmirror);
    strcpy(cran, CurrentPrefs.CRANmirror);
    strcpy(workdir, CurrentPrefs.WorkingDirectory);
    
       
/* Prefs Version */
    value = CFNumberCreate(NULL, kCFNumberLongType, &prefver); 
    if(value){
        CFPreferencesSetAppValue(RPrefsVerKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Tab Size */
    value = CFNumberCreate(NULL, kCFNumberIntType, &tabsize); 
    if(value){
        CFPreferencesSetAppValue(RTabSizeKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Font Size */
    value = CFNumberCreate(NULL, kCFNumberIntType, &fontsize); 
    if(value){
        CFPreferencesSetAppValue(RFontSizeKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Console Font Name */
    value = CFNumberCreate(NULL, kCFNumberIntType, &fontface); 
    if(value){
        CFPreferencesSetAppValue(RFontFaceKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Device Point Size */
    value = CFNumberCreate(NULL, kCFNumberIntType, &pointsize); 
    if(value){
        CFPreferencesSetAppValue(devPSizeKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Device Font Name */
    text = CFStringCreateWithCString(NULL, devicefont, kCFStringEncodingMacRoman);
    if(text){
        CFPreferencesSetAppValue(devicefontKey, text, appName);
        CFRelease(text);
        text = NULL;
    }
    
/* Device Width */
    value = CFNumberCreate(NULL, kCFNumberDoubleType, &devwidth); 
    if(value){
        CFPreferencesSetAppValue(devWidthKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Device Height */
    value = CFNumberCreate(NULL, kCFNumberDoubleType, &devheight); 
    if(value){
        CFPreferencesSetAppValue(devHeightKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Device Autorefresh */
    value = CFNumberCreate(NULL, kCFNumberIntType, &autorefresh); 
    if(value){
        CFPreferencesSetAppValue(devAutoRefreshKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Device Antialiasing */
    value = CFNumberCreate(NULL, kCFNumberIntType, &antialiasing); 
    if(value){
        CFPreferencesSetAppValue(devAntialiasingKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
        
/* Quartz Device Window Positioning */
    value = CFNumberCreate(NULL, kCFNumberIntType, &quartzpos); 
    if(value){
        CFPreferencesSetAppValue(devQuartzPosKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
/* Override R Defaults */
    value = CFNumberCreate(NULL, kCFNumberIntType, &overrideRdef); 
    if(value){
        CFPreferencesSetAppValue(devOverrideRDefKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
    /* CRAN */
    text = CFStringCreateWithCString(NULL, cran, kCFStringEncodingMacRoman);
    if(text){
        CFPreferencesSetAppValue(CRANmirrorKey, text, appName);
        CFRelease(text);
        text = NULL;
    }
    
    /* BIOC */
    text = CFStringCreateWithCString(NULL, bioc, kCFStringEncodingMacRoman);
    if(text){
        CFPreferencesSetAppValue(BIOCmirrorKey, text, appName);
        CFRelease(text);
        text = NULL;
    }
    
    /* WorkingDir */
    text = CFStringCreateWithCString(NULL, workdir, kCFStringEncodingMacRoman);
    if(text){
        CFPreferencesSetAppValue(WorkingDirKey, text, appName);
        CFRelease(text);
        text = NULL;
    }

    /* global install of packages */
    value = CFNumberCreate(NULL, kCFNumberIntType, &globalpackages); 
    if(value){
        CFPreferencesSetAppValue(GlobalPackagesKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
    value = CFNumberCreate(NULL, kCFNumberIntType, &grabstdout); 
    if(value){
        CFPreferencesSetAppValue(GrabStdoutKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
    value = CFNumberCreate(NULL, kCFNumberIntType, &grabstderr); 
    if(value){
        CFPreferencesSetAppValue(GrabStderrKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
    /* colors */
    color = CFDataCreate (NULL, (UInt8*)&fgout, sizeof(fgout));
    if(color){
        CFPreferencesSetAppValue(outfgKey, color, appName);
        CFRelease(color);
        color = NULL;
    }
    
    color = CFDataCreate (NULL, (UInt8*)&bgout, sizeof(bgout));
    if(color){
        CFPreferencesSetAppValue(outbgKey, color, appName);
        CFRelease(color);
        color = NULL;
    }

    color = CFDataCreate (NULL, (UInt8*)&fgin, sizeof(fgin));
    if(color){
        CFPreferencesSetAppValue(infgKey, color, appName);
        CFRelease(color);
        color = NULL;
    }

    color = CFDataCreate (NULL, (UInt8*)&bgin, sizeof(bgin));
    if(color){
        CFPreferencesSetAppValue(inbgKey, color, appName);
        CFRelease(color);
        color = NULL;
    }

    value = CFNumberCreate(NULL, kCFNumberIntType, &saveconsolepos); 
    if(value){
        CFPreferencesSetAppValue(SaveConsolePosKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
    value = CFNumberCreate(NULL, kCFNumberIntType, &setconsolewidth); 
    if(value){
        CFPreferencesSetAppValue(SetConsoleWidthKey, value, appName);
        CFRelease(value);
        value = NULL;
    }
    
    (void)CFPreferencesAppSynchronize(appName);
}

// Handler for the prefs tabs
// Switches between the 3 panes we have in this sample
static pascal OSStatus PrefsTabEventHandlerProc( EventHandlerCallRef inCallRef, EventRef inEvent, void* inUserData )
{
    static UInt16 lastPaneSelected = 1; // static, to keep track of it long term (in a more complex application
                                        // you might store this in a data structure in the window refCon)                                            
    WindowRef theWindow = (WindowRef)inUserData;  // get the windowRef, passed around as userData    
    short controlValue = 0;
    int qq;
    
     
    //  Get the new value of the tab control now that the user has picked it    
    controlValue = GetControlValue( GrabCRef(theWindow,kTabMasterSig,kTabMasterID) );
    // same as last ?
    if ( controlValue != lastPaneSelected )
    {
        // different from last time.
        // Hide the current pane and make the user selected pane the active one
        // our 3 tab pane IDs.  Put a dummy in so we can index without subtracting 1 (this array is zero based, 
        // control values are 1 based).
      int tabList[] = {kDummyValue, kTabMasterID,kTabMasterID+1, kTabMasterID+2, kTabMasterID+3};
                                                                                    
        // hide the current one, and set the new one
        SetControlVisibility( GrabCRef(  theWindow, kTabPaneSig,  tabList[lastPaneSelected]), false, true );
        SetControlVisibility( GrabCRef(  theWindow, kTabPaneSig,  tabList[controlValue]), true, true );    

        // make sure the new configuration is drawn correctly by redrawing the Tab control itself        
        Draw1Control( GrabCRef(theWindow,kTabMasterSig,kTabMasterID) );  
        // and update our tracking
        lastPaneSelected= controlValue;    
    }
    
    return( eventNotHandledErr );
}

static void SetInitialTabState(WindowRef theWindow)
{
  int tabList[] = {kTabMasterID,kTabMasterID+1,kTabMasterID+2,kTabMasterID+3 }; 
    short qq=0;
    // If we just run without setting the initial state, then the tab control
    // will have both (or all) sets of controls overlapping each other.
    // So we'll fix that by making one pane active right off the bat.
    
    // First pass, turn every pane invisible
    for(qq=0;qq<kMaxNumTabs;qq++)
    SetControlVisibility( GrabCRef(  theWindow, kTabPaneSig,  tabList[qq]), false, true );  
    
    // Set the tab control itself to have a value of 1, the first pane of the tab set
    SetControlValue(GrabCRef(theWindow,kTabMasterSig,kTabMasterID),1 );

    // This is the important bit, of course.  We're setting the currently selected pane
    // to be visible, which makes the associated controls in the pane visible.
    SetControlVisibility( GrabCRef(  theWindow, kTabPaneSig,  tabList[0]), true, true );

}

ControlRef GrabCRef(WindowRef theWindow,OSType theSig, SInt32 theNum)
{   ControlID contID;
    ControlRef theRef = NULL;
    contID.signature= theSig;
    contID.id=theNum;
    GetControlByID( theWindow, &contID, &theRef );
    return(theRef);
}

static  OSStatus GenContEventHandlerProc( EventHandlerCallRef inCallRef, EventRef inEvent, void* inUserData )
{
    ControlRef theCont = NULL;
    ControlID theID;
    WindowRef theWindow = (WindowRef)inUserData;
    RGBColor            outColor;
    ControlFontStyleRec controlStyle;
    ControlRef  myControl;
    char cran[255],bioc[255],cmd[600];
    CFStringRef text;

     if(FPIsFontPanelVisible())
      return( eventNotHandledErr );

    // Find out which button was clicked, and what it's ID is
    GetEventParameter (inEvent, kEventParamDirectObject, typeControlRef,NULL, sizeof(ControlRef), NULL, &theCont);
    GetControlID(theCont,&theID); 
    // swtich off the ID
 
    switch(theID.id){
        case kApplyPrefsButton:  
            HideWindow(theWindow);         
            GetDialogPrefs();
            RSetColors();
            RSetTab();
            RSetFontSize();
            RSetFont();
            RescaleInOut(0.8);
            RSetConsoleWidth();
            RSetPackagePrefs();
            RSetPipes();
        break;
        
        case kCancelPrefsButton: 
            HideWindow(theWindow); 
        break;
      
        case kDefaultDirButton: 
            if( DoSelectDirectory(cmd,"Choose a Startup Working Directory") == noErr){
                strcpy(TempPrefs.WorkingDirectory, cmd);
                text = CFStringCreateWithCString(NULL, cmd, kCFStringEncodingASCII); 
                if(text){
                    GetControlByID(RPrefsWindow, &DefaultDirTextID, &myControl);
                    SetControlData(myControl, kControlEditTextPart, kControlStaticTextCFStringTag, sizeof(CFStringRef), &text);
                    controlStyle.flags = kControlUseJustMask;
                    CFRelease(text);
                    text = NULL;
                }
                Draw1Control(myControl);                
            }
        break;

        case kSavePrefsButton: 
         GetDialogPrefs();
         RSetColors();
         RSetTab();
         RSetFontSize();
         RSetFont();
         RescaleInOut(0.8);
         RSetConsoleWidth();
         RSetPackagePrefs();
         RSetPipes();
         SaveRPrefs();
         HideWindow(theWindow);
        break;

        case kDefaultPrefsButton: 
         CopyPrefs(&DefaultPrefs,&TempPrefs);
         SetUpPrefsWindow(&TempPrefs);
         SetInitialTabState(RPrefsWindow);     
         ShowWindow(RPrefsWindow);
        break;
  
        case kOutputColorButton:
         pickColor(TempPrefs.FGOutputColor, &outColor);
         TempPrefs.FGOutputColor = outColor;
         GetControlByID(RPrefsWindow, &OutputColorID, &myControl);
         controlStyle.foreColor = TempPrefs.FGOutputColor;
         controlStyle.backColor = TempPrefs.BGOutputColor;
         SetControlFontStyle(myControl, &controlStyle);
         Draw1Control(myControl);    
        break;
        
        case kInputColorButton:
         pickColor(TempPrefs.FGInputColor, &outColor);
         TempPrefs.FGInputColor = outColor;
         GetControlByID(RPrefsWindow, &InputColorID, &myControl);
         controlStyle.foreColor = TempPrefs.FGInputColor;
         controlStyle.backColor = TempPrefs.BGInputColor;
         SetControlFontStyle(myControl, &controlStyle);
         Draw1Control(myControl);    
        break;
        
        case kOutputBackButton:
         pickColor(TempPrefs.BGOutputColor, &outColor);
         TempPrefs.BGOutputColor = outColor;
         GetControlByID(RPrefsWindow, &OutputColorID, &myControl);
         controlStyle.foreColor = TempPrefs.FGOutputColor;
         controlStyle.backColor = TempPrefs.BGOutputColor;
         SetControlFontStyle(myControl, &controlStyle);
         Draw1Control(myControl);    
        break;
        
        case kInputBackButton:
         pickColor(TempPrefs.BGInputColor, &outColor);
         TempPrefs.BGInputColor = outColor;
         GetControlByID(RPrefsWindow, &InputColorID, &myControl);
         controlStyle.foreColor = TempPrefs.FGInputColor;
         controlStyle.backColor = TempPrefs.BGInputColor;
         SetControlFontStyle(myControl, &controlStyle);
         Draw1Control(myControl);    
        break;
        
        case kDeviceFontButton:
         CallFontPanel();
        break;
        
        default:
        break;
    }

   return( eventNotHandledErr );
}



void CallFontPanel(void)
{
   DeactivatePrefsWindow();
   MySetFontSelection(); 
   FPShowHideFontPanel();
//   fprintf(stderr,"\n console font=%d", FPShowHideFontPanel());
   
}




OSStatus MySetFontSelection(void)
{
    OSStatus            status = noErr;
    FontSelectionQDStyle  qdInfo;
    FMFontFamilyInstance  fontFamilyInstance;                  
    Str255  fontname;
    SInt16      fontID;
     

    CopyCStringToPascal(TempPrefs.DeviceFontName, fontname);
    
    GetFNum(fontname,&fontID);

    fontFamilyInstance.fontStyle = 0;
    fontFamilyInstance.fontFamily = fontID;
/*
    fprintf(stderr,"\n temp device font=%s, id=%d", TempPrefs.DeviceFontName, fontID);
  */  
    instance.fontStyle = fontFamilyInstance.fontStyle;
    instance.fontFamily = fontFamilyInstance.fontFamily;
    
    qdInfo.version = kFontSelectionQDStyleVersionZero;
    qdInfo.instance = fontFamilyInstance;

    qdInfo.size = Long2Fix(TempPrefs.DevicePointSize);
    
    qdInfo.hasColor = false;

    status = SetFontInfoForSelection(kFontSelectionQDType,
        1, &qdInfo, NULL);
    
    return status;
}

OSStatus MyGetFontSelection (EventRef event)

{
    OSStatus status = noErr;
 
    instance.fontFamily = kInvalidFontFamily;
    instance.fontStyle = normal;
    fontSize = 0;
                                        
    if( (status = GetEventParameter (event, kEventParamFMFontFamily,
                                    typeFMFontFamily, NULL,
                                    sizeof (instance.fontFamily), 
                                    NULL, &(instance.fontFamily))) != noErr)             //2
    return status;            //3

    status = GetEventParameter (event, kEventParamFMFontSize,
                                    typeFMFontSize, NULL,
                                    sizeof( fontSize), NULL, &fontSize);              //5
                                    
    fprintf(stderr,"\n get selection: family=%d, size=%d",  instance.fontFamily, fontSize);                              
    
    return status;
}


void GetDialogPrefs(void)
{
    ControlHandle   controlField;
    CFStringRef     text;
    Size        actualSize;
      
    GetControlByID( RPrefsWindow, &WidthID, &controlField );
    GetControlData( controlField, 0, kControlEditTextCFStringTag, 
                    sizeof(CFStringRef), &text, &actualSize );
    CurrentPrefs.DeviceWidth = CFStringGetDoubleValue( text );
    if(text){
        CFRelease( text );
        text = NULL;
    }
    
    GetControlByID( RPrefsWindow, &HeightID, &controlField );
    GetControlData( controlField, 0, kControlEditTextCFStringTag, 
                    sizeof(CFStringRef), &text, &actualSize );
    CurrentPrefs.DeviceHeight = CFStringGetDoubleValue( text );
    if(text){
        CFRelease( text );
        text = NULL;
    }
    
    GetControlByID( RPrefsWindow, &AutoRefreshID, &controlField );
    CurrentPrefs.AutoRefresh = GetControl32BitValue(controlField);
    
    GetControlByID( RPrefsWindow, &AntiAliasingID, &controlField );
    CurrentPrefs.AntiAlias = GetControl32BitValue(controlField);
 
    GetControlByID( RPrefsWindow, &OverrideRDefBoxID, &controlField );
    CurrentPrefs.OverrideRDefaults = GetControl32BitValue(controlField);
    
    GetControlByID( RPrefsWindow, &RFontFaceID, &controlField );
    CurrentPrefs.RFontFace = GetControl32BitValue(controlField);

    GetControlByID( RPrefsWindow, &RFontSizeID, &controlField );
    CurrentPrefs.RFontSize = GetControl32BitValue(controlField);

    GetControlByID( RPrefsWindow, &RTabSizeID, &controlField );
    CurrentPrefs.RTabSize = GetControl32BitValue(controlField);

    GetControlByID( RPrefsWindow, &QuartzPosID, &controlField );
    CurrentPrefs.QuartzPos = GetControl32BitValue(controlField);

    CurrentPrefs.FGOutputColor = TempPrefs.FGOutputColor;
    CurrentPrefs.BGOutputColor = TempPrefs.BGOutputColor;    
    CurrentPrefs.FGInputColor = TempPrefs.FGInputColor;
    CurrentPrefs.BGInputColor = TempPrefs.BGInputColor;
        
    
    strcpy(CurrentPrefs.DeviceFontName, TempPrefs.DeviceFontName);
    CurrentPrefs.DevicePointSize = TempPrefs.DevicePointSize;
    
 
    /* FIXME: need error handling here */
    GetControlByID( RPrefsWindow, &CRANmirrorID, &controlField );
    GetControlData( controlField, 0, kControlEditTextCFStringTag, 
                    sizeof(CFStringRef), &text, &actualSize );
    CFStringGetCString(text,CurrentPrefs.CRANmirror, 255,  kCFStringEncodingMacRoman);
    if(text){
        CFRelease(text);
        text = NULL;
    }

    GetControlByID( RPrefsWindow, &BIOCmirrorID, &controlField );
    GetControlData( controlField, 0, kControlEditTextCFStringTag, 
                    sizeof(CFStringRef), &text, &actualSize );
    CFStringGetCString(text,CurrentPrefs.BIOCmirror, 255,  kCFStringEncodingMacRoman);
    if(text){
        CFRelease(text);
        text = NULL;
    }
    
    strcpy(CurrentPrefs.WorkingDirectory, TempPrefs.WorkingDirectory);
  
    GetControlByID( RPrefsWindow, &GlobalPackagesID, &controlField );
    CurrentPrefs.GlobalPackages = GetControl32BitValue(controlField);
 
    GetControlByID( RPrefsWindow, &GrabStdoutID, &controlField );
    CurrentPrefs.GrabStdout = GetControl32BitValue(controlField);

    GetControlByID( RPrefsWindow, &GrabStderrID, &controlField );
    CurrentPrefs.GrabStderr = GetControl32BitValue(controlField);
    
    GetControlByID( RPrefsWindow, &SaveConsolePosID, &controlField );
    CurrentPrefs.SaveConsolePos = GetControl32BitValue(controlField);

    GetControlByID( RPrefsWindow, &SetConsoleWidthID, &controlField );
    CurrentPrefs.SetConsoleWidthOnResize = GetControl32BitValue(controlField);
}

void pickColor(RGBColor inColour, RGBColor *outColor){
   RGBColor          blackColour;
   Str255            prompt;
   Point             where = {-1,-1};

   CopyCStringToPascal("Choose a text colour:", prompt);
   if (! GetColor(where,prompt,&inColour,outColor) )
      *outColor = inColour;


}

void RSetPipes(void){
    if(CurrentPrefs.GrabStdout==1)
        OpenStdoutPipe();
    else
        CloseStdoutPipe();
            
    if(CurrentPrefs.GrabStderr==1)
        OpenStderrPipe();
    else
        CloseStderrPipe();

}
/* sets options from Packages pane of Preferences */
void RSetPackagePrefs(void){
  char cmd[600];
  static char oldBIOC[255]="http://www.bioconductor.org",  oldCRAN[255]="http://cran.r-project.org";
  
  /* actual work */
  if (strcmp(oldCRAN, CurrentPrefs.CRANmirror) | 
      strcmp(oldBIOC, CurrentPrefs.BIOCmirror)){
    strcpy(oldCRAN, CurrentPrefs.CRANmirror);
    strcpy(oldBIOC, CurrentPrefs.BIOCmirror);
    sprintf(cmd,"options(CRAN='%s',BIOC='%s')",oldCRAN,oldBIOC);
    consolecmd(cmd);
  }

  return;

}


void ActivatePrefsWindow(void)
{
   ActivateControl( GrabCRef(RPrefsWindow,kTabMasterSig,kTabMasterID) ); 
   ActivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig,kApplyPrefsButton ) ); 
   ActivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig,kCancelPrefsButton ) ); 
   ActivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig, kDefaultPrefsButton) ); 
   ActivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig,kSavePrefsButton ) ); 
}

void DeactivatePrefsWindow(void)
{
   DeactivateControl( GrabCRef(RPrefsWindow,kTabMasterSig,kTabMasterID) ); 
   DeactivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig,kApplyPrefsButton ) ); 
   DeactivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig,kCancelPrefsButton ) ); 
   DeactivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig, kDefaultPrefsButton) ); 
   DeactivateControl( GrabCRef(RPrefsWindow,kPrefControlsSig,kSavePrefsButton ) ); 
}

#endif /* HAVE_AQUA */

#endif /* __AQUA_PREFS__ */