Search results for query: *

I'd love to find a piece of info on how to carry out a database connection pool or some sort of a persistent connection to a database. I plan on using the apache + mod_tcl + mysql. Can someone point me to a place (URL) or drop a word about it? Thank you.

Thank you! Before rushing headlong into testing it I suppose that the below lines will say a bit about me and my situation. I have no Visual Studio. Feel a bit ashamed, but what the heck now. As a matter of fact I am primarily a unix/linux programmer. As far as windows I use ActivePerl and...

No success. (no Twain_Init procedure found) The dll hasn't been written for use with tcl. It's just an every dll probaly written in C. Has no TCLish init in it. All I have so far is just that dll plus Twain.h file. Are there any TCL bindings library to twain.dll (twain_32.dll) or other free...

I have a separate dll to handle a flatbed scanner written in I don't know what. I also have a list of functions and their description this dll exports (windows help file). The point is that I'd like to load this dll to my tcl application and use its functions. How can I do that? Other...

That's exactly what I needed and used. It works fine. Thank you Craig. Btw, Isn't there some other way of loading just the NoteBook package alone without loading the whole BWidget? zby

Thanks Brian, I am saiffied with your hint! zby

Hey to all. I'm programming an application that could use tabs for different modes - one tab for editing, another for viewing. Is there such a library. Something like tablelist or so. Any hints? Thank you.

I'd like to use the mclistbox written by Bryan Oakley, but ran into trouble. Simple code: #!/usr/local/bin/wish package require mclistbox set lst [ mclistbox::mclistbox .listbox -width 130 ] foreach {n l} [split "first First last Last org Organiz."] { $lst column add $n -label $l -width 20 }...

proc showpic {img} { global zdroj img c set zoom 1 $img copy $zdroj -subsample $zoom $c itemconfigure "dokument" -image "" $c configure -scrollregion "0 0 [image width $img] [image height $img]" $c itemconfigure "dokument" -image $img } Silly...

Hey Bob, I have returned to my viewer today and before running head first to use your proposal a performed a simple command line test as below: [shell]$ wish % pack [ canvas .c ] -side top -expand yes -fill both % set obr [ image create photo -file "cz.gif"] image1 % .c create image 1 1...

Thanks for your hint Bob. I have been assigned to a different project for a time so sorry for no echo since last reply. My project works with canvas as you proposed, but now a new problem has emerged. Displaying images (tiff pages) one by one upon a button press (leafing through), the button...

...pages after previous ones have been deleted ## It is done once a request a completly new DB row set filelist [ globe -nocomplain -directory $cache * ] proc src {i} { global source set source [image create photo -file [lindex $filelist $i] -format "tiff"] resize reset # a proc to set the...

Thank you guys, the source command is exactly what a want! Just to pull in the so called 'shared' script once the 'master' script starts up. Two more things I have: 1. Within the 'shared' one do I have to include '#!/usr/bin/tclsh' ? 2. Do you have any experience with img::tiff (tkimg3.1) ?

I wanted to somehow separate these scripts for: Master talks to DB and can up to a certain point live on his own. Slave picks an id retrieved from DB via master and gets an image from a FS over http. To debug any possible future troubles I thought it would be more suitable to have them...

I have kind of a beginer's question: How can I create some sort of a module (using here the Perl jargon) in TCL/TK? Situation: I have 'master' and 'slave' scripts. Both work fine separately. Now I want to make them cooperate from within master. First one collects info from DB while the second...

Thanks for a reply. I tested the -shrink option, but the whole application crashed for the "unauthorized access to memory" attempt. Weird, but true. I may do something wrong then. However I tested: >> package require img::tiff >> ....... some code ....... >> set source [image create photo -file...

Thanks, however this: >> set img [image create photo -file "test.tif" -width $f_one_width -height $f_one_height] << is what you probably mean and it doesn't satisfy me. This command doesn't shrink. It creates the xy target border of the image area to display. Once I apply this construction I...

Hallo, let's say that I have an image file of size of 1000x2000px I use >> set img [image create photo -format "tiff" -file "test.tif"] << Now I need to shrink it into a 640x480 and idsplay it like >> pack [lable .one.l -image $img] << Can you give me a clue on hoe to shrink it? PS. A newbie...

I have found a solution: append res [scan $buff %c] Thank you for reading.

In tcl I read a portion of a binary file byte after byte (comes in ascii). To retrieve the desired 'lowlevel' info out of it I need to convert ascii to decimal with tcl functions. Something like a function in perl: chr(oct(0x49)).... Any clue on how to do this. P.S. a newbie. Thank you.