Index: anches/ide-1.0/ccl/examples/cocoa-textfind.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-textfind.lisp	(revision 6859)
+++ 	(revision )
@@ -1,19 +1,0 @@
-(in-package "CCL)
-
-;;; This is stolen (rather shamelessly) from the TextFinder class in
-;;; Apple's TextEdit example.
-
-(require "COCOA-WINDOW")
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (setq *readtable* *objc-readtable*))
-
-(def-objc-class "TextFinder" "NSObject"
-  ((findstring "findString") (* (:struct :<NSS>tring)))
-  ((findtextfield "findTextField") :id)
-  ((replacetextfield "replaceTextField") :id)
-  ((ignorecasebutton "ignoreCaseButton") :id)
-  ((findnextbutton "findNextButton") :id)
-  ((statusfield "statusField") :id)
-  ((lastfindwassuccessful "lastFindWasSuccessful") :<BOOL>))
-
-