summaryrefslogtreecommitdiffstats
path: root/generic/tkText.c
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-11-25 06:46:35 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-11-25 06:46:35 (GMT)
commit0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15 (patch)
tree2847484c0c1578a74c7327702c386a4089d89756 /generic/tkText.c
parent7eba66e036e6b4dee49a6deb12ff389bbf5f7a17 (diff)
parent44411926e57b5c15f9910dcdcde14c666571645e (diff)
downloadtk-0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15.zip
tk-0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15.tar.gz
tk-0b0f3519d5ce4fe0cc6d26f685c6712fd013ba15.tar.bz2
merge mark
Diffstat (limited to 'generic/tkText.c')
-rw-r--r--generic/tkText.c8
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;