Hi. After a bit of research, I see in the Norton Guides some reference to a bunch of objGet / oGet type functions. In our Clipper 5.2e APP, we have a GETSYS.PRG which seems to implement a lot of these functions. My guess is that Clipper 5.3 decided to make these functions part of the core, instead of giving you a GETSYS.PRG template?
Anyways, the problem we're having is on line 157 of the following code. It hangs when a NIL is returned by the postBlock block. (I have no idea what / where the postBlock is even declared, as mentioned in my post to the Users maillist: http://lists.harbour-project.org/pipermail/harbour-users/2010-February/000314.html). To add a bit more confusion, I am not sure in Harbour / Clipper 5.3 you have to have this "getsys.prg" file. It seems we need for what we are doing, as you can see an added line of code on line 152 where my superior added some cursor modifications. My first guess would be to simply add some sort of VALTYPE == "L" check prior to doing the IF statement, but I am not sure if this is a problem with Harbour, or our own code. I thought I would ask here. If my post makes no sense to the developers, I will try to provide more code / info. Thanks in advance. 135 PROCEDURE GetReader( oGet ) 136 137 // Read the GET if the WHEN condition is satisfied 138 IF ( GetPreValidate( oGet ) ) 139 140 // Activate the GET for reading 141 oGet:setFocus() 142 143 WHILE ( oGet:exitState == GE_NOEXIT ) 144 145 // Check for initial typeout (no editable positions) 146 IF ( oGet:typeOut ) 147 oGet:exitState := GE_ENTER 148 ENDIF 149 150 // Apply keystrokes until exit 151 WHILE ( oGet:exitState == GE_NOEXIT ) 152 SETCURSOR(IIF( SET(_SET_INSERT),2,1)) // MIKE ADDED TO CHANGE CURSOR SHAPE 153 GetApplyKey( oGet, inkey( 0 ) ) 154 ENDDO 155 156 // Disallow exit if the VALID condition is not satisfied 157 IF ( !GetPostValidate( oGet ) ) 158 oGet:exitState := GE_NOEXIT 159 ENDIF 160 ENDDO 161 162 // De-activate the GET 163 oGet:killFocus() 164 165 ENDIF 166 167 RETURN 168 -- smu johnson <smujohn...@gmail.com>
_______________________________________________ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
