Inner classes: Difference between revisions

Content added Content deleted

Inline

@@ Line 50: / Line 50: @@
     PROC new outer = REF REF OUTER:
          BEGIN
-             HEAP OUTER     thisv := OUTER( 0, new outer, NIL, print outer );
+             HEAP OUTER     thisv := OUTER( 0
+                                          , new outer
+                                          , NIL
+                                          , ( REF OUTER this )VOID:
+                                                print( ( "[", whole( omember OF this, 0 ), "]" ) )
+                                          );
              HEAP REF OUTER this  := thisv;
              oinner OF this       := new inner( this );
@@ Line 57: / Line 62: @@
     PROC new inner = ( REF REF OUTER super )REF REF INNER:
          BEGIN
-             HEAP INNER     thisv := INNER( super, " ", new inner, print inner );
+             HEAP INNER     thisv := INNER( super
+                                          , " "
+                                          , new inner
+                                          , ( REF INNER this )VOID:
+                                                print( ( "<<", cmember OF this
+                                                       , "><", whole( omember OF super OF this, 0 )
+                                                       , ">>"
+                                                       )
+                                                     )
+                                          );
              HEAP REF INNER this  := thisv;
              this
          END # new inner # ;
-    # print methods                                                           #
-    PROC print outer = ( REF OUTER this )VOID:
-         print( ( "[", whole( omember OF this, 0 ), "]" ) );
-    PROC print inner = ( REF INNER this )VOID:
-         print( ( "<<", cmember OF this
-                , "><", whole( omember OF super OF this, 0 )
-                , ">>"
-                )
-              );
     REF OUTER o := new outer;                # create an instance of OUTER    #