The R Project SVN R

Rev

Rev 28991 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 28991 Rev 29197
Line 204... Line 204...
204 
    HGLOBAL hglb;
 204 
    HGLOBAL hglb;
205 
    char *text;
 205 
    char *text;
206 
    long pastelen;
 206 
    long pastelen;
207 
    if ( OpenClipboard(NULL) &&
 207 
    if ( OpenClipboard(NULL) &&
208 
         (hglb = GetClipboardData(CF_TEXT)) &&
 208 
         (hglb = GetClipboardData(CF_TEXT)) &&
209 
         (text = (char *)GlobalLock(hglb)))
 209 
         (text = (char *)GlobalLock(hglb))) {
210 
	pastelen = strlen(text);
 210 
	pastelen = strlen(text);
211 
    else pastelen = 0;
 - 
 
212 
    GlobalUnlock(hglb);
 211 
	GlobalUnlock(hglb);
213 
    CloseClipboard();
 212 
	CloseClipboard();
- 
 
 213 
    } else pastelen = 0;
214 
    return pastelen;
 214 
    return pastelen;
215 
}
 215 
}
216 
 
 216 
 
217 
/* Modification of the text selection functions in buttons.c to work
 217 
/* Modification of the text selection functions in buttons.c to work
218 
   with the EX messages used in rich edit controls. The selection
 218 
   with the EX messages used in rich edit controls. The selection