ttk::label not defaulting to 'w' anchor option ?

Hi ! With the following code : % package require Tk 8.5.0 % ttk::label .l -text mylab ..l % pack .l -expand yes -fill both Now you can resize the '.' window and see that the text is anchored to west. However, the [.l configure] tells me that -anchor equals {}. Even with CVS HEAD. That looks like a bug to me. Should I file a ticket on SF ? Thanks !

Equivalent of Blt_DictionaryCompare in C

Although this is a C language question but it has it's origins in TCL. We use the function Blt_DictionaryCompare in one part of our application which is in TCL but we want same sorting behavior for another part of the application which is not in TCL rather written in C. I cant seem to locate an equivalent function in C for this. Briefly the behavior of this function for ascending order sort for an example set is: "abc4, abc 100" rather than "abc100, abc4" for normal sort routine like strcasecmp. I dont want to write the routine myself in C if it already exists and also want to avoi

Starkit & Ffidl strange behavior

Hi everybody, Today I've encountered some strange behavior trying to use starkit package. Here's my environment: ActiveTcl 8.5.5.0 on Windows XP 32bit SP3 and sample code snippet: # -- Begin # StarKit 1.3.2 package require starkit #puts --\ Before:$auto_path set skstartup [ starkit::startup ] #puts --\ After\ :$auto_path #set auto_path [ lrange $auto_path 1 end-1 ] lappend auto_path lib package require Ffidlrt puts {That's all, folks!} # -- End The code snippet is located in "My Documents\My Project", and all packages are in ./lib subdirectory. The code snippet fails wit

ttk::entry Win32/Linux portability issue

Hello I have the following problem with a ttk::entry which does not seem as much portable as I would want. The ttk::entry has an option named 'cursor' (which defaults to 'ibeam') under Win32(XP). This option does not exist under Linux (not listed with a [.myWidget configure] call). Both systems use 8.5.x Tk based distros. Is there any valid good reason for such a difference ? If confirmed, there is a portability issue, as [.myTtkEntry configure - cursor ibeam] will yield an error under Linux platforms. Thanks !

Determine terminal width, strange behavior of tput

Hi guys, I'm trying to determine the terminal window from within a TCL script. I was playing around with Linux's 'tput cols' and get strange differences between using and not using exec: % tput cols 153 (correct) % exec tput cols 80 (incorrect) So, ok, I got the right answer, but that works only for interactive shell; in a script I get invalid command tput. So: 1. How can I get exec tput to behave as tput, or; 2. How do I determine the terminal width from within a TCL script?

tcl7.6 and tk4.2 on windows 7

Hello. Thanks for reading this post. Has anybody compiled tcl7.6 and tk4.2 on windows 7? I have an old c application that I ported to windows 7 which uses this old version of tcltk in a few executables. I do have the dlls: tcl76.dll and tk42.dll, but the applications that use them don't run. I switched to tcl and tk 8.5 and again those three executables compiled cleanly but didn't run. I am missing tcl76.lib and tk42.lib and I think I need the libs (tables with ext refs) to be able to jump to the dlls. Thanks, Kay

How to scan a large amount of files for not containing words in a quick manner?

Hi, I have nearly 1500 tokens/words and 2000 files "using" such words. Now I want to find out, which words are not used inside this files. Currently I open each file and loop over each word using it inside a regexp pattern "[[:<:]]$word[[:>:]]" to test the regexp result to be 0. Has someone already done this and found a quicker way to test the non- existance of ca. 1500 words inside a file? Best regards, Martin

TkTreeCtrl and <B1-Motion>

Hi, I have a problem with binding <B1-Motion> to TkTreeCtrl widget. It simply doesn't work, at all. Is there anything I should know? I know that this widget does a lot of stuff with binding and maybe I should handle it somehow different. Any tips? How does look the simplest substitution for: bind $treeCtrlWidget <B1-Motion> "puts motion" ? Thanks! Googie

