RE: [perl-win32-gui] Need Help from Winamp Users
Title: RE: [perl-win32-gui] Need Help from Winamp Users Just ignore the flashing RED GIFs (sexani5.gif) if you are offended by this type of stuff... Thanks for the link to their API... Very useful stuff... :) Steven -Original Message- From: Todd McLaughlin [mailto:[EMAIL PROTECTED]] Sent: Thursday, November 09, 2000 3:08 PM To: [EMAIL PROTECTED] Subject: Re: [perl-win32-gui] Need Help from Winamp Users http://www.winamp.com/nsdn/winamp2x/dev/sdk/api.jhtml (snip)
RE: [perl-win32-gui] hashes/anonymous arrays
Title: RE: [perl-win32-gui] hashes/anonymous arrays Suggestion... check for special character combinations like wa or ya to compress the 2 letters together when using block font. Nice script.. Steven -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 25, 2000 2:50 PM To: [EMAIL PROTECTED] Subject: Re: [perl-win32-gui] hashes/anonymous arrays oh...heh, that's kind of embarrassing...well, thanks a bunch! -EvanK
RE: [perl-win32-gui] How do I update the contents of a textfield?
Title: RE: [perl-win32-gui] How do I update the contents of a textfield?
$sample-Text(You clicked process.);
Case-Sensitive...
Steven
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, February 11, 2000 1:08 PM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui] How do I update the contents of a textfield?
Now that I have a working textfield (Thanks Aldo.), I need to update the contents based with the status of a loop that is running. However, every time I try to make the update, I get a popup error window with the follwing message: Can't locate auto/WIN32/GUI/Textfield/text.al in @INC... I get the same results when I try to use the change method. What should I be doing?
Code Snippet
sub Process_Button_Click {
$sample-text(You clicked process.);}
End of Snippet
Thanks,
Greg Howard
[perl-win32-gui] TabStrips, OFN and Out of memory! - Callback Called Exit.
Title: TabStrips, OFN and Out of memory! - Callback Called Exit.
I'm not sure what is going on, but...
When I click on a subroutine that Opens the Determine_File_Name routine (below), everything looks good for the first 2 of 3 tabstrips...
The third tabstrip has ~10 checkboxes (3 of which are checked by default), whereas the first 2 Tabstrips only have 1 checkbox (unchecked).
Upon selecting the 3rd Tabstrip item and running the Determine_File_Name sub, I get:
You cancelled.
Out of Memory!
Callback Called Exit.
(And the script dies and dumps me at the command prompt.)
If anyone has ideas, I'd appreciate the feedback.
AS522 GUI 434 NT4EE SP5
Here's the code.
sub Determine_File_Name {
$ret = GUI::GetOpenFileName(
-title = $CFG{'Constants'}{'GuiName'} Export File,
-file = \0 . x 256,
-filter = [
Text documents (*.txt) = *.txt,
Comma Seperated Values (*.csv) = *.csv,
All files = *.*,
],
);
if($ret) {
print Returned: '$ret'\n;
} else {
if(GUI::CommDlgExtendedError()) {
print ERROR. CommDlgExtendedError is: , GUI::CommDlgExtendedError(), \n;
} else {
print You cancelled.\n;
}
}
}
#Here's the creation of the Window, Menu and Checkboxes.
#Excerpt from CFG Hash
%CFG = ( 'ExportWindowCheckboxes'
= {'Computers' = {'Windows for Workgroups Workstations' = '',
'Windows 95/98 Workstations' = '',
'Windows NT Workstations' = '',
'Windows NT Servers' = '1',
'Windows NT SQL Servers' = '',
'Windows NT Primary Domain Controller' = '1',
'Windows NT Backup Domain Controllers' = '1',
'Novell/NDS Servers' = '',
'Unix/Samba Servers' = '',
},
'Groups' = {'IncludeGroups' = '',
},
'Users' = {'IncludeUsers' = '',
},
);
$ExportMenu = Win32::GUI::MakeMenu(
File = File,
Create File = Export_File_Create_From_Selected,
Set Default Directory = Export_File_Set_Default_Dir,
- = 0,
Close this window = Export_File_Exit,
);
$ExportWindow = new Win32::GUI::DialogBox(
-name = Export_Window,
-text = 'Export List to File',
-height = 300,
-width = 450,
-left = 15,
-top = 15,
-menu = $ExportMenu,
);
$ExportWindow-AddTabStrip(
-name = Export_List_Tab,
-left = 0,
-top = 12,
-width = $ExportWindow-ScaleWidth,
-height = $ExportWindow-ScaleHeight,
-imagelist = $IL,
);
$ExportWindow-Export_List_Tab-InsertItem(
-text = Users,
-image = $IL_USER,
);
$ExportWindow-Export_List_Tab-InsertItem(
-text = Groups,
-image = $IL_GROUP,
);
$ExportWindow-Export_List_Tab-InsertItem(
-text = Computers,
-image = $IL_WORKSTAT,
); foreach $category (keys %{$CFG{'ExportWindowCheckboxes'}}) {
$top_value=25;
foreach $cfgentry (sort {lc($a) cmp lc($b)} keys %{$CFG{'ExportWindowCheckboxes'}{$category}} ) {
$top_value=$top_value+20;
$ExportWindow-AddCheckbox(
-text = $cfgentry,
-name = $cfgentry,
-width = 250,
-left = 25,
-top = $top_value,
);
$ExportWindow-{$cfgentry}-Checked($CFG{'ExportWindowCheckboxes'}{$category}{$cfgentry});
}
RE: [perl-win32-gui] ListView
Title: RE: [perl-win32-gui] ListView
%itemdata = $TV-GetItem($TV-SelectedItem);
$field=$itemdata{-text};
print Selected Item: $field\n;
Pull Aldo's sample files from Jenda's site and take a look at treeview.pl or pmx.pl
There's a lot of working samples to look at...
http://jenda.krynicky.cz/perl/Win32-GUI-samples.zip
Steven
-Original Message-
From: Thomas, Timothy B [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 14, 1999 9:42 AM
To: [EMAIL PROTECTED]
Subject: [perl-win32-gui] ListView
Does anyone know how to pull the text from a selected item in a ListView
object? I'm sure it's simple, I just can't seem to find the right syntax.
-
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS · Denver Data Center
303-430-2281 · Pager 303-266-7971
mailto:[EMAIL PROTECTED]
Pager: mailto:[EMAIL PROTECTED]
-
[perl-win32-gui] Build 425 HitTest
Title: Build 425 HitTest
First off, I am very thankful for this module, Aldo's time spent on this module and of course your time (listserv members)..
After having said that, I am creating something like PMX.PL (found with the samples from http://jenda.krynicky.cz/perl/Win32-GUI-samples.zip ) which seems to be failing since moving to 425..
lines 510 - 535 of pmx.pl are below (with minor changes and deletions for brevity)..
In certain situations, this code seems to work, I.E. the HitTest returns information, but focus is shifted to another object and data for that object is returned instead of the object the user right-clicked on..
Using PMX and right-clicking on the Time Directory (on my install of Perl) returns Term as the right-clicked item...
Any ideas?? A bug perhaps??
Anyway, please tell me what I am doing wrong, if I am.. I'll stick to 335 until I hear from someone...
Thanks in advance,
Steven
#
sub Tree_RightClick {
#
my($X, $Y) = Win32::GUI::GetCursorPos();
my($TVI, $flags) = $TV-HitTest($X-$TV-Left, $Y-$TV-Top);
print TV.HitTest.TVI = $TVI\n;
print TV.HitTest.flags = $flags\n;
if($TVI) {
print Selected Item: , $itemdata{-text}, \n;
}
return 1;
}
