tcl

BWidget and Tile (ttk)

Do any tcl'ers out there know what is happening with the (possible) transition of BWidget to use the newer Tile (ttk) themed widgets. I know that some work has been done in BWidget 1.8 (it does have the Widget::theme command after all), but if I try to "force" BWidget to use themed widgets, it fails for even the simplest scripts.... > t...

what are the practical differences between upvar and global commands in tcl

I'm fairly new to TCL, and am providing QA on some code developed by others (no really!). There are lots and lots of global variables in this particular program, and I sometimes see upvar used, often in conjunction with global. I understand that upvar emulates pass-by-reference, but what would be the practical difference be between the...

How to find free area rectangles?

Can anyone help me on how to draw rectangles for space in a bounding box region with n rectangular obstacles? There could be any number of axis parallel rectangular obstacles, this is not a unique case, thus different corner cases needs to be taken into consideration. Is it best to use maximal horizontal strip algorithm? And how? Probl...

How can I provide a Jacl package from the classpath?

I need to distribute some TCL code as part of an enterprise application, and this code must be available to all nodes in the cluster. Due to security policy, the Tcl interpreter cannot access the TCL code from the filesystem, so I must make it available in a jar in the EAR itself. How can I convince Jacl (1.4.1, if it matters) to find ...

Expect addition

I have been playing around in expect recently and I for the life of me can't figure out how to perform a simple addition on a variable I passed in. Anyone know how to do this? Also, is there a decent online reference for Expect? I have tried googling with very limited results. ...

How to add data to an element with ActiveState's dom package

In TCL, if you use the DOM package (available in the ActiveState distribution) you can create an xml. set xmlDoc [::dom::create] set root [::dom::document createElement $xmlDoc "trafficStatistics"] set statElement [::dom::document createElement $root "Tx_Frames"] ::dom::element setAttribute $statElement "type" "numericlist" ::dom::ele...

Pros and cons for prototyping a desktop app with Tcl/Tk

I've begun prototyping a desktop app with Tcl and intend to present the idea to some venture capitalists. Neither desktop apps nor Tcl are in vogue and so I want to be prepared to counter any objections to this technology. Below are the pros as I see them, am looking forward to fleshing out plenty of cons I'm sure, but hopefully some m...

How do you set the default font for Tk widgets

I have Tcl/Tk app that generates many forms, and would like to be able to configure the default widget fonts from a central location without having to configure each widget with the -font switch. #!/wish button .hello -text "Hello, World!" -command { exit } pack .hello puts "--- i would like to set this thing: [.hello configure -font...

Why does string match fails in this "expect" code?

I have created the following procedure in expect to work with an Agilent Base Station Simulator: proc get_bss_parameter_value {bss parameter_string} { global bss_array set bss_str "$parameter_string?" puts "String 1" set bss_str "oa;$bss_array(gpib):$bss_str\r" send "$bss_str" expect {nopattern^} puts "String 2" set bss_str "en;$bss_...

How to set default values for Tcl variables?

Hi, I have some Tcl scripts that are executed by defining variables in the command-line invocation: $ tclsh84 -cmd <script>.tcl -DEF<var1>=<value1> -DEF<var2>=<value2> Is there a way to check if var1 and var2 are NOT defined at the command line and then assign them with a set of default values? I tried the keywords global, variable,...

In TCL, How do I make a variable use the value of another variable

I need to use the value of a variable inside another variable. This is what I tried.. set cmd_ts "foo bar" set confCmds { command1 command2 $cmd_ts } puts "confCmds = $confCmds" But instead of getting confCmds = command1 command2 foo bar I am getting: confCmds = command1 command2 $cmd_ts P....

Blackberry development on scripting language ?

From what I've seen, the preferred way to develop Blackberry applications is Java. Is this the only way? I'm dreaming of a rapid application environment where you can create GUIs (using the Blackberry UI components). Something like a port of Tcl/Tk on Blackberry... or Python/Tkinter... or something new, but similar. Does something li...

Interfacing zlib with ActiveTcl 8.5?

I'm trying to use the zlib extension in ActiveTcl 8.5 in order to save out a compressed blob to a file. Both ActiveTcl 8.5.5 and 8.5.6 on win32 have a zlibtcl 1.2.3 extension. I've tried both: package require zlibtcl and load zlibtcl123.dll Which both seem to indicate that the extension is properly loaded. However, I can't seem ...

Object oriented TCL

Which object oriented system in TCL is considered the standard? ...

How to do GUI for bash scripts?

I want to do some graphic dialogs for my script but don't know how. I hear something about GTK-Server or something like that. If someone know how to link bash with tcl/tk I also be satisfied. Please do not post something like "change to C++" because my project must be a script in BASH, there are no other option. Any ideas? P.S. Sorry ...

Text printing in landscape via notepad

I'm trying to do some text-based printing on Windows. My program makes use of windows' "notepad /p file.txt" functionality that prints a text file on the default printer. The problem is that you cannot say that you want to print in landscape instead of portrait. In the same way, it's not possible to print to another printer. Some backg...

Predictable order of response to Tcl array names?

I know that the names returned by [array names X] are in an undefined order, but are they always in the same undefined order? I'm going through a very large array, and would like to log progress to a file in case of a crash, so I can resume part-way through again. PS. A quick experiment implies it is always the same 'random' order, bu...

tcl/tk widget combobox loses focus

The tcl/tk widget iwidgets::combobox with a terrible flaw: when the list goes away, the focus goes away from the gui so you can't type in entry boxes unless you move the mouse out of the gui and back in. This problem has been noted in other places, but I have not seen any solution. a. is there a way to re-gain focus before exiting the...

Know any creative ways to interface Python with Tcl?

Here's the situation. The company I work for has quite a bit of existing Tcl code, but some of them want to start using python. It would nice to be able to reuse some of the existing Tcl code, because that's money already spent. Besides, some of the test equipment only has Tcl API's. So, one of the ways I thought of was using the sub...

Interprocess communication on windows

I have a TCL script running on windows. I need to communicate to a old vc++ 6 app running in a different process. I need to have 2 way communication. In Linux I would use dbus, but what IPC strategy should I use for windows? ...