Energy Saving Tips

1. Reduce heater's room temperature For each extra degree (Celsius) of temperature, your heater will consume 7 to 11% more energy. Adjust it to 18degrees which is also better for your health. 2. Install a programmable thermostat You will be able to control the heater's temperature during specific hours every day. 3. Insulate your house Loss of heat is loss of energy. 4. Fix air leaks 5. Close the chimney of the fireplace when you don't use it It is designed to drive smoke (hot air) out of the house! 6. Get an energy audit to advice you about the necessary fixes and insulation 7.

Feature or...?

Hi all, Is this expected? Does glob expects always unix filenames? (petasis) 49 % set p {C:\Users\George\.ellogon\bin} C:\Users\George\.ellogon\bin (petasis) 50 % set p [file native {C:\Users\George\.ellogon\bin}] C:\Users\George\.ellogon\bin (petasis) 51 % set dlls [glob -directory $p *.dll] {C:\Users\George\.ellogon\bin/comerr32.dll} {C:\Users\George\.ellogon\bin/gssapi32.dll} {C:\Users\George\.ellogon\bin/k5sprt32.dll} {C:\Users\George\.ellogon\bin/krb5_32.dll} {C:\Users\George\.ellogon\bin/libeay32.dll} {C:\Users\George\.ellogon\bin/libiconv-2.dll} {C:\Users\George\.

json

% package require json % puts [ json::json2dict {"a":"b", "c":"d"} ] a Anyone else has this problem?

ttk::checkbutton vs tk::checkbutton

The tk::checkbutton widget has the "-wraplength" option to cause the widget to automatically wordwrap its textual label. Is there any method with the new ttk::checkbutton to achieve the same end result, automatic wordwrap based upon a length value?

tclkit-8.6b1.1 vs tclkit 8.6b1.2

These two kits (picked up from http://www.patthoyts.tk/tclkit/linux-ix86/) behave very differently when it comes to using megawidgets. With a source file containing: ------------------------------------------------------------------------------- #to get the version number: puts "Tclversion= [package require Tcl]" puts "Tkversion= [package require Tk]" set DataFileToOpen [tk_getOpenFile -title "File-select test"] -------------------------------------------------------------------------------- ../tclkit-8.6b1.1 sourcefile.tcl correctly displays the file-chooser widget ../tc

Determine if parent process ends from child

I have two tcl scripts dad.tcl, kid.tcl Running dad.tcl as the parent process and from it i launch kid.tcl as a child process using the following line "not sure if it's the best way to do it" [file:dad.tcl] ...... exec tclsh kid.tcl & .... And dad.tcl goes on doing a activity, while it's child process is checking if it's parent is done or not, if it's done it should execute a certain command let say xterm, this is done by [file:kid.tcl] .... while {1} { #puts amiOn=[eval ps -l [lindex $argv 0]] if {[string first [lindex $argv 0] [exec ps -ef]] == -1} { eval xterm

'info commands Button' does not work until a Button is actually created !?

Hi ! I have the following problem with BWidget package : package require BWidget [info commands Button] ---> {} Button .b [info commands Button] ---> Button Is that a bug or am I missing something ? I don't want to create a Button with catch { } just to discover whether it's available or not. Any suggestion ? Thanks !

package tclsane

Is this package still available anywhere? The last reference on the wiki was in 2007 where it was suggested that it was moved to the sane project website but nope, its not there. If the project is now dead, even an old archive copy of the source would be useful. WJG

Stopping SSH process once finished

Hello, all! * This is on a Windows 7 machine * So, I have a script that I wrote that use to SSH into switches, and grab some data, then I parse it and make it look more readable, etc., etc. I use Expect, which calls "plink.exe" (PuTTY's command line tool) to access the devices. The thing is, everything works great, but after I exit the device, and move on to the next one, the plink.exe process still exists from the time before, and if I go through 200+ devices, well, I have 200+ processes that I don't need. I've been trying to find a way to kill the PID, such as return the PI

ttk::combobox disabled state under Windows

Under Windows, setting a ttk::combobox to a disabled state does not gray out the displayed text. It does gray out the arrow and change the border and/or background of the widget (depending on the Win version). Under WinXP, the background is changed enough to make the state of the widget fairly obvious, though again, the text color is not changed. However, under Win7, the border and background differences between the enabled and disabled states are quite subtle, so really the grayed arrow is the only real indication of the widget's state. Shouldn't the text color be changed

Invoking python functions from TCL XMLRPC client

Hi I've a python function (exposed by a third party application) that accepts a list parameter. I can invoke this function over XMLRPC. I am using XMLRPC with TCL to invoke this function. However, irrespective of whatever values I use from TCL, it's treated as a string by foo resulting in a crash. def foo(self, values): 'values -> this is a list What is the correct way to pass a parameter to TCL such that when foo is invoked, it is treated as a list. Any inputs will be of great help. Thanks Sharad

Parentheses a bit more useful

I'm wondering: wouldn't be convenient, to set the parentheses as place for *any* index? I mean: not just for arrays, like it works today - but for lists and dictionairies as well. Could it be technically possible? There are some related checks in the code anyway, which are examining "are the parentheses used really for an array" - for example: #v+ % set a 1 1 % puts $a(x) can't read "a(x)": variable isn't array #v- So perhaps there could be additional checks: whether a is an array, _OR_ a is a list, _OR_ a is a dictionary? Such way we could retrieve a list element j

8.5.x on Windows 7 64 bit

Dear all, I have compiled tcl/tk 8.5.x with VS 2005 for XP64 platform. Does anyone know if it will also work for Windows 7 64 bit ? Your help is greatly appreciated. Regards S-Y. Chen

Troubles using img::raw

Hello, I'm trying to use the img::raw library in my TCL/TK application. What I want to do is display images that are stocked inside TCL variables containing binary data. Here is a minimal exemple that should display a noisy image but that instead only display a black one : package require Img package require img::raw set f [open "a_big_file" r] fconfigure $f -translation binary set f_content [read $f] close $f set photo2 [image create photo -format "raw -useheader 0 -nomap 1 -verbose 1 -width 320 -height 240 -nchan 3 -pixeltype byte" -data $f_content] labe

new TCL book alert

I was recently surprised and shocked to find a new TCL book: Tcl 8.5 Network Programming -- "https://www.packtpub.com/tcl-8-5-network-programming/book?tag=vf/tcl- abr4/0710&utm_source=vf_tcl_abr4_0710&utm_medium=content&utm_campaign=veronica" Surprised because new TCL books are rare, only two books published recently, as far as I know: "Tcl 8.5 Network Programming" and "Tcl and the Tk Toolkit (2nd Edition)" Shocked because the book is 588 pages long (How can you stretch "TCL network programming" topic for 588 pages?). Turns out it is a fairly complete book on TCL, but the main topi

=?windows-1256?B?yNHkx+PMIMfh0cfGzyDd7SDKzePt4SDH4ePh3Q==?= =?windows-1256?B?x8ogSW50ZXJuZXQgRG93bmxvYWQgTWFuYWdlcg==?=

yNHkx+PMIMfh0cfGzyDd7SDKzePt4SDH4ePh3cfKIEludGVybmV0IERvd25sb2FkIE1hbmFnZXIK Cmh0dHA6Ly93d3cuYWdkM2FzN2FiLmNvbS92Yi9zaG93dGhyZWFkLnBocD90PTI5ODg0

variable substitution in strings

Hi, I just can not find the right syntax for variable substitution in strings - how do I make tcl print "Hello Peter" ? % set me Peter Peter % set greet {Hello $me} Hello $me % puts $greet Hello $me % puts "$greet" Hello $me % puts [eval "set greet"] Hello $me % puts [eval {set greet}] Hello $me