| Author: | jedahu |
|---|---|
| Mode: | haskell |
| Date: | Tue, 3 Feb 2009 08:05:34 |
{-# LANGUAGE DeriveDataTypeable, FlexibleInstances, MultiParamTypeClasses, TemplateHaskell, TypeSynonymInstances #-} module Test where import Cocoa $(declareClass "Test" "NSObject") $(exportClass "Test" "test_" []) -- _Test == nil => True -- _Test # alloc => *** Exception: user error (Message sent to nil: alloc)