[comp.lang.pascal] Revision to phone input posting

TOMJ@csdserver3.csd.scarolina.edu (Thomas E. Jenkins, Jr.) (06/11/91)

Hi,

  I meant to change the code to call BlockCursor in the Init for the object
like this :

........

TYPE

       PInputPhone                               = ^TInputPhone ;
       TInputPhone                               = OBJECT ( TInputLine )

         CONSTRUCTOR Init ( VAR bounds           : TRect ;
                                aMaxLen          : INTEGER ) ;

         END ;  {  TInputPhone  }



..........


 CONSTRUCTOR Init ( VAR bounds                   : TRect ;
                        aMaxLen                  : INTEGER ) ;

   BEGIN  {  TInputPhone.Init  }

     TInputLine.Init ( bounds , aMaxLen ) ;

     BlockCursor ;

     END ;  {  TInputPhone.Init  }

..............


Sorry for any confusion *grin*.  This method is much more efficient since
it is called only as TInputPhone objects are initialized.  The other method
calls BlockCursor for EVERY event while the phone line is focused!  While it
doesn't affect performance noticably ( even with the two background
processes ), it is still not good programming.

tom
+--------------------------------------------------------------------------+
|  Thomas E. Jenkins, Jr.   Programmer, University of South Carolina CSD   |
+--------------------------------------------------------------------------+
| BITNET         :  C0361@UNIVSCVM.BITNET  |  CSDNET  :  tomj/csdserver3   |
| INTERNET       :  TOMJ@csdserver3.csd.scarolina.EDU          {PREFERRED} |
|                :  C0361@univscvm.csd.scarolina.EDU  |  129.252.43.30     |
+--------------------------------------------------------------------------+