Menu
▾
▴
perl-win32-gui-users — Using the Win32::GUI Perl extension
You can subscribe to this list here.
| 2001 |
Jan
(226) |
Feb
(139) |
Mar
(156) |
Apr
(95) |
May
(181) |
Jun
(166) |
Jul
(80) |
Aug
(59) |
Sep
(69) |
Oct
(83) |
Nov
(142) |
Dec
(33) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(42) |
Feb
(91) |
Mar
(76) |
Apr
(113) |
May
(67) |
Jun
(68) |
Jul
(37) |
Aug
(41) |
Sep
(16) |
Oct
(135) |
Nov
(51) |
Dec
(21) |
| 2003 |
Jan
(37) |
Feb
(36) |
Mar
(37) |
Apr
(103) |
May
(68) |
Jun
(70) |
Jul
(77) |
Aug
(12) |
Sep
(9) |
Oct
(53) |
Nov
(88) |
Dec
(63) |
| 2004 |
Jan
(263) |
Feb
(106) |
Mar
(36) |
Apr
(21) |
May
(21) |
Jun
(34) |
Jul
(33) |
Aug
(34) |
Sep
(35) |
Oct
(21) |
Nov
(43) |
Dec
(63) |
| 2005 |
Jan
(28) |
Feb
(42) |
Mar
(29) |
Apr
(14) |
May
(41) |
Jun
(20) |
Jul
(65) |
Aug
(136) |
Sep
(41) |
Oct
(74) |
Nov
(34) |
Dec
(94) |
| 2006 |
Jan
(85) |
Feb
(94) |
Mar
(68) |
Apr
(103) |
May
(66) |
Jun
(51) |
Jul
(24) |
Aug
(56) |
Sep
(57) |
Oct
(85) |
Nov
(73) |
Dec
(68) |
| 2007 |
Jan
(59) |
Feb
(32) |
Mar
(13) |
Apr
(32) |
May
(36) |
Jun
(36) |
Jul
(64) |
Aug
(35) |
Sep
(19) |
Oct
(10) |
Nov
(13) |
Dec
(20) |
| 2008 |
Jan
(26) |
Feb
(41) |
Mar
(19) |
Apr
(24) |
May
(16) |
Jun
(33) |
Jul
(34) |
Aug
(4) |
Sep
(11) |
Oct
|
Nov
(26) |
Dec
(23) |
| 2009 |
Jan
(5) |
Feb
(2) |
Mar
(21) |
Apr
(16) |
May
(13) |
Jun
(6) |
Jul
(34) |
Aug
(2) |
Sep
(1) |
Oct
(7) |
Nov
(5) |
Dec
(24) |
| 2010 |
Jan
(3) |
Feb
(5) |
Mar
(6) |
Apr
(6) |
May
(14) |
Jun
(6) |
Jul
(1) |
Aug
(12) |
Sep
(10) |
Oct
(9) |
Nov
|
Dec
(2) |
| 2011 |
Jan
(4) |
Feb
(5) |
Mar
(30) |
Apr
(1) |
May
(2) |
Jun
(5) |
Jul
(3) |
Aug
(2) |
Sep
(3) |
Oct
|
Nov
(6) |
Dec
|
| 2012 |
Jan
|
Feb
(10) |
Mar
|
Apr
|
May
(1) |
Jun
(3) |
Jul
(1) |
Aug
|
Sep
(2) |
Oct
|
Nov
(2) |
Dec
(4) |
| 2013 |
Jan
(5) |
Feb
(3) |
Mar
|
Apr
(3) |
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
(2) |
Feb
|
Mar
|
Apr
(1) |
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(9) |
Nov
(7) |
Dec
|
| 2015 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(4) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2017 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(1) |
Nov
(5) |
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(2) |
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Morbus I. <mo...@di...> - 2001-05-03 13:44:38
|
>The workaround is: > $logbox->SendMessage (0x115, 7, 0); # scroll to bottom > $logbox->SendMessage (0x115, 2, 0); # scroll one page up > $logbox->SendMessage (0x115, 1, 0); # scroll one line down > >Or, how about one line per \n in the message plus one for the \n added >outside the var: > $logbox->SendMessage (0x115, 1, 0) while $message =~ /\n|$/g; >... okay, this lacks readability, but it works, even under 98 :-) Whoo hoo! The "1" worked perfectly for me. Thanks for hunting this down for me. I appreciate it dearly... You've made the next version of AmphetaDesk (shameless plug: http://www.disobey.com/amphetadesk/) even better... Morbus Iff .sig on other machine. http://www.disobey.com/ http://www.gamegrene.com/ |
|
From: Piske, H. <Har...@bo...> - 2001-05-02 23:14:36
|
| Dammit, I don't know what my problem is then.
OK, I tracked it down - I'm using Windoze 2000, you are on 98.
The workaround is:
$logbox->SendMessage (0x115, 7, 0); # scroll to bottom
$logbox->SendMessage (0x115, 2, 0); # scroll one page up
In your case, where you only ever display one single line, you can also do
$logbox->SendMessage (0x115, 1, 0); # scroll one line down
because it will only scroll once the scrollbar is visible.
Or, how about one line per \n in the message plus one for the \n added
outside the var:
$logbox->SendMessage (0x115, 1, 0) while $message =~ /\n|$/g;
... okay, this lacks readability, but it works, even under 98 :-)
This is for further experimenting and reference, taken from WINUSER.H:
/*
* Scroll Bar Commands
*/
#define SB_LINEUP 0
#define SB_LINELEFT 0
#define SB_LINEDOWN 1
#define SB_LINERIGHT 1
#define SB_PAGEUP 2
#define SB_PAGELEFT 2
#define SB_PAGEDOWN 3
#define SB_PAGERIGHT 3
#define SB_THUMBPOSITION 4
#define SB_THUMBTRACK 5
#define SB_TOP 6
#define SB_LEFT 6
#define SB_BOTTOM 7
#define SB_RIGHT 7
#define SB_ENDSCROLL 8
|
|
From: Kuo, D. <dk...@or...> - 2001-05-02 15:28:19
|
Thank you very much. -----Original Message----- From: Anthony C. George [mailto:ag...@em...] Sent: Wednesday, May 02, 2001 10:09 AM To: per...@li... Subject: Re: [perl-win32-gui-users] Perl2exe Head on over to www.perl2exe.com ! :) >tony ----- Original Message ----- From: "Kuo, David" <dk...@or...> To: <per...@li...> Sent: Wednesday, May 02, 2001 9:36 AM Subject: RE: [perl-win32-gui-users] Perl2exe > Can anyone kindly tell me where I can find the perl2.exe and the docs? > > Thanks, > > David > > -----Original Message----- > From: Anthony C. George [mailto:ag...@em...] > Sent: Wednesday, May 02, 2001 9:13 AM > To: per...@li... > Subject: Re: [perl-win32-gui-users] Perl2exe > > > yes, the docs are kind of confusing... it would be: > perl2exe -gui -icon=favicon.ico thefile.pl > > >tony > > ----- Original Message ----- > From: "Jeremy Aiyadurai" <bc...@te...> > To: <per...@li...> > Sent: Tuesday, May 01, 2001 9:16 PM > Subject: [perl-win32-gui-users] Perl2exe > > > > > > Hi all, > > > > Thanks for all your help in the past > > > > this is my first time using the Perl2exe compiler > > > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" > > > > if i want to create a gui application with an icon? > > > > The perl2exe faq is confusing and i get the following compile errors > > > > > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software > > Pro version > > Converting 'singletransfer.pl -gui -icon=favicon.ico' to > singletransfer.exe > > Compiling singletransfer.pl > > Error: File -gui not found > > Undefined subroutine &main::Cleanup called at D:\backup\perl > > stuff\p2x56\perl2ex > > e.pl line 266. > > > > > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li... http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |
|
From: NAHUM M. <mar...@re...> - 2001-05-02 15:18:05
|
I don't help ... but i have exactly the same ... ----- Original Message ----- From: "David Hiltz" <dh...@wh...> To: <per...@li...> Sent: Wednesday, May 02, 2001 5:12 PM Subject: Re: [perl-win32-gui-users] Perl2exe > > I'm using version 4.03 of perl2exe which works fine for > creating GUI EXEs, but when I use the '-icon' option it > does not include the icon. Do I need a higher version > of perl2exe? Or better yet, has anybody gotten it to > work and if so with what version? > > Thanks. > > David Hiltz > > > yes, the docs are kind of confusing... it would be: > > perl2exe -gui -icon=favicon.ico thefile.pl > > > > >tony > > > > ----- Original Message ----- > > From: "Jeremy Aiyadurai" <bc...@te...> > > To: <per...@li...> > > Sent: Tuesday, May 01, 2001 9:16 PM > > Subject: [perl-win32-gui-users] Perl2exe > > > > > > > > > > Hi all, > > > > > > Thanks for all your help in the past > > > > > > this is my first time using the Perl2exe compiler > > > > > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" > > > > > > if i want to create a gui application with an icon? > > > > > > The perl2exe faq is confusing and i get the following compile errors > > > > > > > > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software > > > Pro version > > > Converting 'singletransfer.pl -gui -icon=favicon.ico' to > > singletransfer.exe > > > Compiling singletransfer.pl > > > Error: File -gui not found > > > Undefined subroutine &main::Cleanup called at D:\backup\perl > > > stuff\p2x56\perl2ex > > > e.pl line 266. > > > > > > > > > _______________________________________________ > > > Perl-Win32-GUI-Users mailing list > > > Per...@li... > > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > > > > > > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > |
|
From: David H. <dh...@wh...> - 2001-05-02 15:13:06
|
I'm using version 4.03 of perl2exe which works fine for creating GUI EXEs, but when I use the '-icon' option it does not include the icon. Do I need a higher version of perl2exe? Or better yet, has anybody gotten it to work and if so with what version? Thanks. David Hiltz > yes, the docs are kind of confusing... it would be: > perl2exe -gui -icon=favicon.ico thefile.pl > > >tony > > ----- Original Message ----- > From: "Jeremy Aiyadurai" <bc...@te...> > To: <per...@li...> > Sent: Tuesday, May 01, 2001 9:16 PM > Subject: [perl-win32-gui-users] Perl2exe > > > > > > Hi all, > > > > Thanks for all your help in the past > > > > this is my first time using the Perl2exe compiler > > > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" > > > > if i want to create a gui application with an icon? > > > > The perl2exe faq is confusing and i get the following compile errors > > > > > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software > > Pro version > > Converting 'singletransfer.pl -gui -icon=favicon.ico' to > singletransfer.exe > > Compiling singletransfer.pl > > Error: File -gui not found > > Undefined subroutine &main::Cleanup called at D:\backup\perl > > stuff\p2x56\perl2ex > > e.pl line 266. > > > > > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > |
|
From: Anthony C. G. <ag...@em...> - 2001-05-02 14:09:22
|
Head on over to www.perl2exe.com ! :) >tony ----- Original Message ----- From: "Kuo, David" <dk...@or...> To: <per...@li...> Sent: Wednesday, May 02, 2001 9:36 AM Subject: RE: [perl-win32-gui-users] Perl2exe > Can anyone kindly tell me where I can find the perl2.exe and the docs? > > Thanks, > > David > > -----Original Message----- > From: Anthony C. George [mailto:ag...@em...] > Sent: Wednesday, May 02, 2001 9:13 AM > To: per...@li... > Subject: Re: [perl-win32-gui-users] Perl2exe > > > yes, the docs are kind of confusing... it would be: > perl2exe -gui -icon=favicon.ico thefile.pl > > >tony > > ----- Original Message ----- > From: "Jeremy Aiyadurai" <bc...@te...> > To: <per...@li...> > Sent: Tuesday, May 01, 2001 9:16 PM > Subject: [perl-win32-gui-users] Perl2exe > > > > > > Hi all, > > > > Thanks for all your help in the past > > > > this is my first time using the Perl2exe compiler > > > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" > > > > if i want to create a gui application with an icon? > > > > The perl2exe faq is confusing and i get the following compile errors > > > > > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software > > Pro version > > Converting 'singletransfer.pl -gui -icon=favicon.ico' to > singletransfer.exe > > Compiling singletransfer.pl > > Error: File -gui not found > > Undefined subroutine &main::Cleanup called at D:\backup\perl > > stuff\p2x56\perl2ex > > e.pl line 266. > > > > > > _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Per...@li... > > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > |
|
From: Morbus I. <mo...@di...> - 2001-05-02 13:41:51
|
>I know about Win32::GUI::DoEvents() method but I think it is used >in a loop only. Does anybody have any idea how to stop frezing In essence, LWP uses a blocking call to do whatever it's trying to do. Meaning that while LWP is running, Win32::GUI isn't listening to events, which is why the window appears to freeze (it's really just not listening to your mouseclicks or your window focus). Besides doing a lot of magic, you may want to look into setting the network timeouts on LWP to something really low like 2 seconds. In this event, the window will freeze for only 2 seconds (at most). As it is now, the window will freeze until LWP feels like giving control back - if your network is slow or there is network congestion, this could be as much as three minutes or more (depends on your machine and connection). Morbus Iff .sig on other machine. http://www.disobey.com/ http://www.gamegrene.com/ |
|
From: Kuo, D. <dk...@or...> - 2001-05-02 13:37:38
|
Can anyone kindly tell me where I can find the perl2.exe and the docs? Thanks, David -----Original Message----- From: Anthony C. George [mailto:ag...@em...] Sent: Wednesday, May 02, 2001 9:13 AM To: per...@li... Subject: Re: [perl-win32-gui-users] Perl2exe yes, the docs are kind of confusing... it would be: perl2exe -gui -icon=favicon.ico thefile.pl >tony ----- Original Message ----- From: "Jeremy Aiyadurai" <bc...@te...> To: <per...@li...> Sent: Tuesday, May 01, 2001 9:16 PM Subject: [perl-win32-gui-users] Perl2exe > > Hi all, > > Thanks for all your help in the past > > this is my first time using the Perl2exe compiler > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" > > if i want to create a gui application with an icon? > > The perl2exe faq is confusing and i get the following compile errors > > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software > Pro version > Converting 'singletransfer.pl -gui -icon=favicon.ico' to singletransfer.exe > Compiling singletransfer.pl > Error: File -gui not found > Undefined subroutine &main::Cleanup called at D:\backup\perl > stuff\p2x56\perl2ex > e.pl line 266. > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li... http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |
|
From: <ex...@se...> - 2001-05-02 13:36:03
|
Hi, I have an application that uses LWP modul. This application uses LWP modul to post to some web pages.Previously I used to run this program as CGI script.I needed to use a web server. For this reason also I decided to change the program a little and used Win32::GUI modul. In CGI version there was no problem with freezing a window. I could switch from any windows to any other windows at any time. Now that I use Win32::GUI at some moments( when LWP works) it seems that the window with the application has frozen.But If I wait some time it works again. But I do not like waiting. I know about Win32::GUI::DoEvents() method but I think it is used in a loop only. Does anybody have any idea how to stop frezing windows? Thank you for help Ladislav |
|
From: Anthony C. G. <ag...@em...> - 2001-05-02 13:19:33
|
Any icon editor will do(MichaelAngelo,IconForge, etc) the docs only state the icon must contain a 32x32 AND a 16x16 bitmap, but the icon can be no larger than 1K.. Anything further, feel free to email me off-list before this gets even more off-topic... >tony ----- Original Message ----- From: "Jeremy Aiyadurai" <bc...@te...> To: <per...@li...> Sent: Tuesday, May 01, 2001 9:29 PM Subject: [perl-win32-gui-users] Perl2exe -icons > hi, > > > how do i create an icon for use with perl2exe? > > I find the faq confusing and i don't have DevStudio. > > Jeremy > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > |
|
From: Anthony C. G. <ag...@em...> - 2001-05-02 13:14:10
|
yes, the docs are kind of confusing... it would be: perl2exe -gui -icon=favicon.ico thefile.pl >tony ----- Original Message ----- From: "Jeremy Aiyadurai" <bc...@te...> To: <per...@li...> Sent: Tuesday, May 01, 2001 9:16 PM Subject: [perl-win32-gui-users] Perl2exe > > Hi all, > > Thanks for all your help in the past > > this is my first time using the Perl2exe compiler > > is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" > > if i want to create a gui application with an icon? > > The perl2exe faq is confusing and i get the following compile errors > > > Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software > Pro version > Converting 'singletransfer.pl -gui -icon=favicon.ico' to singletransfer.exe > Compiling singletransfer.pl > Error: File -gui not found > Undefined subroutine &main::Cleanup called at D:\backup\perl > stuff\p2x56\perl2ex > e.pl line 266. > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > |
|
From: Tom P. <tom...@co...> - 2001-05-02 09:26:42
|
On 30 Apr 01, at 9:55, Johan Lindstrom wrote: > Does the Win32::GUI::ChooseFont() work? sorry, don't know about that. > The -name is pretty straightforward, but I don't understand what I > should do with the -size I get back. If I use it to set a font size in > a RichEdit, the type is smaller than what I selected. from memory, the richedit control's font size is double what you'd expect. presumably to allow font sizes like 9.5pt with an integer property. don't remember that they bothered to tell anyone though. anyway, 20 =3D 10pt and so on. unfortunately, i've never played with either rich edits or ChooseFont() in Win32::GUI so i can't help any further. > The -size passed to the sub doesn't seem to affect the preselected > Size in the dialog box. The -height attribute seems to determine the > Size in the dialog box, but no -height is returned. I'm trying to do a > RichEdit->SetCharFormat() which unfortunately is undocumented, so... > :/ > > BTW, the TreeView example behaves kind of weird if you do "Options | > Choose font...". > > > /J > -- > Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua > jp...@bo... > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ tompaton (at) connect (dot) net (dot) au http ... people.connect.net.au/~tompaton |
|
From: <Eva...@ao...> - 2001-05-02 03:24:33
|
>>- it doesn't seem to be on a PPM anywhere - I always get .502?<< Are you on a proxy or behind a firewall (or both)? try clearing any caches you might have, then try again. - ___________________________ "Rarely is the question asked: Is our children learning?" ~George W. Bush |
|
From: Jeremy A. <bc...@te...> - 2001-05-02 01:33:07
|
hi, how do i create an icon for use with perl2exe? I find the faq confusing and i don't have DevStudio. Jeremy |
|
From: Jeremy A. <bc...@te...> - 2001-05-02 01:20:15
|
Hi all, Thanks for all your help in the past this is my first time using the Perl2exe compiler is this the right command "perl2exe thefile.pl -gui -icon=favicon.ico" if i want to create a gui application with an icon? The perl2exe faq is confusing and i get the following compile errors Perl2Exe V4.03 Copyright (c) 1997-2000 IndigoSTAR Software Pro version Converting 'singletransfer.pl -gui -icon=favicon.ico' to singletransfer.exe Compiling singletransfer.pl Error: File -gui not found Undefined subroutine &main::Cleanup called at D:\backup\perl stuff\p2x56\perl2ex e.pl line 266. |
|
From: Morbus I. <mo...@di...> - 2001-05-01 19:27:09
|
>I just ran it with 0.0.558 - all I did was change the
>
>$logbox->SendMessage (0x115, 0, 0);
>to
>$logbox->SendMessage (0x115, 7, 0);
>
>and it did what I believe is what you want it to do - always show the last
>16 or so lines of text.
Dammit, I don't know what my problem is then.
I went to SourceForge and grabbed the 5.6 PPM for .558.
I extracted it, fixed the basehref in the PPD, and installed.
The install went fine - looking at the ~/site_perl/Win32/GUI.pm shows .558.
And for sanity's sake, my lines are:
# create the log box which is gonna hold all our info.
$logbox = $window->AddRichEdit( -name => "_RichEdit",
-font => $font,
-top => 116,
-left => 0,
-width => 505,
-height => 240,
-tabstop => 1,
-style => WS_CHILD | WS_VISIBLE |
ES_LEFT |
ES_MULTILINE | ES_AUTOVSCROLL
| WS_VSCROLL |
ES_READONLY,
-exstyle => WS_EX_CLIENTEDGE
);
And:
sub gui_note {
my ($message) = @_;
# select our last line.
$logbox->Select(999999,999999);
$logbox->ReplaceSel("$message\n", 1);
select(undef, undef, undef, 0.25);
# autoscroll the log box.
$logbox->SendMessage (0x115, 7, 0);
# listen for good measure.
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
return 1;
}
What I'm seeing now is similar to what I was seeing before - the last
printed line becomes the first visible line of the window. Sniff. Sniff.
I'm gonna have a hissy fit! I swear! <g>...
Could you do me a favor, Harald? Could you send me the test script you used
to test my last Windows.pl with your code changes (now integrated into my
copy)? At least this way, I can pin down if its related to the rest of my
code somehow...
Argh.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
|
|
From: Morbus I. <mo...@di...> - 2001-05-01 17:35:49
|
>Get 0.0.558 and see if things change. >You should find it at both activestate and dada.perl.it Ah. Ok. Two questions: - it doesn't seem to be on a PPM anywhere - I always get .502? - just do the normal perl makefile.pl junk for install? Morbus Iff .sig on other machine. http://www.disobey.com/ http://www.gamegrene.com/ |
|
From: Piske, H. <Har...@bo...> - 2001-05-01 16:14:44
|
| how can I verify
| that 3 characters have been entered and if not pad with leading Zeros?
Hi Daryll,
I'm not sure I'm getting what your problem is.
sub beautify_input
{
$foo = $Window->MyField->Text ();
$bar = sprintf ("%03d", $foo);
return $bar;
}
is one of 1001 ways to turn 1 to 3 digit numerical input into exactely 3
digits with leading zeroes. It does not do any validation (is $foo numeric,
is it more than three digits ...), but is that your issue at all? Or do you
wonder where to put the &beautify_input call, ie, when to intercept user
input?
|
|
From: Piske, H. <Har...@bo...> - 2001-05-01 16:06:33
|
| attached the latest Windows.pl file, which is where I'm trying to | accomplish this autoscroll thing. I just ran it with 0.0.558 - all I did was change the $logbox->SendMessage (0x115, 0, 0); to $logbox->SendMessage (0x115, 7, 0); and it did what I believe is what you want it to do - always show the last 16 or so lines of text. |
|
From: Piske, H. <Har...@bo...> - 2001-05-01 15:53:28
|
| I'm using 0.0.502 of Win32::GUI. AHAAAAAAAAAAAAAA!!! Get 0.0.558 and see if things change. You should find it at both activestate and dada.perl.it |
|
From: Morbus I. <mo...@di...> - 2001-05-01 13:21:09
|
Ok. This is intensely interesting. I'm sure I'm doing something wrong. I've
attached the latest Windows.pl file, which is where I'm trying to
accomplish this autoscroll thing. You'll have to activate it something like:
&gui_init,
for (1 .. 40) { &gui_note("hey!");
to get it going. It's a gui layer library to a much larger application.
Anyways, a couple of notes:
- I added a "height" to my Richie, and thinking that the Resize
wasn't needed, commented it out. To my surprise, that stopped
the vscrollbar from appearing. Even with all the other junk
you see in there, the vscroll doesn't appear. Only when I
uncomment the Resize (as in this file) does the vscroll
appear.
- As mentioned in a previous note, Johan's thingy doesn't
work the way I want it... As it is now, the Windows.pl
does the same thing as Johan's code. I want it to auto
scroll to the *last printed line*, whilst still showing
all the previous lines above it. The *last printed line*
should be the *last visible line in the window*.
Johan's way doesn't autoscroll.
>$Main->Rich->SendMessage (0x115, 7, 0)
This caused the window to put the *last printed line* in the first *visible
line of the window*. That's not what I want.
>$Main->Rich->SendMessage (0x115, 0, 0);
This, although sounding promising, didn't work either.
Heelpppp! <g>...
|
|
From: Morbus I. <mo...@di...> - 2001-05-01 12:59:49
|
>This will scroll the RichEdit as you "print" more text into it. Is that not No, it doesn't do what I want to do - in this instance, I'm seeing: - the window being created. - the lines being written. - the vscrollbar auto created when needed. - the vscrollbar shrinking as more text is added. HOWEVER, the window does not autoscroll to show last line of text - I see a complete "line 16", only a bit of "line 17" and that's it. I want to see the window scroll up as more lines are printed. I'm using 0.0.502 of Win32::GUI. |
|
From: Morbus I. <mo...@di...> - 2001-05-01 12:41:47
|
>is the -height of your richie just missing from the code snippet you posted,
>or do you really manage to create the control with zero height? 'Cause, if I
>do, my field actually has zero height. Nada. From what you say, it seems to
>me that your field is just one line high, so you actually would have to
>scroll to the second-to-last line. Try
Actually, giggle, giggle, according to the code, this guy uses a Resize
command to make the richie the right height and width. I'll assume from the
above that that's the wrong way to do things... The guy who wrote this for
me came from a VB background - maybe that's some hangup in those days (I'm
the guy who knows nothing about GUI's, but is learning).
> $Main->Rich->SendMessage (0x115, 7, 0); # scroll to bottom
> $Main->Rich->SendMessage (0x115, 0, 0); # scroll one line up
I'll try these out later today and get back to you...
--
ICQ: 2927491 / AOL: akaMorbus
Yahoo: morbus_iff / Jabber: mo...@ja...
mo...@di... / http://www.disobey.com/
|
|
From: Robert W. <ro...@Ba...> - 2001-05-01 12:04:05
|
> Has anyone been able to get Setupsup to work on Perl 5.6. try \Perl\html\site\lib\Win32\GuiTest.html Rob http://bangkokwizard.com/ The human mind ordinarily operates at only ten percent of its capacity -- the rest is overhead for the operating system. |
|
From: <dar...@la...> - 2001-05-01 09:41:20
|
I am capturing input in a text field limited to 3 Characters, how can I verify that 3 characters have been entered and if not pad with leading Zeros? i.e expecting input of 001, users enters just 1, I want to check and then return 001 Thanks in advance. Daryll The information in this e-mail and any attachments is confidential and may be legally privileged. It is intended solely for the addressee or addressees. If you are not an intended recipient, please delete the message and any attachments and notify the sender of misdelivery: any use or disclosure of the contents of either is unauthorised and may be unlawful. All liability for viruses is excluded to the fullest extent permitted by law. Any views expressed in this message are those of the individual sender, except where the sender states them, with requisite authority, to be those of a specific LAZARD company or partnership. |
48 messages has been excluded from this view by a project administrator.
