359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
|
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
|
+
-
-
+
+
+
+
+
+
+
-
+
+
+
+
+
-
+
+
+
+
+
-
+
+
+
+
+
|
/*
* Some of the configuration options, like -underline and
* -justify, require additional translation (this is needed
* because we need to distinguish a particular value of an option
* from "unspecified").
*/
if (tagPtr->borderWidth != INT_MIN) {
if (tagPtr->borderWidth < 0) {
tagPtr->borderWidth = 0;
if (tagPtr->borderWidth < 0) {
tagPtr->borderWidth = INT_MIN;
if (tagPtr->borderWidthPtr) {
Tcl_DecrRefCount(tagPtr->borderWidthPtr);
tagPtr->borderWidthPtr = NULL;
}
}
}
if (tagPtr->spacing1 != INT_MIN) {
if (tagPtr->spacing1 < 0) {
tagPtr->spacing1 = 0;
tagPtr->spacing1 = INT_MIN;
if (tagPtr->spacing1Obj) {
Tcl_DecrRefCount(tagPtr->spacing1Obj);
tagPtr->spacing1Obj = NULL;
}
}
}
if (tagPtr->spacing2 != INT_MIN) {
if (tagPtr->spacing2 < 0) {
tagPtr->spacing2 = 0;
tagPtr->spacing2 = INT_MIN;
if (tagPtr->spacing2Obj) {
Tcl_DecrRefCount(tagPtr->spacing2Obj);
tagPtr->spacing2Obj = NULL;
}
}
}
if (tagPtr->spacing3 != INT_MIN) {
if (tagPtr->spacing3 < 0) {
tagPtr->spacing3 = 0;
tagPtr->spacing3 = INT_MIN;
if (tagPtr->spacing3Obj) {
Tcl_DecrRefCount(tagPtr->spacing3Obj);
tagPtr->spacing3Obj = NULL;
}
}
}
if (tagPtr->tabArrayPtr != NULL) {
ckfree(tagPtr->tabArrayPtr);
tagPtr->tabArrayPtr = NULL;
}
if (tagPtr->tabStringPtr != NULL) {
|
