diff options
author | fvogel <fvogelnew1@free.fr> | 2015-11-25 06:46:35 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2015-11-25 06:46:35 (GMT) |
commit | 0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15 (patch) | |
tree | 2847484c0c1578a74c7327702c386a4089d89756 /generic/tkText.c | |
parent | 7eba66e036e6b4dee49a6deb12ff389bbf5f7a17 (diff) | |
parent | 44411926e57b5c15f9910dcdcde14c666571645e (diff) | |
download | tk-0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15.zip tk-0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15.tar.gz tk-0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15.tar.bz2 |
merge mark
Diffstat (limited to 'generic/tkText.c')
-rw-r--r-- | generic/tkText.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tkText.c b/generic/tkText.c index 4edf652..dfcd294 100644 --- a/generic/tkText.c +++ b/generic/tkText.c @@ -35,6 +35,10 @@ #include "tkText.h" +#define LOG(toVar,what) \ + Tcl_SetVar2(textPtr->interp, toVar, NULL, (what), \ + TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT) + /* * Used to avoid having to allocate and deallocate arrays on the fly for * commonly used functions. Must be > 0. @@ -604,7 +608,9 @@ CreateWidget( TkTextCreateDInfo(textPtr); TkTextMakeByteIndex(textPtr->sharedTextPtr->tree, textPtr, 0, 0, &startIndex); +LOG("debug", "In createWidget, before"); TkTextSetYView(textPtr, &startIndex, 0); +LOG("debug", "In createWidget, after"); textPtr->exportSelection = 1; textPtr->pickEvent.type = LeaveNotify; textPtr->undo = textPtr->sharedTextPtr->undo; @@ -2652,7 +2658,9 @@ InsertChars( lineAndByteIndex[resetViewCount], 0, &newTop); TkTextIndexForwBytes(tPtr, &newTop, lineAndByteIndex[resetViewCount+1], &newTop); +LOG("debug", "In InsertChars, before"); TkTextSetYView(tPtr, &newTop, 0); +LOG("debug", "In InsertChars, after"); } } resetViewCount += 2; |