{\rtf0\ansi{\fonttbl\f2\fmodern Ohlfs;\f3\fmodern Courier;\f1\fswiss Helvetica;}
\margl40
\margr40
{\colortbl;\red0\green0\blue0;\red255\green0\blue3;\red85\green85\blue85;}
\pard\tx520\tx1060\tx1600\tx2120\tx2660\tx3200\tx3720\tx4260\tx4800\tx5320\f2\b0\i0\ulnone\fs20\fc0\cf0 /* ExampleClass.m				 \
 *\

\fc1\cf1  * This class servers as an example for how to layout Rich Sources\
 * so that they are still parsable with the ClassEditor.\

\fc0\cf0  *\
 * For interface-info see the header file. The comments in this file mostly\
 * cover only the real implementation details.\
 *\
 * Written by: 		Thomas Engel\
 * Created:    		
\fc1\cf1 20.01.1995
\fc0\cf0  (Copyleft)\
 * Last modified: 	
\fc1\cf1 20.01.1995
\fc0\cf0 \
 */\
\

\f3\b\fs24\fc1\cf1 #define
\f2\b0\fs20\fc0\cf0  CURRENT_VERSION 1.2\
\

\f3\b\fs24\fc1\cf1 #import
\f2\b0\fs20\fc0\cf0  "ExampleClass.h"\

\f3\b\fs24\fc1\cf1 #import
\f2\b0\fs20\fc0\cf0  <misckit/MiscString.h>\
\

\f3\b\fs24\fc1\cf1 @implementation
\f2\b0\fs20\fc0\cf0  ExampleClass\
\
+ initialize\
\{\
	
\f3\b\fs24\fc1\cf1 if
\f2\b0\fs20\fc0\cf0  ( self == [ExampleClass class] )\
		[ExampleClass setVersion:CURRENT_VERSION];\
\
	
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  self;\
\}\
\

\fc1\cf1 - init\

\fc0\cf0 \{\
	[super init];\
	
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  [self initFromText:[MiscString newWithString:"- myMethod:sender"]];\
	\

\f1\fs24\gray300\fc2\cf2 	// BUG:	 Memory leak ! Who frees this string ?\
	//		initFromText does not !\

\f2\fs20\gray0\fc0\cf0 \}\
\

\fc1\cf1 - initFromText:theLine\

\fc0\cf0 \{\
	[super init];\
	name = [MiscString new];\
	[name takeStringValue:theLine];\
	[name replaceEveryOccurrenceOf:";" with:" "];\
	[name trimWhiteSpaces];\
\

\f1\fs24\gray333\fc3\cf3 	// Now charAt:0 _MUST_ be the method type !!\

\f2\fs20\gray0\fc0\cf0 	\
	selectorName = [name copy];\
	[selectorName replaceCharAt:0 withChar:' ']; \
	[selectorName trimWhiteSpaces];\
\
	return self;\
\}\
\
- free\
\{\
	[selectorName free];\
\

\f1\fs24\gray300\fc2\cf2 	// BUG: 	Really nasty guy...we don't really take care of all the \
	//		real bugs. We have forgoten about the name.\
	//		looks like there are more memory leaks too.\

\f2\fs20\gray0\fc0\cf0 \
	
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  [super free];\
\}\
\
- (char *)name\
\{\
	
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  [name stringValue];\
\}\
\
- (char *)selectorName\
\{\

\f1\fs24\gray333\fc3\cf3 	// Now here nothing really happens...right ?\
	// It would be nice if we had some me details on what with is all about....\
\

\f2\fs20\gray0\fc0\cf0 	
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  [selectorName stringValue];\
\}\
\
- (BOOL)isInstanceMethod\
\{\
	
\f3\b\fs24\fc1\cf1 if
\f2\b0\fs20\fc0\cf0 ( [name charAt:0] == '+' ) 
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  
\fc1\cf1 NO
\fc0\cf0 ;\
	
\f3\b\fs24\fc1\cf1 return
\f2\b0\fs20\fc0\cf0  YES;\
\}\
\
- (void *)doNothing:(int)right butWithSpeed:forTesting;\
\{\

\f1\fs24\gray333\fc3\cf3 	// stupid dummy !!!\

\f2\fs20\gray0\fc0\cf0 \}\

\f3\b\fs24\fc1\cf1 @end
\f2\b0\fs20\fc0\cf0 \
\
/*\
 * History: 13.01.95 Buh\
 *			\
 *\
 * Bugs: - ...\
 */
}
