[Tcllib-bugs] [ tkcon-Feature Requests-2991746 ] option -tabs for the edit procedure

[SourceForge.net <no...@so...>]

Feature Requests item #2991746, was opened at 2010-04-24 15:35
Message generated for change (Tracker Item Submitted) made by zdia
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=361462&aid=2991746&group_id=11462

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Priority: 5
Private: No
Submitted By: Zbigniew Diaczyszyn (zdia)
Assigned to: Nobody/Anonymous (nobody)
Summary: option -tabs for the edit procedure

Initial Comment:
I didn't find an option for the tab width while using the tkcon's edit function and a standard spacing of 8 characters is too much.

My quick and dirty solution:

I added to the copy of tkcon the following line in the procedure edit for a tab length of 2:

-tabs "[expr {2 * [font measure $::tkcon::OPT(font) 0]}] left" -tabstyle wordprocessor

The patch in diff format:

--- opt/ActiveTcl-8.5/bin/tkcon 
+++ home/dia/Programme/tkcon2 
@@ -3822,7 +3822,9 @@
 	-foreground $::tkcon::COLOR(stdin) \
 	-background $::tkcon::COLOR(bg) \
 	-insertbackground $::tkcon::COLOR(cursor) \
-	-font $::tkcon::OPT(font) -borderwidth 1 -highlightthickness 0
+	-font $::tkcon::OPT(font) -borderwidth 1 -highlightthickness 0 \
+	-tabs "[expr {2 * [font measure $::tkcon::OPT(font) 0]}] left" -tabstyle wordprocessor
+	
     catch {
 	# 8.4+ stuff
 	$w.text configure -undo 1

It would be fine if a user had a option -tabs to set in the rc file.


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=361462&aid=2991746&group_id=11462