[hoc-cvs] hoc/Samples/ExpressionParser EPController.hs,1.4,1.5 Selectors.hs,1.2,NONE

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/Samples/ExpressionParser
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14320/Samples/ExpressionParser

Modified Files:
	EPController.hs 
Removed Files:
	Selectors.hs 
Log Message:
Use a (Template Haskell) Name rather than the selector info as a parameter
for InstanceMethod, i.e. instead of

$(exportClass ... [
        InstanceMethod info_foo
    ])

we now write

$(exportClass ... [
        InstanceMethod 'foo
    ])

Most importantly, it is no longer necessary to declare the selectors used
in exportClass in a separate file.


Index: EPController.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/Samples/ExpressionParser/EPController.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- EPController.hs	31 Mar 2005 16:37:59 -0000	1.4
+++ EPController.hs	20 Mar 2006 06:25:26 -0000	1.5
@@ -4,15 +4,16 @@
 
 import Cocoa hiding (parse)
 import ExpressionParser
-import Selectors
 import Text.ParserCombinators.Parsec (parse)
 
 $(declareClass "EPController" "NSObject")
 
+$(declareSelector "evaluateExpression:" [t| forall a. NSButton a -> IO () |])
+
 $(exportClass "EPController" "ep_"
   [ Outlet "expressionEntry" [t| NSTextField () |]
   , Outlet "evaluation"      [t| NSTextField () |]
-  , InstanceMethod Selectors.info_evaluateExpression
+  , InstanceMethod 'evaluateExpression
   ]
  )
 

--- Selectors.hs DELETED ---