Rectangle.st
branchjv
changeset 19967 9b1443c2aab1
parent 18896 00f8282955aa
parent 19960 32fa5617bd7a
child 20079 8d884971c2ed
equal deleted inserted replaced
19964:3c71c4480e4b 19967:9b1443c2aab1
  1214      is contained fully within the receiver"
  1214      is contained fully within the receiver"
  1215 
  1215 
  1216 %{  /* NOCONTEXT */
  1216 %{  /* NOCONTEXT */
  1217     /*
  1217     /*
  1218      * claus: this may be often called by objectView
  1218      * claus: this may be often called by objectView
  1219      * the primitive code below (although lookung ugly)
  1219      * the primitive code below (although looking ugly)
  1220      * speeds that up by almost a factor of 2 ...
  1220      * speeds that up by almost a factor of 2 ...
  1221      */
  1221      */
  1222     OBJ slf = self;
  1222     OBJ slf = self;
  1223     OBJ rct = aRectangle;
  1223     OBJ rct = aRectangle;
  1224 
  1224 
  1361     |b r|
  1361     |b r|
  1362 
  1362 
  1363 %{  /* NOCONTEXT */
  1363 %{  /* NOCONTEXT */
  1364     /*
  1364     /*
  1365      * claus: this is one of the mostly called methods in
  1365      * claus: this is one of the mostly called methods in
  1366      * the objectView - the primitive code below (although lookung ugly)
  1366      * the objectView - the primitive code below (although looking ugly)
  1367      * speeds up drawing by almost a factor of 2 ...
  1367      * speeds up drawing by almost a factor of 2 ...
  1368      */
  1368      */
  1369     OBJ slf = self;
  1369     OBJ slf = self;
  1370     OBJ rct = aRectangle;
  1370     OBJ rct = aRectangle;
  1371 
  1371