Recent content by reggler

Yup, they actually are and i figured out a way that i don't even need to worry bout it. Thanks for this anyways! :) Ron Hours of planing can save weeks of coding

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"...

Well, till now the proc looked like this: proc finaltest::retrieve {target perm startTime} { #puts "begin to run finaltest::retrieve($target $perm $startTime)" while {[expr $startTime+$finaltest::const(FILE_TIMEOUT)]>[clock seconds]} { if ![catch {open $target $perm} fileId]...

just w Ron Hours of planing can save weeks of coding

yes exactly, when w (write) is requested in $perm (which would make wrreq > -1), I want to check if the file is writable. Also, i need to check the value of $perm before releasing this code, right. But you know, this is 'just' development code anyways ... Any other suggestions? Thanks anyways...

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...

I have tried it like this: set can [canvas .demo -width $width -height 50 -background red] $can create text 50 10 -text $number set im [image create photo -width $width -height $height -data $can] but I'm getting an error Couldn't recognize image data - any clues? :o Ron Hours of...

What??? lol....no dude... haha okay, how about creating a canvas, write the text in there and then convert the canvas to an image to put down my bars as I'm doing it right now already....would this be a possibility? I know I can create like this canvas .test -width $width -height $height...

I'm not creating a canvas - i put the stuff duirectly into the image like this: set im [image create photo -width $width -height $height] #and then I just go like $im put black -to $offset 0 $x $height I've already written the barcode routine and it's working fine with 3of9 encoding - I...

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...

Cool buddy! That helps! Great! :) Thanks a lot once again you'll be starred ;) Ron Hours of planing can save weeks of coding

Oh no wrong, sorry...the file handle gets opened appropriately but i need to read the last line of the file only. How can I start reading from the bottom or set the file pointer to its handle's end? The current code look like this: while {[eof $fileId]!=1} { gets $fileId newline...

Yup, it actually is hung in my retrieve function (where i open a file... i wasn't aware of the fact that this could be the problem... :o I would like to open a file of ~20MB that is saved on a network share (samba, LAN). My proc looks like this: proc finaltest::retrieve {target perm startTime}...

it still does not wanna work :( What I got now: proc that gets triggered by the OK button on the dialog window button .winOrder.ok -command {finaltest::Order_Indicate} \ -text OK -font 10 -pady 0 -state normal -width 10 proc finaltest::Order_Indicate {} { global Order_Select_done...

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...