equal
deleted
inserted
replaced
327 self run:#test_call_02 |
327 self run:#test_call_02 |
328 self new test_call_02 |
328 self new test_call_02 |
329 " |
329 " |
330 |
330 |
331 "Created: / 04-03-2019 / 11:12:23 / Claus Gittinger" |
331 "Created: / 04-03-2019 / 11:12:23 / Claus Gittinger" |
|
332 ! |
|
333 |
|
334 test_call_03 |
|
335 |fn nsApp| |
|
336 |
|
337 OperatingSystem isOSXlike ifFalse:[ |
|
338 "This test makes sense only on OSX" |
|
339 ^ self |
|
340 ]. |
|
341 |
|
342 nsApp := ObjCClass named:'NSApplication'. |
|
343 |
|
344 fn := ExternalLibraryFunction |
|
345 name:'sharedApplication' |
|
346 module:nil |
|
347 callType:'objc' |
|
348 returnType:(CType void) |
|
349 argumentTypes:#(). |
|
350 |
|
351 fn invokeObjCOn:nsApp. |
|
352 |
|
353 " |
|
354 self run:#test_call_03 |
|
355 self new test_call_03 |
|
356 " |
|
357 |
|
358 "Created: / 04-03-2019 / 11:41:02 / Claus Gittinger" |
332 ! ! |
359 ! ! |
333 |
360 |
334 !ExternalInterfaceTests methodsFor:'types'! |
361 !ExternalInterfaceTests methodsFor:'types'! |
335 |
362 |
336 var1 |
363 var1 |
359 |
386 |
360 !ExternalInterfaceTests class methodsFor:'documentation'! |
387 !ExternalInterfaceTests class methodsFor:'documentation'! |
361 |
388 |
362 version |
389 version |
363 ^ '$Header$' |
390 ^ '$Header$' |
364 ! ! |
391 ! |
365 |
392 |
|
393 version_CVS |
|
394 ^ '$Header$' |
|
395 ! ! |
|
396 |