source: trunk/ccl/examples/cocoa-textfind.lisp @ 6

Last change on this file since 6 was 6, checked in by gb, 16 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 609 bytes
Line 
1(in-package "CCL)
2
3;;; This is stolen (rather shamelessly) from the TextFinder class in
4;;; Apple's TextEdit example.
5
6(require "COCOA-WINDOW")
7(eval-when (:compile-toplevel :load-toplevel :execute)
8  (setq *readtable* *objc-readtable*))
9
10(def-objc-class "TextFinder" "NSObject"
11  ((findstring "findString") (* (:struct :<NSS>tring)))
12  ((findtextfield "findTextField") :id)
13  ((replacetextfield "replaceTextField") :id)
14  ((ignorecasebutton "ignoreCaseButton") :id)
15  ((findnextbutton "findNextButton") :id)
16  ((statusfield "statusField") :id)
17  ((lastfindwassuccessful "lastFindWasSuccessful") :<BOOL>))
18
19 
Note: See TracBrowser for help on using the repository browser.