Re: [perl-win32-gui] gatorbase.zip
I would be happy to brian but first I need your e-mail address because the files can't be posted here. Jonathan - Original Message - From: Brian Radford To: [EMAIL PROTECTED] Sent: Friday, December 15, 2000 5:35 PM Subject: Re: [perl-win32-gui] gatorbase.zip Can you please email me the files? I am trying to FTP them, but I keep getting timeouts from the server. - Original Message - From: Jonathan Southwick To: [EMAIL PROTECTED] Sent: Friday, December 15, 2000 3:02 PM Subject: [perl-win32-gui] gatorbase.zip i am sorry for those of you who tried to log on using perlmonks and couldn't get on ... that was my fault. I inadvertantly added "perlmonk" instead of "perlmonks" to the user list .. but now it should work fine with user "perlmonks" and password "win32!gui" I am sorry again for any inconvenience. Jonathan Southwick [EMAIL PROTECTED]
Re: [perl-win32-gui] $Window-TextField-Text()
THANK YOU!! THANK YOU! THANK YOU! now my Stop button works in my
program. I could never figure out why it wasn't registering the click.
Jonathan Southwick
[EMAIL PROTECTED]
- Original Message -
From: "Aldo Calpini" [EMAIL PROTECTED]
To: "Eric Bennett" [EMAIL PROTECTED]
Cc: "Robert Sherman" [EMAIL PROTECTED]; [EMAIL PROTECTED]
Sent: Monday, December 18, 2000 11:20 AM
Subject: Re: [perl-win32-gui] $Window-TextField-Text()
Eric Bennett wrote:
On Fri, 15 Dec 2000, Robert Sherman wrote:
any idea as to why in the script below, in sub Button2_Click,
TextField1 does not change to "Processing..." prior to running
the process_file sub? A similar call in the process_file sub
changes the field to "Done!" when it finishes, and that call
works fine...
The Text method is queueing a message to TestField1 to change,
but that message cannot be acted upon until the current *_Click
event exits.
What ends up happening is that process_file runs, then
afterward the text changes twice quickly as the messages are
processed.
correct, and very well explained! thanks Eric ;-)
How to fix it? I don't have enough experience with Win32::GUI.
I can help here.
in the process_file sub, put a call to DoEvents() inside the
loop. this will ensure that all queued messages are processed
before going on with the loop:
foreach $line (INFILE) {
$Window-DoEvents();
# body of the loop...
}
this will, of course, make your loop run slightly slower (almost
irrelevant if there is no activity on the window). but there is
the advantage (other than having the Textfield saying
"Processing...") of being able to stop the loop in the middle
by killing the window, or with a 'dedicated' stopbutton, for
example.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
[perl-win32-gui] updated program
Last year at some point I submitted a program I had written. I have made some major overhauls in it and am pretty much leaving it where it is unless I get more ideas for it. It includes a bunch of the GUI objects in it. Unfortunately due tote cablemodem upstream limitations of the owner of this list I have to put the zip file on an ftp site. The ftp site is 141.195.50.3 and you must use port 5821. The login is "perlmonks" and the password is "win32!gui" for anyone who would like to take a look at my program. If you want me to e-mail it to you, I can do that also. Just send me an e-mail and let me know. All the files in the zip file must be placed in the same directory except for Sender.pm. That file should go in c:\Perl\lib\Mail (or similar on your hard drive). I was bored at one point and put an "easter egg" in the program so if you feel like searching for it go right ahead .. the result will be a Hangman game thatI wrote. it should be pretty easy to figure out since you have the code right in front of you, but if you want the secret to the easter egg let me know andI will be happy to tell you. You need to run the program with the '-t' flag or you will get an Error Boxsaying that you could not connect to the server. That message is fine and the program will still work but the '-t' flag will prevent the error box from coming up, so you would type: perl gatorbase.pl -t Some things you should know ... if you click on a column in the Detail view of the ListView object, the information will be sorted ascending according to that column; clicking it again will sort it descending. Double-clicking on any item in any of the views will bring up all the information in an easy to read(?) window. You will achieve the same results by right-clicking on the item and selecting properties. Thanks to everyone who helped me when I have posted questions here. If anyone has any comments, questions or suggestion, please let me know. A good critique makes for a more efficent program(mer)! ;] Jonathan Southwick [EMAIL PROTECTED]
Re: [perl-win32-gui] Changing checkmarks in menus
I can answer one of your questions Jeremy. You can set the checkmark and
unset it as well on a menu it after the menu has been created.
### menu definition:
my $MainMenu = new Win32::GUI::Menu(
"File" = "File",
" Update All Data" = "GetData",
" -" = 0,
" Exit" = "FileExit",
"Search" = "Search",
" Find Name" = {-name = "FindName", -checked = 1},
" Find Building" = {-name = "FindBuilding", -checked = 0},
" Find Adapter Address" = {-name = "FindAdapter", -checked =
0},
"View" = "View",
" Large Icons" = {-name = "ViewLarge", -checked = 0},
" Small Icons" = {-name = "ViewSmall", -checked = 0},
" List" = {-name = "ViewList", checked = 0},
" Details" = {-name = "ViewDetails", -checked = 1},
"Tools" = "Tools",
" Add User Information" = "AddUser",
"-" = 0,
" Report Problem" = "ReportProblem",
"Help" = "Help",
" About" = "About",
);
### main window definition that has the menu:
my $MainWindow = new Win32::GUI::Window(
-name = "MainWindow",
-top= ($screen_height - $minheight)/2,
-left = ($screen_width - $minwidth)/2,
-width = $minwidth,
-height = $minheight,
-minsize= [$minwidth,$minheight],
-title = "$titlebar - No Data Loaded",
-menu = $MainMenu,
-class = $dbv_class,
);
### to change the checkmark from the "View - Details" item to "View -
List" you would put
### the following in your code:
sub ViewList_Click {
$MainMenu-{ViewLarge}-Checked(0);
$MainMenu-{ViewSmall}-Checked(0);
$MainMenu-{ViewList}-Checked(1); ### this turns on the checkmark
$MainMenu-{ViewDetails}-Checked(0); ### this turns off the checkmark
$MainWindow-DataView-SetImageList($user_sm);
$MainWindow-DataView-View(3);
$MainWindow-DataView-Arrange();
return;
}
I hope this helps. This came from a file in gatorbase.zip that i told the
group about. Check out the programs and maybe it will answer some of your
questions.
Jonathan Southwick
- Original Message -
From: "Jeremy Blonde" [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, December 15, 2000 1:31 PM
Subject: Re: [perl-win32-gui] Changing the font size
And to go along with that..
Is there a way to change the properties of a window
after it has been created? I'd like to be able to
allow -topmost to be turned on and off. I can get it
to work if I re-create the window, but I'd like to
avoid doing that if possible.
Also is there a way to set the checkmark for menu
items after the menu has been created? Again, I can
get it to work if I re-create the window.
Thanks,
Jeremy Blonde
--- Sean Healy [EMAIL PROTECTED] wrote:
Here's something else I couldn't find in the
archives:
Is it possible to change the size in a font object?
I've tried using the
Change method to change the size and then resetting
the font using the
SetFont method, but it doesn't work. I don't want
to create a whole bunch
of font objects just so I can have different sizes,
but that may be the only
solution. Any ideas?
_
Get your FREE download of MSN Explorer at
http://explorer.msn.com
__
Do You Yahoo!?
Yahoo! Shopping - Thousands of Stores. Millions of Products.
http://shopping.yahoo.com/
[perl-win32-gui] gatorbase.zip
i am sorry for those of you who tried to log on using perlmonks and couldn't get on ... that was my fault. I inadvertantly added "perlmonk" instead of "perlmonks" to the user list ... but now it should work fine with user "perlmonks" and password "win32!gui" I am sorry again for any inconvenience. Jonathan Southwick [EMAIL PROTECTED]
Re: [perl-win32-gui] changing windows properties
I don't know why this doesn't work for some windows properties but it does
for others, but here is an idea of what you want to do:
$MainWindow-{-left} = 30;
This will move the window to the position 30 pixels from the left side of
the screen. i couldn't get this to work for a window using the -topmost =
1 option or using -addexstyle = WS_EX_TOPMOST but maybe I am way off on
this one.
Jonathan Southwick
[EMAIL PROTECTED]
- Original Message -
From: "Jeremy Blonde" [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, December 15, 2000 1:31 PM
Subject: Re: [perl-win32-gui] Changing the font size
And to go along with that..
Is there a way to change the properties of a window
after it has been created? I'd like to be able to
allow -topmost to be turned on and off. I can get it
to work if I re-create the window, but I'd like to
avoid doing that if possible.
Also is there a way to set the checkmark for menu
items after the menu has been created? Again, I can
get it to work if I re-create the window.
Thanks,
Jeremy Blonde
--- Sean Healy [EMAIL PROTECTED] wrote:
Here's something else I couldn't find in the
archives:
Is it possible to change the size in a font object?
I've tried using the
Change method to change the size and then resetting
the font using the
SetFont method, but it doesn't work. I don't want
to create a whole bunch
of font objects just so I can have different sizes,
but that may be the only
solution. Any ideas?
_
Get your FREE download of MSN Explorer at
http://explorer.msn.com
__
Do You Yahoo!?
Yahoo! Shopping - Thousands of Stores. Millions of Products.
http://shopping.yahoo.com/
[perl-win32-gui] ToolTips
Has anyone had any luck using Tooltips? I don't want to use it with NotifyIcon but I have a ListView and when someone hovers the mouse over an item I would like a Tooltip to come up with some text. Jonathan
[perl-win32-gui] Menu selection marks
I have noticed that in some menus there is either a checkmark or a circle beside the desired selection. Is there a way in Win32:GUI to use the circle? I know I can use the checkmark with the -checked = 1 option. Jonathan
[perl-win32-gui] ItemInfo Click event
Is there any way to distinguish between hovering the mouse over a particular item in a ListView and actually clicking on the item? Or is there a double-click event for the ListView? I use an ItemClick event in my program and it reads a click when the mouse hovers over any item. Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
Re: [perl-win32-gui] ItemInfo Click event
The listview.pl that is included as a sample does the same thing I mentioned. All I
have to do is hover my mouse
pointer over an item and it acts like it has been clicked.
Here is the code that constructs my listview:
$MainWindow-AddListView(
-name = "DataView",
-top= $MainWindow-ScaleHeight,
-left = 0,
-width = $MainWindow-ScaleWidth,
-height = $MainWindow-ScaleHeight - 215,
-fullrowselect= 1,
-multisel= 0,
-gridlines= 1,
-hottrack= 1,
-style = 1,
-visible= 0,
);
$MainWindow-DataView-InsertColumn(
-name = "Col1",
-index = 0,
-width = 95,
-text = "First Name",
);
$MainWindow-DataView-InsertColumn(
-name = "Col2",
-index = 1,
-subitem= 1,
-width = 95,
-text = "Last Name",
);
$MainWindow-DataView-InsertColumn(
-name = "Col3",
-index = 2,
-subitem= 1,
-width = 100,
-text = "Building",
);
$MainWindow-DataView-InsertColumn(
-name = "Col4",
-index = 3,
-subitem= 1,
-width = 55,
-text = "Room",
);
$MainWindow-DataView-InsertColumn(
-name = "Col5",
-index = 4,
-subitem= 1,
-width = 114,
-text = "Adapter Address",
);
$MainWindow-DataView-InsertColumn(
-name = "Col6",
-index = 5,
-subitem= 1,
-width = 117,
-text = "IP Address",
);
and here is the code for the event:
sub DataView_ItemClick {
my ($item) = @_;
print "Item: \n",$item,"\n\n";
%item = $MainWindow-DataView-ItemInfo( $item, 0);
$col1 = $item{-text};
%item = $MainWindow-DataView-ItemInfo( $item, 1 );
$col2 = $item{-text};
%item = $MainWindow-DataView-ItemInfo( $item, 2 );
$col3 = $item{-text};
%item = $MainWindow-DataView-ItemInfo( $item, 3);
$col4 = $item{-text};
%item = $MainWindow-DataView-ItemInfo( $item, 4 );
$col5 = $item{-text};
%item = $MainWindow-DataView-ItemInfo( $item, 5 );
$col6 = $item{-text};
print "This is: $col1 $col2 $col3 $col4 $col5 $col6\n\n";
return;
}
Is there a double-click event for the listview?
Jonathan
- Original Message -
From: "Aldo Calpini" [EMAIL PROTECTED]
To: "Jonathan Southwick" [EMAIL PROTECTED]
Sent: Wednesday, October 25, 2000 11:57 AM
Subject: Re: [perl-win32-gui] ItemInfo Click event
Jonathan Southwick wrote:
Is there any way to distinguish between hovering the mouse over
a particular item in a ListView and actually clicking on
the item? Or is there a double-click event for the ListView?
I use an ItemClick event in my program and it reads a click
when the mouse hovers over any item.
no idea. it does not do it on the provided listview.pl sample.
can you post at least the ListView creation code snippet?
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
[perl-win32-gui] No Window Movement
Is there a -style tag for a window that prohibits the window from being moved? Jonathan
Re: [perl-win32-gui] Changing label properties
Hey thanks for your help. I had already tried that but it didn't work. Then when I saw that Aldo said it, it must work and I must have been doing something wrong. I scoured my code and found out I was playing dumB again and using the wrong name for my label in my sub event. ;/ Thanks for helping me to recognize my problem. Still don't know what I am going to do about the ListView problem. Do you have any idea why it didn't work? Jonathan ** When Aldo speaks, everybody listens! ** ;] From: "Aldo Calpini" [EMAIL PROTECTED] To: "Jonathan Southwick" [EMAIL PROTECTED] Cc: [EMAIL PROTECTED] Sent: Friday, October 20, 2000 4:26 AM Subject: Re: [perl-win32-gui] Changing label properties Jonathan Southwick wrote: Is there any way to change the properties of a label later in the program after the label has been defined? When I create the label I do not want to use the -notify = 1 option but after a specific event I want that option enabled. Can this be done? changes can be done using the Change() method. but the effectiveness of changes depend from what Win32 decides :-) the Platform SDK docs mention here and there things that can't be changed after control creation; in this case, the docs don't say anything, so I presume that this will work for you: $MyWindow-MyLabel-Change( -notify = 1 ); cheers, Aldo __END__ $_=q,just perl,,s, , another ,,s,$, hacker,,print;
Re: [perl-win32-gui] Setting a window to no resize
Paul, Add the following option to your window constructor: -style = WS_SYSMENU | WS_NORESIZE, and that should do what you want. Jonathan - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, October 20, 2000 11:31 AM Subject: [perl-win32-gui] Setting a window to "no resize" Hi All First a quick intro since this is my 1st post : I'm Paul, a Senior Systems Engineer for a large UK telecoms company. I've been playing with perl on un*x for a couple of years now and love it to bits. Having recently taken on some NT based projects I was very happy to see a strong perl showing and have installed ActiveState 618 here. I just got Win32::Gui a couple of days ago and have been hacking ever since :-) OK now that I know every one here's my question. I'm using the Gui to write a frontend to an existing perl program. Since the gui will be very small, I don't want to go to the trouble of resizing all my elements if the window is resized, I'd much rather make the window no resize. I have a solution in the window constructor : ... -maxsize = [n,n] -minsize = [n,n] ... I was wondering if there was simply a no resize option which can be set ? TIA PaulB *** Important. This E-mail is intended for the above named person and may be confidential and/or legally privileged. If this has come to you in error you must take no action based on it, nor must you copy or show it to anyone; please inform the sender immediately. ***
Re: [perl-win32-gui] Setting a window to no resize
Paul, If you want to be able to minimize the window but not maximize the window then you can use: -style= WS_SIZEBOX | WS_SYSMENU | WS_MINIMIZEBOX, Jonathan - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, October 20, 2000 11:31 AM Subject: [perl-win32-gui] Setting a window to "no resize" Hi All First a quick intro since this is my 1st post : I'm Paul, a Senior Systems Engineer for a large UK telecoms company. I've been playing with perl on un*x for a couple of years now and love it to bits. Having recently taken on some NT based projects I was very happy to see a strong perl showing and have installed ActiveState 618 here. I just got Win32::Gui a couple of days ago and have been hacking ever since :-) OK now that I know every one here's my question. I'm using the Gui to write a frontend to an existing perl program. Since the gui will be very small, I don't want to go to the trouble of resizing all my elements if the window is resized, I'd much rather make the window no resize. I have a solution in the window constructor : ... -maxsize = [n,n] -minsize = [n,n] ... I was wondering if there was simply a no resize option which can be set ? TIA PaulB *** Important. This E-mail is intended for the above named person and may be confidential and/or legally privileged. If this has come to you in error you must take no action based on it, nor must you copy or show it to anyone; please inform the sender immediately. ***
Re: [perl-win32-gui] Setting a window to no resize
Paul, my bad!!! -style= WS_MINIMIZEBOX | WS_SYSMENU | WS_NORESIZE, is what you want ... the other will still resize ... but this one will allow you to minimize and not resize and gives you the ability to Close it as well. I hope this helps. Jonathan - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, October 20, 2000 11:31 AM Subject: [perl-win32-gui] Setting a window to "no resize" Hi All First a quick intro since this is my 1st post : I'm Paul, a Senior Systems Engineer for a large UK telecoms company. I've been playing with perl on un*x for a couple of years now and love it to bits. Having recently taken on some NT based projects I was very happy to see a strong perl showing and have installed ActiveState 618 here. I just got Win32::Gui a couple of days ago and have been hacking ever since :-) OK now that I know every one here's my question. I'm using the Gui to write a frontend to an existing perl program. Since the gui will be very small, I don't want to go to the trouble of resizing all my elements if the window is resized, I'd much rather make the window no resize. I have a solution in the window constructor : ... -maxsize = [n,n] -minsize = [n,n] ... I was wondering if there was simply a no resize option which can be set ? TIA PaulB *** Important. This E-mail is intended for the above named person and may be confidential and/or legally privileged. If this has come to you in error you must take no action based on it, nor must you copy or show it to anyone; please inform the sender immediately. ***
[perl-win32-gui] still having problems
I have a ListView with 6 columns displayed in "detail" view. What I am wanting to do is click on an item in the ListView and be able to read the data in that particular row. Does anyone know how to do this? Any help would be appreciated.. Thanks, Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
[perl-win32-gui] Re: FTP problem I have encountered
I figured out my problem! ;]
I needed to have:
my $connect;
my $FTP;
in my routine. duh! I feel so stupid about this one.
Later days!
Jonathan
--
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
- Original Message -
From: "Jonathan Southwick" [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 09, 2000 3:25 PM
Subject: FTP problem I have encountered
I use the following code when connecting to an FTP site and call this routine
different places within my program:
sub UpdateData {
$DataWindow-Caption("GatorNet Database Information - Retrieving Lastest Data,
Please Wait ...");
$connect-FTP($FTP, "server", "login", "password");
$FTP-Cd("gatornet");
$FTP-Binary();
$FTP-Get("ResNetInfo.txt");
$FTP-Get("ADSLInfo.txt");
($FTPErrNumb, $FTPErrText) = $FTP-Error();
print $FTPErrNumb;
print $FTPErrText;
$FTP-Close();
return;
}
When the program starts, this routine is called and all the data loads fine but if I
try to "update" my data and the
routine is called again I get an error #6 and the message is 'The handle is invalid."
This does not load the current data/ Doess anyone know why this is happening?
JOnathan
--
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-275
[perl-win32-gui] Retrieving value of an item in a ListView click
I want to get a value in a particular column when I click on the item in column 1.
For instance: I have a listview
with 6 columns. This first column is of course holds the index value. If I use:
sub DataView_ItemClick {
my $index = shift;
}
then $index holds the value of the index of the item I clicked on. What I want to do
now is find out what values are in
each column of that particular index.
Am I making sense? Is it at all possible? I would appreciate any help on this.
Jonathan
--
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
Re: Re[2]: [perl-win32-gui] YES/NO Window
But of course Aldo's fix is MUCH better ;] Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755 - Original Message - From: "Aldo Calpini" [EMAIL PROTECTED] To: "David Hiltz" [EMAIL PROTECTED] Sent: Friday, May 05, 2000 8:21 AM Subject: Re[2]: [perl-win32-gui] YES/NO Window David Hiltz wrote: I didn't get a YES and NO button when I ran this, just an OK button. sorry, that's a little bug in Win32::GUI... try this: $answer = Win32::GUI::MessageBox( 0, $question_text, "ERROR", MB_ICONQUESTION | MB_YESNO, ); cheers, Aldo
[perl-win32-gui] Here is the final code
Here is the final code for the program I was working on that allows you to sort a listview on the column that is clicked. I did not take the time to comment it, sorry! ;[ I have modified the sort (a simple change really) so that clicking on the column headers toggles the sort to either ascending or descending. I also included a sample database file so that you won't have to create your own. It contains 864 records so you will be able to get a wide variety of selections. It is important to tell you that I modified the code I sent. It will not pull the information from the server like the original program does, it just pulls it from the hard drive. You MUST run this program with a -t flag (I used this for testing purposes) or the program will not run correctly: Example: perl findata.pl -t If you have any questions about my code, please feel free to ask. If you have any comments or suggestions feel free to tell me. I have not been using the Win32::GUI module for very long so some of my code may be sloppy and not very robust as it should be. There are a few more things I am considering adding: - an icon below the "New Search" button, sort of like an information icon ... "no data loaded", "searching the database", or something along those lines - for some reason the "Stop" button does not work when it is searching through the database, any ideas why? - little up/down arrows applied to column headers (for ascending/descending) to signify what type of sort was applied - I think there was something else but I have totally forgotten ... maybe it will come to me Again, many thanks to everyone for their help. I also hope this will help others who might have some questions about some of the Win32::GUI objects and methods. Jonathan ------ Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
Re: Re[4]: [perl-win32-gui] Capturing ListView Clicks
I sure can. It will be here either later today or tomorrow. I am still tweaking my program for use here but at least its working. Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755 - Original Message - From: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, April 25, 2000 1:21 PM Subject: RE: Re[4]: [perl-win32-gui] Capturing ListView Clicks Can you send us your final code, so we can see how you got it working. Thanks, Tim - Tim Thomas Unix Systems Administrator Lockheed Martin EIS · Denver Data Center 303-430-2281 mailto:[EMAIL PROTECTED] - -Original Message- From: Jonathan Southwick [SMTP:[EMAIL PROTECTED]] Sent: Tuesday, April 25, 2000 11:20 AM To: [EMAIL PROTECTED] Subject: Re: Re[4]: [perl-win32-gui] Capturing ListView Clicks A million thanks ... no make it one zillion thanks to everyone who helped out. The sort works great! Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
Re: Re[4]: [perl-win32-gui] Capturing ListView Clicks
A million thanks ... no make it one zillion thanks to everyone who helped out. The sort works great! Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
[perl-win32-gui] Capturing ListView Clicks
Never mind ... I think figured it out ... hehe ... I am gonna go try it now! Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
Re: [perl-win32-gui] Capturing ListView Clicks
Well I figured out how to capture the column click but I don't know how to
tell which one was clicked. As far as the sorting goes I think you have to
write your own routine to sort the items and write them back to the listview
but I could be wrong.
To capture the event:
sub ListView_ColumnClick {
[code in here]
}
So how do I determine exactly what column was clicked?
Jonathan
--
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
- Original Message -
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, April 24, 2000 11:55 AM
Subject: RE: [perl-win32-gui] Capturing ListView Clicks
Hey, if you figure it out, let me know how you get it. I knew at one point
how to capture the column clicks, there is a function there somewhere for
it, I just have to dig it out, I just couldn't figure out how to sort the
items in the list.
Tim Thomas
--
--
-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
--
--
-
-Original Message-
From: Jonathan Southwick [SMTP:[EMAIL PROTECTED]]
Sent: Monday, April 24, 2000 9:55 AM
To: Perl-Win32-GUI Help
Subject: [perl-win32-gui] Capturing ListView Clicks
Never mind ... I think figured it out ...
hehe ... I am gonna go try it now!
Jonathan
--
Jonathan Southwick [EMAIL PROTECTED]
Technical and Network Services
Allegheny College
Meadville, PA 16335 814-332-2755
[perl-win32-gui] TabStrips
I finally need to use tabstrips for one of my programs and decided to look back over some discussion that went on about them. To get a feel for how they work I tried running Eric Hansen's tabstrip sample from 2/18/2000 but got the following message: Your vendor has not defined Win32::GUI macro AddLabel, used at tabsamp.pl line 52. at C:\Perl\lib/Win32/GUI.pm line 361. Why is this error occuring? Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
Re: [perl-win32-gui] ComboBox Dropdown
One last thing: basically what I am trying to do is simulate the AutoExpand and Limit To List properties in a combobox in Access. Jonathan -- Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755
Re: [perl-win32-gui] FAQ list and official web site for win32....
Rats! And I thought I was the only one who could possibly get this error message. ;] I unfortunately do not have a list of all the steps I took to resolve this problem but it had to do with having the GUI.pm in the correct directory. I am sorry I did not keep notes on the problem and what I did to resolve it. What is the location for your GUI.pm file? I think that it will take moving GUI.pm and some other files to a different directory in order to get it to work properly. I could be way off base though for your situation but that is what I had to do in order to get mine to work. Jonathan Southwick - Original Message - From: Mike Lu [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, August 03, 1999 5:42 PM Subject: [perl-win32-gui] FAQ list and official web site for win32 Dear GUI developers: The attached file is the error message I got when I tried to run the Perl program on NT. What happen? I am new to this mailing list. Can any one direct me to the FAQ list? Mike
Re: [perl-win32-gui] No support for RemoveItem?
Sorry ... but the script didn't come through. Jonathan Southwick [EMAIL PROTECTED] Technical and Network Services Allegheny College Meadville, PA 16335 814-332-2755 - Original Message - From: Philip A. Larson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Monday, May 24, 1999 4:06 AM Subject: [perl-win32-gui] No support for RemoveItem? Aldo, I am getting a message that: "Your vendor has not defined Win32:GUI macro RemoveItem, used at C:\test.pl line 42. at c:\perl\site\lib/Win32/GUI.pm line 361." The documentation indicates that it exists. What am I doing wrong? I have attached the script called test.pl. Thank You, Phil Larson
[perl-win32-gui] Using Timer feature
Well this is weird. I got the timer feature to work with no problem on a Pentium 90. I used the exact same script on a Pentium 233 and it doesn't work now. This is a really odd quirk. Anyone else not getting it to work on their Pentium machine? Jonathan Southwick [EMAIL PROTECTED]Technical and Network ServicesAllegheny CollegeMeadville, PA 16335 814-332-2755
Re: [perl-win32-gui] Button -default option
From: Max Kozlov [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, May 07, 1999 8:29 AM
Subject: [perl-win32-gui] Button "-default" option
Hello perl-win32-gui,
is it works ?
$W-AddButton(
-name = "Simple",
-left = 5,
-top = 5,
-text = "Click button",
-default = 1
);
when i set '-default=1' then i get "default" shape of button, but when
i press
'Enter' i don't get any event. why ?
Best regards,
Max mailto:[EMAIL PROTECTED]
Max,
Try adding this option also:
-ok = 1,
So you would have:
$W-AddButton(
-name = "Simple",
-left = 5,
-top = 5,
-text = "Click button",
-default = 1,
-ok = 1,
);
This should work, I think. ;]
Jonathan Southwick[EMAIL PROTECTED]
Technical Network Services 814-332-2755
Allegheny College
Meadville, PA 16335
--
***Everything is within walking distance if you've got the time ***
- Original Message -
Re: Re[2]: [perl-win32-gui] Button -default option
- Original Message - From: Max Kozlov [EMAIL PROTECTED] To: Aldo Calpini [EMAIL PROTECTED] Sent: Friday, May 07, 1999 9:49 AM Subject: Re[2]: [perl-win32-gui] Button "-default" option with -default, -ok and any of it's combinations i can't get Click() or DblClick() event... Best regards, Maxmailto:[EMAIL PROTECTED] Max, Could you show us some parts of your code? Could you include the code where you create the window, the code where you add the buttons, and the code where you test the buttons? Jonathan Southwick[EMAIL PROTECTED] Technical Network Services 814-332-2755 Allegheny College Meadville, PA 16335 -- ***Everything is within walking distance if you've got the time ***
Re: [perl-win32-gui] Anyone gotten Win32:GUI working with ActiveState build?
Hello, I haven't used Win32::GUI in a while, and I was wondering if anyone's built it to work with ActiveState Perl and what all it took. I'm currently using ActiveState Perl 5.005_03 build 515. Kelley Phillips [EMAIL PROTECTED] Programmer/Analyst, Info Tech, Inc. I didn't build it, I downloaded the binary's from somewhere ... I can't rememebr where though. I can look into if you'd like. I actually had to copy the files ionto the right directories because when I unzipped it ... they were put into a weird directory and it wouldn't work that way. I just mapped the "blip" directory where they were to the "Perl" directory and everything worked fine. If you have any more questions please let me know. Jonathan Southwick [EMAIL PROTECTED]Technical Network Services 814-332-2755Allegheny CollegeMeadville, PA 16335--***Everything is within walking distance if you've got the time ***
[perl-win32-gui] Window with no dialogue
HI. I am trying to create a window that requires no interaction between a user and itself. Basically all I want it for is when a user clicks on a send button I want a window to pop up that says that the mail is being sent and to please wait. After the mail is sent I want the window to close. I did get it to do this except that if I don't include the $window-Dialog(); command then the labels that contain the information do not get displayed on the window; it is left blank. If I do include the $window-Dialog(); command then the program waits for the user to interact with it. I don't want any user interaction. Is this possible? Also ... did anyone figure out if you can intercept key strokes, such as Cntrl-C and/or Cntrl-Break, in Perl? Thanks for any help I can get. Jonathan Southwick [EMAIL PROTECTED]Technical Network Services 814-332-2755Allegheny CollegeMeadville, PA 16335--***Everything is within walking distance if you've got the time ***
Re: [perl-win32-gui] Radio buttons etc.
4) What is a zero-based index? A zero-based index refers to an array (or as in the combobox example above, and item) whose initial value is zero. Some arrays begin with their first item being initialized with a 1 (one). I have noticed that Perl works this way with its array structures such as command line parsing and others. Oops. Thats a little unclear. I meant perl uses the zero-based index, not that it uses indexing starting at 1. Sorry if I confused anyone. Jonathan Southwick[EMAIL PROTECTED] Technical Network Services 814-332-2755 Allegheny College Meadville, PA 16335 -- ***Everything is within walking distance if you've got the time ***
[perl-win32-gui] Win32::GUI module on Win95
I recently wrote a perl script to enable me to simplify a task that would normally take some time. I then incorporated the Win32::GUI module to make it easier to enter information. The script works perfect on my WinNT machine but when I try to run the SAME script on a Win95 machine it won't even start and I am returned to the DOS prompt. I used the -d flag whenI ran I the program and I received the following error: Win32::GUI::CODE(0x7a488c)(C:\PERL\lib/Win32/GUI.pm:2100):2100: Win32::GUI::FreeLibrary($Win32::GUI::RICHED);Does anyone know what's going on? Jonathan Southwick [EMAIL PROTECTED]Technical Network Services 814-332-2755Allegheny CollegeMeadville, PA 16335--***Everything is within walking distance if you've got the time ***
