Re: critcl (was Re: [MACTCL] the bouncing icon)

[<gag...@ma...>]

I tried that with Critcl but he don't want to compile...Can someone try =20=

it or tell me why he does'nt compile?

################################################################
package require critcl
package provide tclCarbonNotification 1.0

lappend critcl::v::compile -framework Carbon

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

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

         if(!notificationAdded){
                 request.nmMark =3D bounce;

                 if(strlen(msg)) {
                         CopyCStringToPascal(msg,message);
                         request.nmStr =3D (StringPtr)&message;
                 } else {
                         request.nmStr =3D NULL;
                 }

                 request.qType =3D nmType;
                 request.nmSound =3D NULL;
                 request.nmResp =3D NULL;

                 err =3D NMInstall(&request);
                 if ( err !=3D noErr)
                         return TCL_ERROR;
                 notificationAdded =3D 1;
         }
         return TCL_OK;
}
critcl::cproc tclEndCarbonNotification {} ok {
         OSErr err;
         if(notificationAdded) {
                 err =3D NMRemove(&request);
                 if( err !=3D noErr )
                         return TCL_ERROR;
                 notificationAdded =3D 1;
         }
         return TCL_OK;

}
################################################################

Error code:
Wed May 26 16:57:53 EDT 2004 - =20
/Library/Tcl/Bin/critcl/lib/app-critcl/critcl.tcl
gcc -dynamiclib -fno-common -DUSE_TCL_STUBS -fPIC -framework Carbon =20
-I/Users/gagnonje/.critcl/Darwin-ppc -o =20
/Users/gagnonje/.critcl/Darwin-ppc/=20
v033_5021061515a277cc8415f271dc66acb7.dylib =20
/Users/gagnonje/.critcl/Darwin-ppc/=20
v033_5021061515a277cc8415f271dc66acb7.c  =20
/Users/gagnonje/.critcl/Darwin-ppc/=20
v033_856a48f1186f2528df5946029cd49832_pic.o -O2 -DNDEBUG
/usr/bin/libtool: internal link edit command failed
ERROR while compiling code in =20
/Library/Tcl/Bin/critcl/lib/app-critcl/critcl.tcl:

critcl build failed (/Library/Tcl/Bin/critcl/lib/app-critcl/critcl.tcl)
Package: /Applications/Utilities/amsn =20
cvs-true/msn/lib/tclCarbonNotification
error copying =20
"/Users/gagnonje/.critcl/Darwin-ppc/=20
v033_5021061515a277cc8415f271dc66acb7.dylib": no such file or directory
     while executing
"file copy [lindex $maininfo 0] $outname"
     invoked from within
"if {!$critcl::v::failed && ($lib || $pkg)} {
     # create a single merged shared library

     puts stderr "\nLibrary: $outname"
     critcl::config com..."
     (file "/Library/Tcl/Bin/critcl/lib/app-critcl/critcl.tcl" line 214)
     invoked from within
"source /Library/Tcl/Bin/critcl/lib/app-critcl/critcl.tcl"
     ("package ifneeded" script)
     invoked from within
"package require app-critcl"
     (file "/Library/Tcl/Bin/critcl/main.tcl" line 3)
     invoked from within
"source /Library/Tcl/Bin/critcl/main.tcl"
     ("uplevel" body line 1)
     invoked from within
"uplevel [list source [file join $self main.tcl]]"
Le 04-05-25, =E0 01:17, Daniel A. Steffen a =E9crit :

>
> On 24/05/2004, at 6:52, J=E9r=F4me Gagnon-Voyer wrote:
>
>> OK I found it by my self thanks!
>
> great, sorry I didn't reply sooner...
>
>> Just one question
>>
>> 	% lappend auto_path lib; package require tclCarbonNotification
>> 	1.0
>> 	% tclCarbonNotification 0 Alert!
>> 	% tclCarbonNotification 1 ""
>> 	% tclCarbonNotification 1 Alert!
>> How can we ask tclCarbonNotification just to bounce one time in the =20=

>> dock? (Not unlimited until we get back to the application)
>
> according to
>
> 	http://developer.apple.com/documentation/Carbon/Reference/=20
> Notification_Manager/nref_main/data_type_1.html#//apple_ref/c/tdef/=20
> NMRec
>
> this doesn't appear possible using Notification Manager, there might =20=

> be other API to do this, I don't know, Jim?
> otherwise, google for it, search the =20
> car...@li... archives, and ask on that list...
>
>
> Cheers,
>
> Daniel
>
> --=20
> ** Daniel A. Steffen     **  "And now for something completely
> ** Dept. of Mathematics  **   different"    Monty Python
> ** Macquarie University  **  <mailto:st...@ma...>
> ** NSW 2109 Australia    **  <http://www.maths.mq.edu.au/~steffen/>
>
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by: Oracle 10g
> Get certified on the hottest thing ever to hit the market... Oracle =20=

> 10g.
> Take an Oracle 10g class now, and we'll give you the exam FREE.
> http://ads.osdn.com/?ad_id149&alloc_id=9966&op=3Dclick
> _______________________________________________
> Tcl-mac mailing list
> Tc...@li...
> https://lists.sourceforge.net/lists/listinfo/tcl-mac
>