I tested your code and could see the menu. WHat versions of perl and
Win32-GUI are you using?
-Original Message-
From: Koul Christian [mailto:[EMAIL PROTECTED]
Sent: Friday, January 05, 2001 6:45 AM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui-users] menu
Hi,
I am new in win32::GU
I have a script that reads a file (puts the data into @update) and prints it
to a RichEdit window. This works well on NT but I am having problems with it
on Win98.
As it is being written to the Rich Edit field, the scroll bar starts out
large and scales smaller as more is added (as expected). Howe
nable that
radio button. Otherwise, it is assumed that the user wants to print
the entire portion.
B Smith
On 26 Dec 00, at 17:19, Peter Eisengrein wrote:
> I saw a previous posting about using system("rundll32.exe
> $dll,PrintHTML $tmpfile"); to print a file and it wo
So, I guess my question is, how does the app, and therefore the print dialog
box, know what is selected, if anything? Do I need to code it? If so, how do
I (my code) know what was selected?
-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
Sent: Friday, January 05, 2001
a more windows-ish way might be to open a new window that instructs the user
to input "something" with a textbox for their input and an OK button to
accept, read in their input, and close the input window.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, J
I've noticed that CTRL-c (KeyPress 3), CTRL-v (KeyPress 22), CTRL-x
(KeyPress 24), and CTRL-z (KeyPress 26) do in fact copy/paste/cut/undo
to/from the clipboard without the Win32::Clipboard module, at least it does
in one of my scripts (perl v5.6.0 and Win32::GUI v0.0.490).
But I have had problem
Anyone know what the maximum allowed value is for the ->SetRange($min,$max)
on Win32::GUI::AddProgressBar? I am trying to have it be set dynamically
based upon a file size and it would appear that if a file is too big the
$max gets set to some default.
for example:
my $ProgressWindow = new Win
Anyone know what the maximum allowed value is for the ->SetRange($min,$max)
on Win32::GUI::AddProgressBar? I am trying to have it be set dynamically
based upon a file size and it would appear that if a file is too big the
$max gets set to some default.
for example:
my $ProgressWindow = new Win
I may be wrong, but I've found that you cannot call a _Click() directly (you
actually have to Click on something). I'd try this with your subs:
sub Open_Click {
Open();
}
sub Open {
my $file=GUI::GetOpenFileName(-title=>"File To Open",
-filter=>["*.*"],);
}
sub OpenHK_Click {
Open;
ebruary 05, 2001 8:44 AM
To: Peter Eisengrein
Subject: Re: [perl-win32-gui-users] Progress Bar question
Peter Eisengrein wrote:
> Anyone know what the maximum allowed value is for the
> ->SetRange($min,$max) on Win32::GUI::AddProgressBar? I am trying
> to have it be set dynamically base
eforge.net
Subject: Re: [perl-win32-gui-users] AcceleratorTable
The subs that you supplied do not respond to the keys either. Any more
ideas?
erick
never stop questioning
www.jeb.ca <http://www.jeb.ca>
- Original Message -----
From: Peter Eisengrein <mailto:[EMAIL PROTECTED]>
I
Hi all,
This is making me nuts. I have a combobox dropdown that shows on my window
but it does not show the data when I click on it. I copied this same exact
code into the comboxbox.pl sample and it works. Aaaarr!
Any help would be greatly appreciated. I'll just bang my head on the wa
another thing... the data is actually in the list. When the blank combobox
drops down I can click in it and arrow up/down and then I'll see the data --
debug code confirms a selection is being made. It just doesn't want to show
it
##
Hi all,
This is making m
unfortunately that didn't do it. Anyone else seen this type of behaviour
before?
-Original Message-
From: Erick J. Bourgeois [mailto:[EMAIL PROTECTED]
Sent: Saturday, March 03, 2001 4:48 AM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] combobox making m
my $ProgressWindow = new Win32::GUI::DialogBox(
-name => "ProgressWindow",
-left => 300,
-top=> 300,
-width => 400,
-height => 100,
-title => "Loading file...",
);
$ProgressWindow->AddProgressBar(
-name => "PB",
-left =>
Not sure if the -style flag works on textfields but it does on RichEdits and
that might be what's missing. Try adding this to your Textfield hash:
-style => WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL
| ES_LEFT | ES_MULTILINE,
-Pete
-Original Message--
I hate to be a pest on this subject, but I still haven't come up with the
cause of the problem nor the solution. Again, I have comboboxes that pull
down when I click on the handle but it does not display the text. However,
if I arrow-down while it is open I can then see and select (by hitting
retur
Found it!!! And I'm a bit more humble for it... I was missing
Win32::GUI::Dialog(); in my code. Duh.
-Original Message-
From: Peter Eisengrein [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 07, 2001 2:55 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE:
Does Win32::GUI give memory back to the OS (WinNT)? I know this has been an
on and off topic for Perl in general. And the answer is usually, no, Perl
does not give memory back.
Try this experiment: open any GUI script (seems to be true for any, at least
on WinNT 4.0). While it is open, open Window
Do you want ->Pos() or ->Select()? I suspect you probably want the latter.
-Original Message-
From: Moore, Larry [mailto:[EMAIL PROTECTED]
Sent: Thursday, March 08, 2001 1:49 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: [perl-win32-gui-users] use of Pos method
I have two
Is there any way to open a new window without creating a new item in the
OS's task bar? I'd like to open windows that are a sub of a main window but
show just one task bar item for the main window.
Thanks list.
Pete
The samples that come with the module are generally very good place to
learn; I've found the documentation to be sketchy at times, though.
To answer your specific question, ->SetFocus() is the command you'll use.
For example:
my $Window = new Win32::GUI::Window(
-name => "Window",
I'd simply write the path\file to a data file somewhere and read it before
you contruct your menu. You would write to this file every time someone
opens or creates a file. You would probably also want to create a subroutine
that limits how many files are kept, as such:
### untested!
### At the be
Took a peek at podview.pl. Instead of a datafile it uses the registry. It
also uses a hash instead of an array, so duplicates don't exist (if you open
the same file multiple times).
Good call, this is a better way to handle it, assuming the person using it
is careful with the registry.
-Or
Having trouble with a Win32::GUI::Button where it is not seeing the _Click.
However if I do $ReportButton->Show() or Hide() it works ok (because of the
$var reference) and visually you can see the button is clicked (it
depresses). I am guessing the problem is because it is nested on a Tab, but
I'm
Cool, I'll try adding the control to the window. Doesn't really matter to
the script, just visually. Does the button get hidden behind the tab strip
though?
-Original Message-
From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 18, 2001 9:21 AM
To: perl-win32-gui-users@l
tried it and works like a charm! and to answer my own question, no it
doesn't get hidden behind the tabstrip.
-Original Message-
From: Peter Eisengrein
Sent: Wednesday, April 18, 2001 1:59 PM
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-us
Do you have the Win::GUI::Dialog(); statement in there?
-Original Message-
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] keeping a window open
Ok, it may be that I have h
ure out how to keep the
#toolbar floating without exiting on button_Click.
my $ExitButton=$Toolbar->AddButton(
-name=>'Exit',
-pos=>[150,10],
-text=>'Exit Toolbar',
);
sub Exit_Click {
exit;
}
$Toolbar->Show();
Win32::GUI::Dial
Anyone had a problem with a Window that "falls asleep" if it has been
minimized for a while. I have this problem and it takes quite a while (> 10
minutes sometimes) for the system to return it when it is restored. This is
especially prevalent in Win98 but have also seen it on NT4.0.
Is there a fix
process
> burns the CPU power and RAM. If on 9x, the task scheduler
> worx differently
> there and you can have one malfunctioning app freezing all
> others, given a
> few conditions.
>
> One last idea: when did you last check for viruses?
>
> | -Original Messa
I'm pretty sure it only works when you put them on a DialogBox not a Window.
Or at least that's the only way I've been able to make it work.
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, May 16, 2001 6:16 AM
> To: perl-win32-gui-users@lists.sou
Is there a MouseOver function for Buttons? I didn't see anything in the
docs. What I'd like to do is display a help message in the StatusBar when
the cursor is over a button.
I asked the same thing not long ago. The general concensus was that Tk might
be a better choice because it is cross-platform. Then I ran into a ton of
problems installing Tk, so I just went with Win32::GUI becuase I *could* get
that to install and I haven't looked back... A bunch of samples come wi
Was the -dialogui option implemented on Window? I am trying to use tabstops
and I thought I remembered seeing mention of this on the list but [1] can't
find it and [2] it doesn't work on my NT4 machine. Works fine as a
DialogBox, though.
Thanks,
Pete
What is the event generated when you click on the [?] button (next to the
[X] terminate button) on a DialogBox?
Is there a known memory problem with the GUI module and/or the Timer object?
I have a script that runs through a _Timer sub once per second and
increments a var (like $count++) and writes it to a Label. Just sitting
there quietly doing nothing more than that adds 4k to the process' memory
every sec
> yes, there was a memory leak but it should have been fixed is
> one of the
> last releases. which version of Win32::GUI are you using right now?
0.0.502 -- I actually just pulled it off your site maybe two weeks ago. Is
there an even newer version? Thanks for your help -- I love this module!
Try the -fill and -frame options. According to docs your choices seem
limited to black/gray/white/none but trying playing with it. Maybe you can
do the exact color you want.
> -Original Message-
> From: Webmaster CZ [mailto:[EMAIL PROTECTED]
> Sent: Friday, June 01, 2001 2:44 PM
> To: perl
tensions that aims to provide
comprehensive access to the Windows API.
libwww-perl [5.45 ] Library for WWW access in Perl
PPM>
> -Original Message-
> From: Peter Eisengrein
> Sent: Monday, June 04, 2001 9:17 AM
> To: 'perl-win32-gui-users@list
I see the 0.0.558 tar.gz version on your site but your /ppm still says 502,
which is where I got it from. Is that accurate?
> -Original Message-
> From: Aldo Calpini [mailto:[EMAIL PROTECTED]
> Sent: Monday, June 04, 2001 4:56 AM
> To: Peter Eisengrein
> Subject: Re: [perl-
ository,
> but, one source is as good as another right? Also, you could download
> the zip and install via ppm from the zip file contents localy. I used
> to have to do this at my old job since I could never get ppm to work
> through the firewall there
>
>
>
> >
Joe, thanks for all your help but, man I'm getting nowhere fast! I
downloaded the Win-GUI-0.0.558.tar.gz, extracted it and tried doing the
install as you described and again no deal (no ppd in the archive). Then I
tried doing another install from AS and I'm still on 0.0.502.
C:\ActivePerl\lib\gui
The zip thing worked!!! That's terrific except that scripts that used to
work no longer do. Bummer. I get this kind of an error:
"Your vendor has not defined Win32::GUI macro Category, used at..." (see
below snippet)
What's this about a macro? I get what it means but can someone point me
towards
I've used SetForegroundWindow() from a NotifyIcon and that works on NT4.
sub ni_Click
{
if ($Window->IsVisible)
{
$Window->Hide();
}
else
{
$Window->Show();
$Window->SetForegroundWindow();
}
re
from the samples, here's a select all. I suppose you could modify it to
select just some...
sub AddAll_Click {
for $i (0..$List1->Count-1) {
$List2->InsertItem($List1->GetString($i));
}
$List2->Select($List2->Count-1);
$Edit2->Text($List2->GetString($List2->SelectedItem));
How can you disable (grey-out) an item in a menu? I don't see anything in
the docs and it has ignored everything I have tried, including the obvious:
$Window->Menu->{MenuItem}->Disable();
indow->Menu -> {'SortNot'} -> Enabled ( 0 );
>
>
> Peter Eisengrein wrote:
>
> > How can you disable (grey-out) an item in a menu? I don't
> see anything in
> > the docs and it has ignored everything I have
It sounds like you want a timer.
### untested
@stuff = (0 .. 1000);
$main->AddTimer("Timer", 1000); ### once every second.
sub Timer_Timer
{
$x++;
$sb->Text("Incrementing value: $stuff[$x]");
}
> -Original Message-
> From: Louis Bohm [mailto:[EMAIL PROTECTED]
> Sent
I know you can check to see if a window is shown or hidden via
$Window->IsVisible but can't seem to find something similar to check if it
is minimized or maximized.
Thanks,
Pete
I've never had any success changing it once it is created, but to set the
font at the beginning you can use:
my $Font = new Win32::GUI::Font(
-name => "Courier New",
-height => 16,
-bold => 0,
);
### or the font/style of your choice...
### and then in your AddRichEdit us
bel)
$Window->Button->ChangeCursor($C);
$Window->Label->ChangeCursor($C);
> -Original Message-----
> From: Peter Eisengrein
> Sent: Thursday, July 05, 2001 9:07 AM
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: RE: [perl-win32-gui-users]
Win32::GUI::Cursor should do it (though I've never used it)
> -Original Message-
> From: Felix Gaehler [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, July 04, 2001 4:18 PM
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Change cursor to "hourglass" and back
Is there a Kill or other such event if a GUI app crashes or killed? Or
should that just be handled with %SIG it would be awfully convenient if you
could do something like:
sub Exit
{
return -1;
}
sub Window_Terminate
{
print "App closed gracefully.\n";
&Exit();
}
sub Win
You need to give your widgets a -name and the label needs a position. Also,
if you do not include Win32::GUI::Dialog() your window will not remain open.
Try this one.
use Win32::GUI;
$main = Win32::GUI::Window->new(-name => "Window", -width => 100,
-height => 100);
$main->AddLabel
How can I temporarily halt the main Dialog() from accepting other events? I
have an event that opens a dialog box (an alert) that I bring focus to,
disable the other windows, etc. I want to wait for user input (click a
button) before moving on. However, the script picks up other things going on
and
Not sure what the '-escapement' tag in the font was supposed to do but when
I removed it the label became visible.
> -Original Message-
> From: Renat Araslanow [mailto:[EMAIL PROTECTED]
> Sent: 04 August 2001 15:53
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-
duh. you said that. I must need more coffee...
> -Original Message-
> From: Peter Eisengrein
> Sent: 05 August 2001 11:58
> To: 'perl-win32-gui-users@lists.sourceforge.net'
> Subject: RE: [perl-win32-gui-users] bug_or_feature [1]
>
>
> Not sure what
> >- Is it somehow possible to catch keyboard events? I did not
> find anything
> >in the Win32::GUI docu except for some _KeyDown event which
> was associated
> >to a single object.
>
I know you can use _KeyPress to catch keyboard events. I know it works in a
RichEdit, don't know about elsewhe
I've never seen this before. A little code showing how you call the other
window might be helpful.
-Original Message-
From: Gross, Stephan [mailto:[EMAIL PROTECTED]
Sent: 09 August 2001 19:18
To: 'Perl GUI'
Subject: [perl-win32-gui-users] Why do Windows spontaneously minimize?
I'm writ
I recall seeing this question before but don't seeing an
answer and couldn't find it in the archives.
How can you change the -icon after it already exists in the
system tray?
TIA,
Pete
That did it!!! Thanks!
>
> > How can you change the -icon after it already exists in the
> > system tray?
>
> Don't know how supported it is but this is what I had to do is call
> Win32::GUI::NotifyIcon::Modify directly (it is located in the
> GUI.xs file
> for those with the source). Example
Each time an item is selected, it will run
sub ListView_ItemClick
What you probably want is to keep an array of the items (filenames) that are
selected and then if/when a button (which isn't in your code) is _Click 'd
then do a foreach on your list and move each file then undef the list.
> -O
Between sub Dropdown_Change and sub GetFiles there's a statement of
'GetFiles($s);' That's what's doing it. Was that a typ-o?
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: 04 September 2001 12:09
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject:
>
> WHY would I want to use an ImageList? What does it do?
>
Can't help you on this one.
> What is an 'Accelerator'?
>
It's supposed to be a keyboard shortcut. I'd love to see a working example
of it, and I've seen several people on the list ask, but I don't recall ever
seeing one.
> What
the samples didn't come with the module download? I can zip 'em and send to
you off line, if you'd like.
> -Original Message-
> From: Marcus [mailto:[EMAIL PROTECTED]
> Sent: 13 September 2001 17:14
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] 1st tuto
Not sure exactly what you're asking but the easiest way I've found to open
html files with the users' preferred browser is to let the OS decide and
simply execute that file like so:
`\\path\\filename.htm`;
This works on NT4, but I doubt it would work on Win9x/ME. If that's the OS
you're working
I don't know the number, but I can tell you from experience that NT4 can
hold a lot more than Win98. 98 loses it FIFO.
-Original Message-
From: [EMAIL PROTECTED]
To: perl-win32-gui-users@lists.sourceforge.net
Sent: 15/10/01 17:05
Subject: [perl-win32-gui-users] Richedit Questions...
Doe
Why then, I wonder, does it not show the selection if you do a
$Window->ListBox->SetFocus() or even
$Window->ListBox->SelectedItem->SetFocus() ? I tried both with a sub of
Window_GotFocus and Window_Restore.
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent:
Someone just recently sent a link to
http://www.mvps.org/vbnet/index.html?http://www.mvps.org/vbnet/api/_consts/c
onstso.htm which defines all of these Windoze constants.
I wish I could remember who posted it so I could give them credit, but, like
everything else, I forget...
> -Original
On each widget that you want to be able to tab to/from you need to add
-tabstop => 1,
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: 08 November 2001 12:07
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Tab through but
sting.
> We have a silent agreement here on this list not to blame or
> flame anyone
> for re-posting questions that have been answered, since we
> know searching
> the archives does not work ... right, guys? Erm, GUIs?
>
> > -Original Message-
> > From:
You might also try adding ES_AUTOVSCROLL to the RichEdit's -style This can
be problematic, though. As I recall, it refreshes the RichEdit's data every
time there's new data added. Of course, my memory ain't what it used to be,
so I may be way off... :)
> -Original Message-
> From: Morbus
Two Textfields from the sample textfield.pl
### Single line, colored
$Textfield = $Window->AddTextfield(
-name => "Textfield",
-left => 10,
-top => 10,
-text => "sample text",
-width=> 180,
-height => 22,
-foreground => [0,255,0],
-background
mber 2001 12:39
> To: Peter Eisengrein
> Cc: perl-win32-gui-users@lists.sourceforge.net
> Subject: RE: [perl-win32-gui-users] Text boxes -- Interactive
>
>
> Sure ... the sample textield.pl doesnt behave the same way. This is
> weird.I put the txtfield in from the exam
Try adding $Win1->DoEvents(); to the &mouseover sub. This might help catch
any other events while you are waiting for the mouseover to finish.
> -Original Message-
> From: Rogers, John [mailto:[EMAIL PROTECTED]
> Sent: 14 November 2001 08:41
> To: perl-win32-gui-users@lists.sourceforge.net
You can create a Label the same size as the window (with or without text)
and react to double-click and right-click events on it. That's the only way
I've been able to do it.
> -Original Message-
> From: Marcus [mailto:[EMAIL PROTECTED]
> Sent: 15 November 2001 09:34
> To: perl-win32-gui-u
Try using a _Timer instead of the while loop.
> -Original Message-
> From: Marcus [mailto:[EMAIL PROTECTED]
> Sent: 16 November 2001 12:09
> To: perl-win32-gui-users@lists.sourceforge.net
> Subject: [perl-win32-gui-users] Cancel action requests
>
>
> I hope somebody can help on this one
I've not heard of GUI Builder. Does it do what it sounds like, has a GUI
interface to help design a Win32::GUI window by (hopefully) allowing the
user to dragndrop widgets onto a window and it converts it to the
appropriate code?
-Original Message-
From: Piske, Harald [mailto:[EMAIL PROT
that usually happens when you ask it to do something with a widget that is
either out of scope or not yet defined. need more detail to be more
specific, tho'
-Pete
> -Original Message-
> From: Marcus [mailto:[EMAIL PROTECTED]
> Sent: 12 December 2001 19:09
> To: perl-win32-gui-users@list
couple questions:
1- has anyone used this sucessfully? if so, do you have any code to share?
2- reading the POD for this it says you need to add some lines to the GUI.xs
and nmake it. I do not have nmake on my NT4 system. Can I ftp gui.xs to a
unix box, nmake it there, and ftp it back? (would that
Here is a repost of how to do it, written by Jason Bingham.
From: Jason Bingham [EMAIL PROTECTED]
Sent: 27 August 2001 03:26
To: 'perl-win32-gui-users@lists.sourceforge.net'
Subject: RE: [perl-win32-gui-users] RE: NotifyIcon
It does exist as method Win32::GUI::AcceleratorTable . I've never been able
to make it work, but perhaps someone else can lend a hand.
>From the .pm...
# Example:
# $A = new Win32::GUI::AcceleratorTable(
# "Ctrl-X" => "Close",
# "Shift-N" => "New",
# "Ctrl-A
The docs should come with the download of the module. If not, I can send you
a zipped copy off-line, although mine are probably not the latest...
> -Original Message-
> From: NAHUM Marc [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, January 16, 2002 04:41
> To: perl-win32-gui-users@lists.sou
$Win->CB->Enable(0); # grayed out
$Win->CB->Enable(1); # normal
> -Original Message-
> From: Christian Kappler [mailto:[EMAIL PROTECTED]
> Sent: Monday, February 11, 2002 17:09
> To: Perl-Win32-GUI Mailinglist
> Subject: [perl-win32-gui-users] Graying out checkbox
>
>
> Hello listers,
$Textfield = $Window->AddTextfield(
-name => "Textfield",
-left => 10,
-top => 10,
-text => "sample text",
-width=> 180,
-height => 22,
);
$Textfield->MaxLength(3);
> -Original Message-
> From: NAHUM Marc [mailto:[EMAIL PROTECTED]
> Sent: W
You are missing some important stuff, like, where does it go? However, the
error is probably happening because the label doesn't have a name.
The documentation is not at all complete but the basics are there:
http://www.perl.it/dada/gui_docs/gui.html
-Pete
> -Original Message-
> From:
I too get all three windows without the button (this is probably because you
didn't specify where it should go) on NT4 Workstation.
> -Original Message-
> From: H C [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, March 05, 2002 14:09
> To: [EMAIL PROTECTED];
> perl-win32-gui-users@lists.source
You can also download the zip file of the latest and do the following:
1- extract contents to a directory
2- find the file "Win32-GUI.ppd"
3- open a DOS window and cd to the same directory as the ppd file
4- type, "ppm Win32-GUI.ppd"
That should install it. You should be able to get the latest zi
Yes, it is or at least appears to be. I have ME at home (hate it!) so I have
not done a lot with it so I can't speak to how completely it behaves on ME,
but most of the basics seem to work ok.
-Pete
> -Original Message-
> From: Michelangelo Corradini [mailto:[EMAIL PROTECTED]
> Sent: Sat
use Win32::GUI;
$Menu = Win32::GUI::MakeMenu(
"&Help" => "&Help",
"> &Winnt Help" => "helpme",
);
$Win = new Win32::GUI::Window(
-left => 100,
-top=> 100,
-width => 300,
-height => 300,
-name => "Window",
-text => "Win32::GUI Help Menu",
-menu
In your _Resize sub do not resize the status bar, just move it (so that it's
always at the bottom). If you do nothing then it will always hold its
original position which is probably not what you want.
$Window->Status->Move(0, $Window->ScaleHeight-$Window->Status->Height);
> -Original Me
There is an 'accelerator' method which does what I think you want but I've
never been able to make it work. You can fake some of it if the keystroke
has an associated number value.
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Thursday, May 16, 2002 20:
> Anyway, the Message shortcuts are stored (sorted) in a
> Message menu. When
> they click on the message shortcut the text of the message is
> placed in a
> message box for them. That part all works. The user is able
> to add their
> own message shortcuts to the menu but they don't appea
Try this... is this what you mean?
-Pete
##
#!perl -w
use Win32::GUI;
use strict;
my $counter=1;
my $Menu = new Win32::GUI::Menu(
"&File" => "File",
" > &Counter $counter..." => "Counter",
);
my $MW = new Win32::GUI::Window(
-title => 'menu.pl',
-left
First you set up your $menu. Then it is done something like this... I have a
script that does this when a user Click's on a NotifyIcon, so within the sub
ni_Click there is:
my ( $nipx, $nipy ) = Win32::GUI::GetCursorPos ();
$Window->TrackPopupMenu( $menu -> {'PopUpMenu'}, $nipx, $nipy );
HTH,
Pe
The subs are called by events, such as Click, RightClick, etc. Any handle
such as Hello (which in this case is defined as the name of the button) can
have one or more of these actions assigned to them. The convention for these
subs is Name_Event where _Event is appended to the widget's name, i.e.
H
Assuming $menu 'PopUpMenu' already exists, then do the following:
my ( $x, $y ) = Win32::GUI::GetCursorPos ();
$Window->TrackPopupMenu( $menu -> {'PopUpMenu'}, $x, $y );
-Original Message-
From: moo cow [mailto:[EMAIL PROTECTED]
Sent: Monday, August 26, 2002 22:28
To: perl-win32-gui-us
Besides resizing the window, you need to move the other objects, using
something like this:
$Window->Logo->Move($Window->ScaleWidth-325,0);
This is actual piece of code. It moves a bitmap 'Logo' 325 pixels to the
left of the right side but does not move it up or down when the window is
resized.
Not sure why it's not working, without seeing some code. Checkout the
'listbox.pl' in the samples that should've come with the module. That works
just fine. Let me know offline if you don't have it and I'll send it to you.
-Original Message-
From: Burley, David [mailto:[EMAIL PROTECTED]
Se
1 - 100 of 169 matches
Mail list logo
