Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Access TK element from other namespace
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"... -
wrong feedback from file writable
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... -
text in image
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... -
undefined behaviour?
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... -
set focus troubles
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... -
change File permission
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... -
radiobutton - OnClick
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... -
lappend problem
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"]... -
regexp
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... -
unexplainable behaviour???
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... -
for problem
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... -
condition logic
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... -
regular expression
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... -
string compare
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... -
string comparison
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... -
new strings from text widget
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... -
poll serial port
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... -
Scrollbar problem
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...
