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 Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: zby
  • Order by date
  1. zby

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

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

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

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

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

    create tabs

    Thanks Brian, I am saiffied with your hint! zby
  7. 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.
  8. zby

    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 }...
  9. zby

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

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

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

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

    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) ?
  14. zby

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

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

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

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

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

    ascii2decimal conversion

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

    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.

Part and Inventory Search

Back
Top