[hoc-cvs] hoc/Samples/Editor HaskellDocument.hs,1.2,1.3 Selectors.hs,1.1,NONE

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

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

Modified Files:
	HaskellDocument.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: HaskellDocument.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/Samples/Editor/HaskellDocument.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- HaskellDocument.hs	31 Mar 2005 16:37:58 -0000	1.2
+++ HaskellDocument.hs	20 Mar 2006 06:25:26 -0000	1.3
@@ -13,10 +13,10 @@
         Outlet "textView" [t| NSTextView () |],
         InstanceVariable "text" [t| Maybe (NSString ()) |] [| Nothing |],
         
-        InstanceMethod info_windowNibName,
-        InstanceMethod info_writeToFileOfType,
-        InstanceMethod info_readFromFileOfType,
-        InstanceMethod info_windowControllerDidLoadNib
+        InstanceMethod 'windowNibName,
+        InstanceMethod 'writeToFileOfType,
+        InstanceMethod 'readFromFileOfType,
+        InstanceMethod 'windowControllerDidLoadNib
     ])
     
 hd_windowNibName self =

--- Selectors.hs DELETED ---