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