source: tags/pre_1_0_pre_hash_modifications/ccl/examples/cocoa-textfind.lisp @ 2475

Last change on this file since 2475 was 2475, checked in by anonymous, 14 years ago

This commit was manufactured by cvs2svn to create tag
'pre_1_0_pre_hash_modifications'.

  • 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.