OOP

review

Smalltalk-X

!!! Listing 1

#if (LANGUAGE == #german)
    'ok'    'ok'
    'abort' 'Abbruch'
    #endif
#if (LANGUAGE == #french)
    'ok'    'd''accord'
    'abort' 'canceler'
    #endif


!!! Listing 2

sub:num1 from:num2
|dif|
%{int res;
if (__isSmallInteger(num1)
   && __isSmallInteger(num2)) {
   res = __intVal(num2) - __intVal(num1);
   dif = __MKINT(res);}
%}.
    ^dif

!!! Listing 3

<script language="smalltalkScript">
<!-- a comment for non-script-capable browsers
!variables!
|var1|
!
!methods!
start
Transcript showCR:'scripts start method invoked'
!
stop
Transcript showCR:'scripts stop method invoked'
!
varInspect
var1 inspect.
! !
"/ immediate execution (at document load-time) ...
Transcript showCR:'hello: a message from the script'.
var1 := 'hello world'.
  -->
</script>