Recent content by thacoda

Normally, is such cases, I tend to simply work around the problem and not spend too much time to the root cause. But, best practice is to investigate why the problem occurs, of course. Depends on the priority and importance of one's code I guess... Anyway, one most simple workaround would be...

fdservices's explanation transformed into code: set i 1 while { [ gets $open_file line ] != -1 } { puts $out_file "$i, [lindex $line 1], [lindex $line 2], [lindex $line 3], [lindex $line 0], [lindex $line 4]" incr i } thacoda

hi, As Bong already pointed out, you need to create a procedure to search for file using 'glob'. See following Link Furthermore, let's assume you have finally created your search procedure or somebody else on this forum has much more free time then me and can give you the script to results the...

Hi, Not sure if it helps in your quest and/or if there are more simpler/logical solutions, but one might simply add toplevel bindings to the same key combinations of the menu entries, as soon as the user hides the menu. For example: Lets suppose you have created a menu into the main toplevel...

Hi, Had some spare time, been a while visiting this forum, here my 2 cents for what it's worth: Additional script to main part: set ::sel "" $run config -command {puts "selected: $sel"} proc add2List {selected add} {if {$add} {set ::sel "$::sel$selected "} {set ::sel [regsub -all $selected...

Hi, Rather than examining your script, I opted for a custom solution. I hope it's what you are looking for: set i 0 set start 0 foreach line [split $xml \n] { if {[string first "col name=\"OPIS\"" $line]>0} {incr start} if {([string trim $line]=="<linia>") && $start} {incr start} if...

Hi, I think you were close to the solution, I think what you need to do is: replace get_mroute_active [array get multicast] with get_mroute_active multicast thacoda

Hi, Not 100% sure if this is what u want, but here my shot: set me [string range $me 0 [string last " " $me]] Mind though, this method does assume a certain condition to the content of variable $me: the original $me content needs to have a space character before the actual number/string you...

Hi, I am successful in the following case (created 2 dummy files with the same filenames you used as well as put these in a folder called 'rotz' in C-drive): exec cmd.exe /c copy /A c:\\rotz\\prefix.txt+c:\\rotz\\ovb_grid.dtm c:\\rotz\\ovb_grid_temp.dtm so, basically, 3 differences: 1. used...

btw, we can execute 'sed' from within a tcl-script with the 'exec' tcl-command...

Hi, Is there a particular reason why you want to use tcl/tk for solving this problem? You say you want a workaround only. In that case, I would propose to use "sed", to manipulate (large) files. See Link. There is a version available of this ancient utility for most OS, if I correctly remember...

Hi, maybe this is usefull in your quest: http://wiki.tcl.tk/2623

there are many roads to...the solution: set var1 "\{one two\}" set new [lindex $var1 0 1] Now new will contain two

Glad it worked out for you! The user manual of the BWidget Notebook, explains: -image Specifies an image to display for the page at the left of the label If I understood your second question correctly, I believe you would like to add an additional image on the right side, which is the...

It took me a while, but with the help of the IDE that tG² provides and the easy access to the BWidget package, I could explore this Notebook widget and its script. It seems that a BWidget notebook is made up of a canvas. Thus bindings to canvas objects is what we need to create in order to...