A couple months ago I
incorporated a change from this forum, basic code below, to be able to fetch the clipboard contents, edit it, then put the edited version into the get . This stopped working with the last update, in the following code it crashes on the oClp:Open() line, giving me a TGet():MsgNotFound(0) error. What might have changed in fivewin to cause this to start happening, and what is the solution?
- Code: Select all Expand view RUN
// oSegment is a get
oSegment:bGotFocus := { |oClp| ColToString( oClp ) }
STATIC PROCEDURE ColToString( oClp )
LOCAL cText
IF oClp:Open() <<== Crashes with TGet():MsgNotFound(0) here
cText := AllTrim( oClp:GetText() )
IF cText != NIL
IF _LF $ cText
cText := StrTran( cText, _CRLF, _LF )
cText := StrTran( cText, _LF, "," )
cText := StrTran( cText, " ", "," )
cText := AllTrim( cText )
DO WHILE Right( cText, 01 ) == ","
cText := RTrim( Left( cText, Len( cText ) - 1 ) )
ENDDO
oClp:Clear()
oClp:SetText( cText )
ENDIF
ENDIF
oClp:Close()
ENDIF
RETURN