Updated 2011-12-24 15:39:20 by RLE

Critcl wrapper for Mac OS X Notification Manager services, c.f. [1] for details.

Part of CarbonCritLib: http://rutherglen.ics.mq.edu.au/~steffen/tcltk/carboncritlib/tclCarbonNotification.tcl

[ DAS 06/10/07 ]
#!/bin/sh
# #######################################################################
#
#  tclCarbonNotification.tcl
#
#  Critcl wrapper for Mac OS X Notification Manager services.
#
#  Process this file with 'critcl -pkg' to build a loadable package (or
#  simply source this file if [package require critcl] and a compiler
#  are available at deployment).
#
#
#  Author: Daniel A. Steffen
#  E-mail: <steffen@maths.mq.edu.au>
#    mail: Mathematics Departement
#           Macquarie University NSW 2109 Australia
#     www: <http://www.maths.mq.edu.au/~steffen/>
#
# RCS: @(#) $Id$
#
# BSD License: c.f. <http://www.opensource.org/licenses/bsd-license>
#
# Copyright (c) 2005-2007, Daniel A. Steffen <das@users.sourceforge.net>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or
# without modification, are permitted provided that the following
# conditions are met:
#
#   * Redistributions of source code must retain the above
#     copyright notice, this list of conditions and the
#     following disclaimer.
#
#   * Redistributions in binary form must reproduce the above
#     copyright notice, this list of conditions and the following
#     disclaimer in the documentation and/or other materials
#     provided with the distribution.
#
#   * Neither the name of Macquarie University nor the names of its
#     contributors may be used to endorse or promote products derived
#     from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL MACQUARIE
# UNIVERSITY OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
# BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
# OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
# TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
# USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
# DAMAGE.
#
# #######################################################################
# \
exec critcl -pkg "$0" "$@"

package require critcl
if {![::critcl::compiling]} {error "No compiler found"}

#---------------------------------------------------------------------------------------------------

package provide tclCarbonNotification 1.0

namespace eval carbon {

if {[llength [info commands ::critcl::framework]]} {
        ::critcl::framework Carbon
} else {
        lappend ::critcl::v::compile -framework Carbon
}

::critcl::ccode {
        #include <Carbon/Carbon.h>
        static int notificationAdded = 0;
        static NMRec request;

        static char *OSErrDesc(OSErr err) {
                static char desc[255];
                sprintf(desc, "OS Error: %d.", err);
                return desc;
        }
}

#---------------------------------------------------------------------------------------------------
#
# carbon::notification msg bounce
#
#   this command installs a Carbon notification request with the given msg, setting the bounce flag
#   will also cause the application icon in the dock to bounce. An empty msg will not post a
#   notification dialog but only cause the application icon to bounce.
#
#---------------------------------------------------------------------------------------------------

::critcl::cproc notification {Tcl_Interp* ip char* msg int bounce} ok {
        OSErr err;
        Str255 message;

        if(notificationAdded) {
                err = NMRemove(&request);
                if ( err != noErr) {
                        Tcl_AppendResult(ip, "Could not remove notification: ",
                                        OSErrDesc(err), NULL);
                        return TCL_ERROR;
                }
                notificationAdded = 0;
        }
        if(strlen(msg)) {
               CopyCStringToPascal(msg,message);
               request.nmStr = (StringPtr)&message;
        } else {
               request.nmStr = NULL;
        }
        request.nmMark = bounce;
        request.qType = nmType;
        request.nmSound = NULL;
        request.nmResp = NULL;
        err = NMInstall(&request);
        if ( err != noErr) {
                Tcl_AppendResult(ip, "Could not install notification: ", OSErrDesc(err), NULL);
                return TCL_ERROR;
        }
        notificationAdded = 1;
        return TCL_OK;
}

#---------------------------------------------------------------------------------------------------
#
# carbon::endNotification
#
#   this command removes a notification request installed with [carbon::notification].
#
#---------------------------------------------------------------------------------------------------

::critcl::cproc endNotification {Tcl_Interp* ip} ok {
        OSErr err;
        if(notificationAdded) {
                err = NMRemove(&request);
                if ( err != noErr) {
                        Tcl_AppendResult(ip, "Could not remove notification: ",
                                        OSErrDesc(err), NULL);
                        return TCL_ERROR;
                }
                notificationAdded = 0;
        }
        return TCL_OK;

}

}
#---------------------------------------------------------------------------------------------------