Tk Source Code

# Bindings for IME text input.

bind Text <<TkStartIMEMarkedText>> {
    dict set ::tk::Priv(IMETextMark) "%W" [%W index insert]
}
bind Text <<TkEndIMEMarkedText>> {
    %W tag add IMEmarkedtext [dict get $::tk::Priv(IMETextMark) "%W"] insert
    %W tag configure IMEmarkedtext -underline on
    update idletasks
}
bind Text <<TkClearIMEMarkedText>> {
    %W delete IMEmarkedtext.first IMEmarkedtext.last
    update idletasks
}

# Macintosh only bindings:

if {[tk windowingsystem] eq "aqua"} {
bind Text <Control-v> {
    tk::TextScrollPages %W 1

    if {($x != $Priv(x)) || ($y != $Priv(y))} {
	set Priv(mouseMoved) 1
    }
    if {[info exists Priv(mouseMoved)] && $Priv(mouseMoved)} {
	$w scan dragto $x $y
    }
}

    int haveExternalClip =
	    ([[NSPasteboard generalPasteboard] changeCount] != changeCount);

    if (dispPtr && (haveExternalClip || dispPtr->clipboardActive)
	        && selection == dispPtr->clipboardAtom
	        && (target == XA_STRING || target == dispPtr->utf8Atom)) {
	NSString *string = nil;
	NSString *clean;
	NSPasteboard *pb = [NSPasteboard generalPasteboard];
	NSString *type = [pb availableTypeFromArray:[NSArray arrayWithObject:
		NSStringPboardType]];

	if (type) {
	    string = [pb stringForType:type];
	}
	if (string) {
	    /*
	     * Replace all non-BMP characters by the replacement character 0xfffd.
	     * This is a workaround until Tcl supports TCL_UTF_MAX > 3.
	     */
	    int i, j, len = [string length];
	    CFRange all = CFRangeMake(0, len);
	    UniChar *buffer = ckalloc(len*sizeof(UniChar));
	    CFStringGetCharacters((CFStringRef) string, all, buffer);
	    for (i = 0, j = 0 ; j < len ; i++, j++) {
		if (CFStringIsSurrogateHighCharacter(buffer[j])) {
		    buffer[i] = 0xfffd;
		    j++;
		} else {
		    buffer[i] = buffer[j];
		}
	    }
	    clean = (NSString *)CFStringCreateWithCharacters(NULL, buffer, i);
	    ckfree(buffer);
	}
	result = proc(clientData, interp, [clean UTF8String]);
    } else {
	Tcl_SetObjResult(interp, Tcl_ObjPrintf(
		"%s selection doesn't exist or form \"%s\" not defined",
		Tk_GetAtomName(tkwin, selection),
		Tk_GetAtomName(tkwin, target)));
	Tcl_SetErrorCode(interp, "TK", "SELECTION", "EXISTS", NULL);
    }