Re: [perl-win32-gui-users] Windows shutdown

2009-12-24 Thread Sean Healy
Ilya BANDORIN wrote: > Since you're in Windows, nobody cares about that #!path/to/perl. :) > If you wish wperl.exe to process your scripts instead of perl.exe, associate > .pl file extension with wperl.exe. That's all. > But I think that's not good because if you do it all your scripts will be >

Re: [perl-win32-gui-users] Win32 Gui Web site

2009-10-22 Thread Sean Healy
merryxmas wrote: > hi > i suggest the scheme of questions and answers; such as: > > 1- how to display a message box >answer: a complete small example with notes. > 2- how to write text on a text box > 3- how to retrieve text from a text box > 4- how to color a word in a rich text box > 5- how

[perl-win32-gui-users] Makefile.PL

2009-03-13 Thread Sean Healy
I've been looking at the Makefile.PL to try and figure out how it works (because I'm creating my own extension). But I can't figure out how it knows to build the subpackages (AxWindow, BitmapInline, Scintilla, etc.), and how it knows which ones should have their code included in GUI.dll and whi

Re: [perl-win32-gui-users] Scroll functions not working

2008-12-15 Thread Sean Healy
Alexander (Sasha) Sirotkin wrote: > Here is the problematic code, in case anybody cares to take a look: > > for ( ListWindows( ) ) { > if ($_->{title} =~ /Firefox/) { > $hwnd = $_->{hwnd}; > last; > } > } > Win32::GUI::SetForegroundWindow($hwnd); > my $x = Win32::GUI::Scro

Re: [perl-win32-gui-users] Filling Listbox with Dir and AddFile

2008-12-15 Thread Sean Healy
Brian Somers wrote: > Basically, I’m trying to implement a dual listbox interface quite > similar to what Eric Hansen wrote about in 1999. What I can’t find > anywhere is how to fill the left listbox with the files in a given > directory, although the closest I found was a tutorial in VB out on

[perl-win32-gui-users] Strawberry

2008-11-27 Thread Sean Healy
As of October 20, Strawberry Perl is out! http://strawberryperl.com/ It comes in two varieties: 5.10.0.3 and 5.8.8.3. One caveat - you can only install it to the C or D drive, and there is a separate download for each option. (But you could build it yourself and put it anywhere you want if tha

Re: [perl-win32-gui-users] Usable screen coordinates

2008-07-18 Thread Sean Healy
to Win32::GUI. > Thanks for pointing me in the right direction, Sean. Glad I could help. - This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Mob

Re: [perl-win32-gui-users] Text size

2008-07-18 Thread Sean Healy
>> ($x, $y) = $Label->GetTextExtentPoint32($string); > > Upon further experimentation, there is something not quite right with > that. The width it returns is too wide. There seems to be some sort > of per-character skew -- short strings are very accurate; longer > strings get progressively wors

Re: [perl-win32-gui-users] Text size

2008-07-17 Thread Sean Healy
> How do I compute the size (amount of screen real-estate) that a given > chunk of text will be, in a given font? > > The reason I ask is that I am trying to change the text of a label, and > using the Text or Change methods do not resize the control; the control > stays at its original size and t

Re: [perl-win32-gui-users] EOL control in scintilla

2007-05-03 Thread Sean Healy
I tracked down the extra spaces problem. It turned out to be a space at the end of the line (after the EOL character(s)), not at the beginning, which is why it doesn't show up on the first line. Here's the cause of the problem: # How many characters are on a line, not including end of line ch

Re: [perl-win32-gui-users] EOL control in scintilla

2007-05-02 Thread Sean Healy
On Wed, 02 May 2007 05:31:24 -0600, mikemc <[EMAIL PROTECTED]> wrote: I still get the indent see below one two three If you use editor.pl from the example files you get the same result, my code is based on this one anyway. I have tried $Editor->SetIndent (0); But no joy Try $Editor->

Re: [perl-win32-gui-users] EOL control in scintilla

2007-05-01 Thread Sean Healy
On Tue, 01 May 2007 04:39:09 -0600, mikemc <[EMAIL PROTECTED]> wrote: I am struggling to get to grips with the EOL command. As standard I seem to output a file which when i read back in i see what appears to be double line spacing. If i open the file in vi i see ^M chars at the end of each

Re: [perl-win32-gui-users] Rich text field

