Search results for query: *

Hi There, I have a namespace GUI containinig all my GUI::s. I also have other namespaces from which i would like to access a radio button in GUI::. I have a switch like this: if {[info exists BIS_Test::devicefamily]} { GUI::Info_DialogWIN "Test::devicefamily: $BIS_Test::devicefamily"...

Hi There, I wanna test if I have permissions to write a file on a Windows share like this: proc finaltest::retrieve {target perm startTime} { # replace any forward slashes with backslashes regsub -all {/} $target {\\} target # Check if we have requested write permissions to file set wrtbl...

Hi There, I got an image with a bar code that gets generated automatically (modified code from http://wiki.tcl.tk/9335) and now i would like to add the content of the barcode in text below the bars...you know, when you look at the bar codes it usually says below the bar code what kind of...

Hi There, I have a certain proc from where i want to open a dialog box requiring a user to choose an option. Once the user has hit the button, i set a variable and my initial proc should continue where it has left off (opened the window). I tried this with this code: show window and wait for...

Hi, I would like to set the focus onto an entry field upon a certain window appears and i tried this: after idle [list focus -force .operatorWindow.opEntry] now, this does not work.... but GUI::Info_DialogWIN "focus!" after idle [list focus -force .operatorWindow.opEntry] works...

Hi There, I need to check if i have permission to write to a file and if not remove the read-only flag (Windows). I have figured out how to check if it's writeable: set writeable [file writeable $path] if {!writeable} { #make writeable } #writing stuff to file I'm not...

Hi There, I have two colums with radio buttons. If a certain button on the left is clicked - the right buttons should get enabled and when the selection on the left cghanges, I want to disable the right column. How can i achieve this? How can I "event trigger" this? Thank you, Ron Ron Hours of...

Hi there, I would like to read out content from a text file into a list, look for a specific value, change it and write it back into the text file. The problem is lappend doesn';t seem to what I expect, my code: set path [file join C:/ "Documents and Settings" "FinalTest" "user.txt"]...

Hi there, I've been playing around with regular expression but seem not to be able to figure out how it works... :( I have a string like: "OrderCode=RS910-HI-N-S1-TX01-TX" and i need to extract whatever is betweenm the '=' and the first '-' so in this case it would be 'RS910' How would i do...

Hi There, I got something weird going on with below code snippet: if {[serial::waitFor "Pass: $BIS_Test::total_iterations" 90] == 2} {;#Failed in BIST testing $GUI::twidget insert end "**************FAIL********************" error # for { set i 1 } { $i <= 5 } { incr i...

Hi There, I'm experiencing something weird and i'm not able to resolve it - i don't know if it's again one of these tcl/tk parser issues that you just need to know or if i'm totally off but look at my code: All we're really interested in is the $passone condition. #first we check for...

Hi There, There's even another stone in my way...i should have stayed wuith C++ I know ;) My problem (also called condition;) ) I want to loop as long as $rslt is -1 and $counter is smaller than $timeout. My code: while { ($rslt == -1) && ($counter < $timeout) } { But I get: invalid command...

Hey There, I'm starting to feel kinda weird, seems like i'm the only one having problems with TCL/TK or at least the only one asking for help in this forum :) Oh well... I'm trying to figure out if a string is applicable or no with a regular expression but i get similart strings but a 0 as...

Hi there, I have something weird happening to me and i have no clue where to go.... :o My situation: I have 3 strings. If either $str1 and $str2 or $str2 and $str3 match, I set a flag and continue but i have totally different string contents and my if clause still returns true... huh??? My code...

Hi There, I want to compare to strings to each other. My code: while {!$cond} { #set NewStr [.serialMon.cons get MyMark end] ;#load content from console window into $ +str $GUI::twidget insert end "\n NewStr: $serial::rxBuffer!!\n" error $GUI::twidget see...

Hi there, I would like to extract content from a text widget into a string from a certain point on this means from a the point after a certain line had appeared.How do I go about that? I can't figure out how i can get the current length and then only extract the content from current length on...

Hi There, I need to include polling of the seruial port into my application. There's a whole lot going on there but as soon as I receive a ceertain string, I want to execute a certain proc. I will receive this string about 5 - 10 minutes after i hasd sent out a specific request overthe com...

Hi, I'm a TCL beginner and I have problems adding scroll bars to a listbox. So I have tried to make a small example script to put two scrollbars on a text box like this: scrollbar .yscroll -command {.two.text yview} -orient vertical scrollbar .xscroll -command {.two.text xview} -orient...