8 lines
174 B
Smalltalk
8 lines
174 B
Smalltalk
|
Object subclass:'CallDemo'!
|
||
|
|
!CallDemo class methods!
|
||
|
|
strdup:arg
|
||
|
|
<cdecl: mustFree char* 'strdup' (char*) module:'libc'>
|
||
|
|
! !
|
||
|
|
|
||
|
|
Transcript showCR:( CallDemo strdup:'Hello' )
|