2007-04-22 Thread Sean Healy
I have already tried it, but I cannot store more than 32 KB of text in a Richedit field (using Win32::GUI::Richedit). Those 32 kb of text takes around 48 kb of rich text, but it cannot store more than that. I have tried using the Load() and Save() methods and I have also tried creating the rich

Re: [perl-win32-gui-users] AlphaCopy NOT to DC?

2007-01-25 Thread Sean Healy
On Thu, 25 Jan 2007 09:44:59 -0700, alexander Serechenko Alexander <[EMAIL PROTECTED]> wrote: Is there any way to copy some transparent image over another? Only way I found is to use AlphaCopyToDC to some virtual DC, but i can't find any way to get Win32::GUI::DC not associated with any device

Re: [perl-win32-gui-users] Help with Scintilla

2006-06-13 Thread Sean Healy
On Mon, 12 Jun 2006 14:05:26 -0600, Robert May <[EMAIL PROTECTED]> wrote: Hi all, I'm playing with Scintilla for the first time, trying to show some perl code in a Scintilla window. From a scan of the source to Win32::GUI::Scintlla::Perl, this module should be using a mono-spaced font (Cour

Re: [perl-win32-gui-users] execute system command

2006-06-04 Thread Sean Healy
On Sun, 04 Jun 2006 11:06:40 -0600, tinti <[EMAIL PROTECTED]> wrote: I have a problem when executing a command file (.cmd) in perl using win32-gui. When I am running my script with perl -w file.pl everything works fine but as soon as I am building an .exe file using: pp --gui -I lib -c -i lib\fa

Re: [perl-win32-gui-users] Win32::GUI::Scintilla

2006-06-01 Thread Sean Healy
On Thu, 01 Jun 2006 00:03:21 -0600, Octavian Rasnita <[EMAIL PROTECTED]> wrote: I sent Octavian the Win32::GUI::Scintilla 1.8 PPM I made, but he got the following error. I've only ever built for myself before, not for dsitribution. Can someone tell me how to build so any version of the C

Re: [perl-win32-gui-users] Internal Dragging

2006-06-01 Thread Sean Healy
On Thu, 01 Jun 2006 02:08:04 -0600, Jeremy White <[EMAIL PROTECTED]> wrote: There is an example of Listbox dragdrop in the samples folder, and if you search this list you should find an example of a treeview dragdrop. The messages in the list, at least searching under 'treeview' and 'drag',

[perl-win32-gui-users] Internal Dragging

2006-05-31 Thread Sean Healy
Has anyone implemented TreeViews or Listboxes with internal dragging, i.e., to move nodes/items within the control? The mouse events are (or at least should be) trivial, but the drag image is another matter. A simple line indicating the new position of the item/node would be sufficient.

Re: [perl-win32-gui-users] Win32::GUI::Scintilla V1.08

2006-05-25 Thread Sean Healy
On Mon, 05 Dec 2005 05:30:25 -0700, Jeremy White <[EMAIL PROTECTED]> wrote: I've just committed some changes to Scintilla, the main ones being that events now fire for perl 5.8.x. This fix also solves a few issues where Scintilla was crashing, again with perl 5.8.x. This module should work

Re: [perl-win32-gui-users] Question about AddTextbox.

2003-10-07 Thread Sean Healy
Sorry about that last message; I must have accidentally hit a wrong key Is there any easy way to append to an "AddRichEdit" text field? I would like it to just add to the text field without replacing it. $myRichEdit->Select(-1,-1); # position cursor at end $myRichEdit->ReplaceSel($text_to_a

Re: [perl-win32-gui-users] Question about AddTextbox.

2003-10-07 Thread Sean Healy
Is there any easy way to append to an "AddRichEdit" text field? I would like it to just add to the text field without replacing it. $myRichEdit->Select(-1,-1); I found a work around which was to concatenate strings together and feed it to the AddRichEdit->Text but I am not sure this will wo

Re: [perl-win32-gui-users] Win32::GUI - Grouping Radio Buttons?

2003-09-16 Thread Sean Healy
hope I'm remembering this correctly, and not giving you bad info. I don't have Win32::GUI installed on the machine I'm sitting at right now, so I can't test and make sure. -Sean _ Fast, faster, fastest:

Re: [perl-win32-gui-users] Button and MouseDown

