Commit 6c4a9676 authored by Raymond Toy's avatar Raymond Toy
Browse files

Merge branch 'clm-text-callback' of /Volumes/share2/src/clnet/rkreuter/cmucl...

Merge branch 'clm-text-callback' of /Volumes/share2/src/clnet/rkreuter/cmucl into rtoy-clm-text-callback
parents 2dd94c9b b16eb205
......@@ -326,7 +326,7 @@
(setf (list-callback-selection-type info)
(toolkit-read-value reply)))
info))
(:text
(:text-field
(let ((info (make-text-callback reason event)))
(when (member reason '(:cr-losing-focus :cr-modifying-text-value
:cr-moving-insert-cursor))
......
......@@ -210,12 +210,12 @@ void write_text_callback(message_t reply,XmTextVerifyCallbackStruct *info)
else if( info->reason == XmCR_MODIFYING_TEXT_VALUE ) {
message_write_int(reply,info->startPos,int_tag);
message_write_int(reply,info->endPos,int_tag);
really_write_string(reply,info->text->ptr,info->text->length+1);
if (info->text->ptr==NULL)
really_write_string(reply,"",1);
else
really_write_string(reply,info->text->ptr,info->text->length+1);
/* ***** Perhaps this should be an enumerated type ***** */
message_write_int(reply,info->text->format,int_tag);
printf("modifying_text_value: %s ; length=%d\n",info->text->ptr,
info->text->length);
fflush(stdout);
}
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment