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 Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
database connection pool
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. -
using windows dll
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... -
using windows dll
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... -
using windows dll
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... -
create tabs
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 -
-
create tabs
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. -
mclistbox
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 }... -
writing modules/widgets
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... -
writing modules/widgets
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... -
writing modules/widgets
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... -
writing modules/widgets
I've had a problem with flooding my memory with image data. I am working on an application displaying images based on a piece of info from mysql. The image itself (tiff with JPEG compressed pages) is retrieved via http protocol (sort of a gateway). It gets stored in a cache dir and split up into... -
writing modules/widgets
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) ? -
writing modules/widgets
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... -
writing modules/widgets
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... -
shrink an image
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... -
shrink an image
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... -
shrink an image
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... -
ascii2decimal conversion
I have found a solution: append res [scan $buff %c] Thank you for reading. -
ascii2decimal conversion
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.