2003-08-25 Thread Sean Healy
All the changes I made to the quoted document seem to have disappeared before I pressed send. Weird. Let's try again: How come this doesn't work as described in the documentation? The move_MouseDown sub never gets called, but the move_Click one does. I believe you need to use subclassing to

Re: [perl-win32-gui-users] Button and MouseDown

2003-08-24 Thread Sean Healy
From: "Octopi juice" <[EMAIL PROTECTED]> To: perl-win32-gui-users@lists.sourceforge.net Subject: [perl-win32-gui-users] Button and MouseDown Date: Sun, 24 Aug 2003 21:39:43 + MIME-Version: 1.0 X-Originating-IP: [65.92.67.198] X-Originating-Email: [EMAIL PROTECTED] Received: from mc3-f36.law

Re: [perl-win32-gui-users] Push Button with the picture (bitbtn)

2003-04-12 Thread Sean Healy
And also I dont find possibility to put mask on textfield (such as dd/dd/ for date input), so I've made it by hands in Change event, but I can't get cursor position in textfield to put it on place. (by default cursor stands in the begining of the field when i make $textfield->Text($str), but i

Re: [perl-win32-gui-users] Timer-Object-Question

2003-04-11 Thread Sean Healy
I have a question about the use of the Win32::GUI::Timer-Object. I would be glad if someone could give me some advice. I would like to create a timer which gets fired once every second. What I did was: $Window->AddTimer('MyTimer',1000); sub MyTimer_Timer { # Some code } I found that the _Timer s

Re: [perl-win32-gui-users] Dynamic Rich text and Rich Edit controls

2003-04-10 Thread Sean Healy
I’m building a rich text string using RTF::Writer. I then pass this string to a rich edit control (using the Text or ReplaceSel methods). Under XP, the control displays the formatted rich text correctly (fonts, colours etc). Under 98 the control displays the actual string. As a get around I’m

Re: [perl-win32-gui-users] RE: GetOpenFileName and directories

2003-03-06 Thread Sean Healy
On a related note, does anyone know how to make BrowseForFolder start at a given directory? The -root option almost does it, but it would be nice to start in the current directory and allow the user to navigate up and down from there. Glenn There is an undocumented '-directory' option in the GU

Re: [perl-win32-gui-users] GetOpenFileName and directories

2003-03-05 Thread Sean Healy
does anyone know if there's an option to make the common file open dialog select directories instead of files? any help is appreciated :) darrik As far as I know, there is not. But there is a method called BrowseForFolder. If you don't have the docs, check here: http://search.cpan.org/src/

Re: [perl-win32-gui-users] RE: win32-gui treeview rightclick context menu

2003-02-14 Thread Sean Healy
That was not really a complete answer to the question. What this person needs to do is: - get info on the node (as described in the above using HitTest(x,y)) - then call Select on that node: my $node = $treeview->HitTest($mouse_x,$mouse_y); $treeview->Select($node); # Now the right node

Re: [perl-win32-gui-users] win32-gui treeview rightclick context menu

2003-02-12 Thread Sean Healy
Can anyone shed some light on the following? I have a win32-gui treeview control with multiple nodes. Different nodes carry different properties and there exists two context popup menu when right clicked on the control. It all works well when a node is left clicked first then right clicked, t

Re: [perl-win32-gui-users] Re: repeating keystrokes in Win32::GUI Textfield

2003-01-27 Thread Sean Healy
at's expecially long, I've placed a Win32::GUI::DoEvents call inside it so the window doesn't appear to be be hanging. I've noticed this effect when such a loop is going. Do you by chance have a loop with DoEvents in it?

RE: [perl-win32-gui-users] force a "tab selection" from a tabstri p

2002-11-01 Thread Sean Healy
I believe this will only "show" the actual tab you selected. I'm using GUI LOFT and what I'd like to do is force a "mouse click" on the tab... so that all the associated fields for that tab are displayed. Any ideas? $Tab->Select(INDEX) will select the tab and call the _Change event, same as a

[perl-win32-gui-users] RichEdit and Class in 0.0.665

2002-10-03 Thread Sean Healy
Tried to post this previously, but it's been over 48 hours and it hasn't shown up in my inbox, so I'll try again. I have some old code written under 0.0.558 which uses a Class to get the RButtonDown event from a RichEdit. I recently tried to run this code under 0.0.665, and it won't even comp

[perl-win32-gui-users] Graphic problems

2002-07-24 Thread Sean Healy
I don't know if anyone's ever heard of the Games::Worms module, but I'm attempting to make a Win32::GUI viewer for it, and I'm having a few problems. First, I can't get the DC::BackColor function to work. I've tried [0,0,0] and 0, but neither seems to work. Second, every so often the curren

Re: [perl-win32-gui-users] Richedit: word wrap and still a refresh problem

2002-06-04 Thread Sean Healy
I want this control to word-wrap but it isn't. Do I need to add something to one of the style options? Use the multiline => 1 option. I did a little testing with the code you gave, and for some reason, ES_MULTILINE doesn't work (nor did 4, the value of ES_MULTILINE). Perhaps multiline is so

Re: [perl-win32-gui-users] listview columns

2002-05-23 Thread Sean Healy
hi. i'm doing a program at the moment that needs to log its output to something and i've chosen a listview because it seems to work best with that. however, the column header up the top doesn't really suit what i'm trying to achieve. i've tried doing -style => LVS_NOCOLUMNHEADER and the same with

Re: [perl-win32-gui-users] Textfield

2002-05-14 Thread Sean Healy
Is there a way to make the return key register for a Textfield. I am using a sub Textfield_1_Change and would like to use the -text for this object to be used in a search string when the user has hit the return key. As a first step, I have been echoing each key press to the dos window, but the

Re: [perl-win32-gui-users] RichEdit in a pm module

2002-04-29 Thread Sean Healy
In my program I want to put some helps windows. I thinked of using RichEdit in order to Include some rtf files, but when I used in a pm modules the var thats is used to created the RichEdit is don't recognised, for example: our $Textbox = new Win32::GUI::RichEdit($w_principal,-name => "Mailtoo

Re: [perl-win32-gui-users] (no subject)

2002-04-16 Thread Sean Healy
How can be force that one Window is always over an other ?, without having to disable the second one. I'm going to end my actual program in few days and I hope that few questions you will see Well, the -topmost => 1 option allows the window to stay on top - but it will also be on top of

Re: [perl-win32-gui-users] (no subject)

2002-04-16 Thread Sean Healy
How can be force that one Window is always over an other ?, without having to disable the second one. I'm going to end my actual program in few days and I hope that few questions you will see Well, the -topmost => 1 option allows the window to stay on top - but it will also be on top of

Re: [perl-win32-gui-users] DC and GetTextExtentPoint32

2002-04-13 Thread Sean Healy
Hi Everybody First of all I must say I'm completely new to the Win32::GUI module programming (and Win32 in general) - I just installed (on Win'98 and latest version of ActiveState Perl) binary version fetched from sourceforge. Getting to the point - to get the length and width of some font te

Re: [perl-win32-gui-users] iteminfo

2002-04-12 Thread Sean Healy
is there any way for $ListView->ItemInfo to just print out the text rather than state and image as well. i have tried various things but nothing seems to work. thanx my %info = $ListView->ItemInfo($item, $column); print $info{-text}; OR print $ListView->ItemInfo($item,$column)->{-text}; (I ha

RE: [perl-win32-gui-users] Using a \t in a text of a treeview

2002-04-12 Thread Sean Healy
I'm still trying to do to do two colums but no results. I also tryed to count the length of the string and it works good on stdout but no in the window , It might work in the window if you used a monospaceed font, but a better idea is probably to use a ListView with -nocolumnheader => 1, (

RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

2002-04-07 Thread Sean Healy
One question, did you do ppm remove Win32-GUI before you installed the new version ? If not it may be a good idea to remove the module (via ppm remove) and then re-install it. Unfortunately I don't have a 95 box to test the code on. I do have an ME test box so if I get time this weekend I'll try

RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

2002-04-05 Thread Sean Healy
My message is unclearly worded. I didn't mean that I couldn't get PPM to install it (the actual .ppd parses fine), but that Win32::GUI no longer works once I install 0.0.665. This is the error message I get: Can't load 'F:/Perl/site/lib/auto/Win32/GUI/GUI.dll' for module Win32::GUI: load_fil

Re: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

2002-04-04 Thread Sean Healy
I ran your code. First, it complained about the extra right curly bracket in this sub: sub PresentWindow{ $main->Resize(GetClientSize()) || ErrMsg("Could not resize Window!\n"); $main->Show() || ErrMsg( "Could not un-hide window!\n"); } $main->Dialog() || ErrMsg

Re: [perl-win32-gui-users] Add ActiveX Hosting to Win32::GUI

2002-03-24 Thread Sean Healy
I downloaded Laurent's AxWindow package, and I created a wrapper for a WebBrowser object that acts like a regular Win32::GUI::Window (that is, you don't need to worry about the special conventions for calling methods and registering events - you can call methods directly and if you define a sub

Re: [perl-win32-gui-users] How I have to separe the Win32::GUI between pm module

2002-02-26 Thread Sean Healy
My question is how is possible, or where can be my error, that I need to press more than one time the window close button for the main window. If there is some example about how to work with diferrent pm modules without any problems, I will agree. I have had this problem in the past, and I have

Re: [perl-win32-gui-users] Re: Re: (no subject)

2002-02-24 Thread Sean Healy
#This IS executing, I can tell because $changes is being set to 1... sub reDesc_Change{ $changes = 1; my ($x,$y) = $main->reDesc->Selection; my $currentline = $main->reDesc->LineFromChar($x); while (1) { my $firstline = $main->reDesc->FirstVisibleLine; my $linecount = $main->r

Re: [perl-win32-gui-users] Re: Re: (no subject)

2002-02-24 Thread Sean Healy
Well, to get the _Change event working, just send this message: $RichEdit->SendMessage(0x445, 0, 1); This will help me. This has probably been posted before. I wish the search function on the mailing archives would work. Ah well, if wishes were fishes... Unfortunately, theres a slight pr

Re: [perl-win32-gui-users] (no subject)

2002-02-23 Thread Sean Healy
Also, does anyone know why, in multiline RE fields at least, if you just keep hitting enter your cursor goes off the edit window and you have to scroll down manually? Is there a way to make it focus on the cursor automatically? A solution to this has been posted before, and someone may hvae a r

Re: [perl-win32-gui-users] Re: ListView Checkboxes Workaround

2002-02-23 Thread Sean Healy
Jeremy, I set the repository to http://dada.perl.it but when I run verify --upgrade Win32-API I get the message that it is uptodate. Aldo must not have version 0.20 posted at his site yet. He has the same version posted as is held at ActiveState, version 0.01. Eric Try http://www.perl.it/

Re: [perl-win32-gui-users] question

2002-02-20 Thread Sean Healy
When i write D:\PERL\WIN32\SAMPLES>perl hello.pl Can't load 'D:/Perl/site/lib/auto/Win32/GUI/GUI.dll' for module Win32::GUI: load_file:Le module spÚcifiÚ est introuvable at D:/Perl/lib/DynaLoader.pm line 206. Compilation failed in require at hello.pl line 9. BEGIN failed--compilation aborted

Re: [perl-win32-gui-users] ListView Checkboxes, ImageList, etc.

2002-02-20 Thread Sean Healy
I looked up some information on the LVM_SETITEMSTATE message (I've reproduced it below). The only problem is that it wants a pointer, and when I've tried to pass pointers to SendMessage before, it doesn't work. I pack the structure, then pack a pointer to it (I've tried using both 'p' and 'P'

Re: [perl-win32-gui-users] RE: Tooltips

2002-02-19 Thread Sean Healy
I did not realize this list was set up so that hitting 'Reply' replied only to the sender, not to the list (it's the only one of the lists that I'm subscribed to that is), so the last time I sent this, it went only to one person (sorry, whoever that was): There is a really bug in RichEdit::Get

[perl-win32-gui-users] transparency

2002-02-04 Thread Sean Healy
Has anyone succeeded in making the background of a label transparent or in giving a label a background image? I want text to appear with a background image. I tried a separate label for the background, but the grey background of the label with text in it shows up. (I'm on Win95; I don't know

RE: [perl-win32-gui-users] Capture shutdown

2001-11-04 Thread Sean Healy
I have not been successful. PeekMessage doesn't seem to work at all, and all I could get GetMessage to catch were menu clicks (my application has a NotifyIcon, but I never call Show on the main window). To solve my original problem, I simply have my application write to file each time a setting

[perl-win32-gui-users] Capture shutdown

2001-11-03 Thread Sean Healy
Is there a way to capture the shutdown event? I have a Win32::GUI script that sits in the taskbar. It saves its current settings when it exits. However, I don't want to have to exit that script manually every time I shut down Windows. I tried an END block, but it didn't work. Is there a si

Re: [perl-win32-gui-users] Drag-n-Drop?

2001-11-03 Thread Sean Healy
Before I spend a lot of time banging my head... Does Win32GUI support Drag-n-drop? Johan Lindstrom has added this functionality - but it requires recompiling GUI.xs.* Johan's stuff is here (he'll probably post it as well, but just in case): http://www.bahnhof.se/~johanl/perl/Win32GUI/DragDr

[perl-win32-gui-users] NotifyIcon

2001-10-13 Thread Sean Healy
I have a program with NotifyIcon in a program that does a fork(). When the child process exits, it calls the destructor for NotifyIcon and the parent process hangs. I get a warning about 'use of unitialized value' at GUI.pm line 2400: Win32::GUI::NotifyIcon::Delete( $self->{-parent}

[perl-win32-gui-users] Web browser

2001-10-09 Thread Sean Healy
I have just uploaded a module, IeOle.pm to PCE (http://www.jeb.ca/cgi-bin/exchange/display.cgi). It uses OLE to automate an instance of Internet Explorer. The IE window is 'always on top' and sits on top of your Win32::GUI window. You cannot respond to events as yet, but you can navigate. P

Re: [perl-win32-gui-users] Embedding a browser window of some sor t?...

2001-09-21 Thread Sean Healy
Well, i know how to get their default web browser, but i don't know how i could, say, embed it inside a win32::gui window, or (what i'd rather do) create my own window that could interpret simple html...no images or javascript or anything, just text formatting. Well, if all you want is text form

Re: [perl-win32-gui-users] DoEvents

2001-06-26 Thread sean
On 27 Jun 2001, at 1:58, Johan Lindstrom wrote: > This is where you call DoEvents() to give the GUI a chance to handle > messages and respond to user interaction every once in a while. Do > this "as often as possible" to give the impression that the GUI is > always listening to user interaction.

[perl-win32-gui-users] DoEvents

2001-06-26 Thread sean
IN the documentation, I find this about DoEvents: Just like Dialog(), but returns when there are no more events to process. So does that mean that if you leave your window alone, control will return to the script? So to keep your script from exiting as soon as you stop clicking buttons, etc.

[perl-win32-gui-users] GDB (gui debugger)

2001-06-25 Thread sean
I just uploaded the gui debugger I've been working on since April to Erick's Perl Code Exchange (http://www.jeb.ca/cgi- bin/exchange/display.cgi). Download, unzip (three files), and run gdb.pl. It's far from finished (you'll notice all the disabled buttons), but it's finally has enough functio

[perl-win32-gui-users] Make textfield selection visible

2001-06-16 Thread sean
How do you force a textfield selection to be visible within the textfield? I've been reading through the posts on autoscrolling a RichEdit, but that makes it scroll down a given number of lines. I want the textfield to scroll only if the selection is not visible, and then only enough to make

Re: [perl-win32-gui-users] Giving focus to a control

2001-06-16 Thread sean
Never mind, I found it right after I sent this. In case you're interested, it's the logically named 'SetFocus', and it works on all controls. (I thought it only worked on actual windows, but decided to give it a whirl while I waited for an answer, and lo and behold, it works on controls as we

[perl-win32-gui-users] Giving focus to a control

2001-06-16 Thread sean
I looked for this on both archives (old one at http-tech and new one at SourceForge) and found nothing. How can I give the focus back to a control? I want focus to return to a textfield after pressing a button. Specifically, the subroutine called by clicking the button should select some te

Re: [perl-win32-gui-users] What are the parameters in the Toolbar::AddButtons for?

2001-05-16 Thread sean
A long time ago, I went through and figured this out. Luckily, I saved the results as a comment in my toolbar.pl file. Here's what I have: # first row is the number of buttons in this toolbar # each additional row corresponds to a button # first number is the zero-based index of the appropriate

RE: [perl-win32-gui-users] Most-Recently-Used files

2001-04-12 Thread sean
Look in podview.pl, in the samples directory that comes with the zip file, for code that implements such a menu. (Although I've never used this code, I noticed the feature when I was looking through the samples.) If you got Win32::GUI by PPM from ActiveState, you probably don't have this dire

[perl-win32-gui-users] RadioButton

2001-04-09 Thread sean
I know I saw this on this list just a while ago, but when I went to the mailing list archive, the search found no results for "radiobutton". (Indeed, the search found no result for "Win32::GUI", either, so I suspect the problem may be the search script itself.) Anyway, how do you make separate

[perl-win32-gui-users] Combobox/Textfield

2001-04-07 Thread sean
I've seen some programs that have a combination Combobox/Textfield. So you can either enter text or choose text from the dropdown box. When I tried to do this with Win32::GUI, I can type in that space, but the program doesn't catch it, and instead gives me whatever was selected last. What I

[perl-win32-gui-users] Win32::GUI IDE

2001-04-03 Thread sean
> Please have a look at the GOE (GUI Object Explorer) at > http://www.fairymails.com/perl/ > Download either goe.zip or the the other three files (which are > actually the contents of the zip), start goe.pl and give it a > Win32-GUI script in the fileopen dialog. If it happens to find a *.ui > file

Re: [perl-win32-gui-users] Re; Popup menu

2001-04-02 Thread sean
The popup menu code is great. I tried to create a context menu for a while, but never could get RightClick to work. Is it new in 0.0.558? I was unemployed for several months, so I was running around looking for a job, then I got one in which I had to be trained in Assembly Language, so I've

Re: [perl-win32-gui-users] The cancel cross (upper right) in GUI

2001-02-14 Thread sean
On 14 Feb 2001, at 11:20, Nahum Marc wrote: > How to manage the the cancel cross (upper right) in GUI to do an exit > ? = , not a window exit , but a script exit ... I think I found your problem: When Win32::GUI::Dialog() returns -1, control returns to the script. After that, you have a bunch

[perl-win32-gui-users] web browser

2001-02-06 Thread Sean Healy
you should instead look at Win32::OLE, to see if you can embed an InternetExplorer instance in a window. Has anyone succeeded at this? I played around with it, and while I can get an instance of IE to come up, I haven't been able to figure out how to embed it in a Win32::GUI window (it always

RE: [perl-win32-gui-users] Interacting with DOS Shell

2001-01-25 Thread Sean Healy
I looked into both these solutions. I couldn't get Expect to work (I'll guess I'll have to wait for a Win32 version), and the problem with this other one is that DOS won't relinquish control back to the script until it has finished running - and since it's waiting for input, it never finishes.

Re: [perl-win32-gui-users] Tooltips

2001-01-25 Thread Sean Healy
has anyone been successfull in getting tooltips to work? I've played with them, but I always get the message that I'm trying to do something to an undefined value. I tracked the problem down in GUI.pm, and I found these two lines: my $parent = $_[0]; my $new = Win32::GUI->_new(Win32::GUI::c

Re: [perl-win32-gui-users] Final Code: Click on URL in About Window

2001-01-22 Thread Sean Healy
Here's the code that you all helped me to figure out. You can use this to implement a clickable URL in your About Window, or whereever you like. The code may not be very clean, let me know if you have suggestions to improve this. This example runs as-is. This is great! I've been playing with it

Re: [perl-win32-gui-users] Resizing

2001-01-22 Thread Sean Healy
The code you sent works for me. I don't know what's going on. $MainWin = new Win32::GUI::Window( -name => "MainWin", -text => "Main Window", -height => 400, -width=> 450, -left => 200, -top => 100, -font => $Font, -menu => $Menu,

Re: [perl-win32-gui-users] Resizing

2001-01-22 Thread Sean Healy
How does one prevent a user from resizing a window? The only thing I could think of is testing the window size when they attempt to resize and then stopit from being resized. Is there an easier or more efficient way of doing it? Add this option: -resizable => 0 You can also call it '-sizable'

Re: [perl-win32-gui-users] Interacting with DOS Shell

2001-01-19 Thread Sean Healy
I'm trying to make a gui interface to a command-line program I have. The problem is that at certain points, the program wants user input. I tried backticks, but my script hangs at the point where the program wants input. Is there a way to interface with DOS so that when a DOS program wants in

Re: [perl-win32-gui-users] pressing ENTER key in text box

2001-01-19 Thread Sean Healy
I have created a text box using $dialog3->AddTextfield( -name => "dialog3text3", -left => $dialog3->ScaleWidth-470, -top => $dialog3->ScaleHeight-98, -text => "$dialog3text3", -width=> 460, -height => 100, ); Try adding '-multiline => 1,' to your

Re: [perl-win32-gui-users] Net::FTP with AddStatusBar()

2001-01-18 Thread Sean Healy
Is there a way to catch the STDOUT from using Net::FTP (ie. let $FTPInfo equal the information (string) from Net::FTP) and place it in $SB = $Window->AddStatusBar(-text => $FTPInfo); $SB->Text($FTPInfo); should do the trick. _ Ge

[perl-win32-gui-users] RichEdit->Change()

2001-01-18 Thread Sean Healy
I've been playing around with RichEdit, and I can't get the Change event to work. Has anyone gotten this to work? _ Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Poor Man's Tooltip

2001-01-15 Thread Sean Healy
Since Tooltip currently isn't working, I wrote what I call a poor man's tooltip. The subroutines are here: sub SetupPMTooltip { unless ($pmt_text_color = $_[0]) { $pmt_text_color = '[0,0,0]';} unless ($pmt_bg_color = $_[1]) { $pmt_bg_color = '[255,255,255]';} } sub AddPMTooltip

RE: [perl-win32-gui-users] Getting the browser

2001-01-15 Thread Sean Healy
I think this topic had strayed from Win32-GUI to just Perl in general, so I'm sending my further responses just to Tim. If anyone wants the code, feel free to email me. _ Get your FREE download of MSN Explorer at http://explorer.ms

RE: [perl-win32-gui-users] Getting the browser

2001-01-15 Thread Sean Healy
Tim- Thanks for the suggestions. I changed this piece: my ($cmd); #print "\tcommand=$command\n"; if ($command=~/^".*"\s+.*$/) {

[perl-win32-gui-users] Win32::GUI::Tooltip

2001-01-14 Thread Sean Healy
I've been playing around with tooltips this weekend, trying to get them to work, but I kept getting an error message that tells me my tooltip object is undefined--well, the variable that is supposed to refer to my tooltip object is undefined, which means my tooltip did not get created. I traced

[perl-win32-gui-users] Getting the browser

2001-01-13 Thread Sean Healy
Due to a message earlier this week, I was thinking about the problem of getting a browser preference from the user's registry, so I wrote this: use Win32::TieRegistry; sub getProgram { if (my $ext = $_[0]) { if (my $typeName = $Registry->{"HKEY_CLASSES_ROOT\\$ext

Re: [perl-win32-gui-users] double click in listbox

2001-01-12 Thread Sean Healy
Thanks, it works great now. What exactly does the '3' do? (The only change I made from my original code was to put that in.) -style => WS_VISIBLE | 3 | WS_VSCROLL |, _ Get your FREE download of MSN Explorer at http://exp

Re: [perl-win32-gui-users] double click in listbox

2001-01-12 Thread Sean Healy
Thanks, Jonathan. I was able to figure out the problem, which is that it will not work when the '-style' attribute is set. So now I can get it to register a double click, but only if I'm willing to give up scrollbars. Has anyone found a way around this? I guess I can use the arrow keys or

[perl-win32-gui-users] double click in listbox

2001-01-11 Thread Sean Healy
I can't get my listbox to register a double click. I looked this up on the old archives, and found references to the problem, but no solution. Has anyone managed to get this to work? I'm using 0.0502 on Win95. _ Get your FREE dow

RE: [perl-win32-gui-users] perl2exe stuff

2001-01-11 Thread Sean Healy
Do they offer PerlApp by itself? (I checked the site and couldn't find it, so I suspect the answer is no, but if anyone knows differently, please let me know.) I am using ActiveState's PerlApp which comes with their PDK. It converts Perl applications into freestanding executeables very nicel

RE: [perl-win32-gui-users] URL Link Object?

2001-01-11 Thread Sean Healy
Never tried it or even seen anything on it, but theoretically you should be able to grab the mouse position in the window, and if it falls within the bounds of the text which should be a link, open an external application. Some drawbacks: 1) You would have to change the mouse position range eve

Re: [perl-win32-gui-users] possible problem with GetOpenFilename

2001-01-10 Thread Sean Healy
I had this problem before - I found a possible solution in the old archives (at http-tech), but it involved recompiling (if I recall correctly, the variable filterlen was not given a default value of 0, so when you specify a filter, the program tries to increment something that hasn't been set