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: Lisa P. <dus...@gm...> - 2019-08-27 12:04:51
|
It's strange, but simple local $SIG{__DIE__} = sub {...} solves the
problem.
Best regards,
LP
пн, 19 авг. 2019 г. в 03:53, Lisa Poor <dus...@gm...>:
> Hello,
> is it possible to suppress the dialog box (OK/CANCEL) for such errors:
> ...
> #my $tmp = 0/0;
> #warn "Warning\n";
> die "Death\n";
> ...
> since I handle these errors in my code.
> Best regards,
> LP
>
>
|
|
From: Lisa P. <dus...@gm...> - 2019-08-19 00:51:08
|
Hello, is it possible to suppress the dialog box (OK/CANCEL) for such errors: ... #my $tmp = 0/0; #warn "Warning\n"; die "Death\n"; ... since I handle these errors in my code. Best regards, LP |
|
From: La M. N. <mai...@gm...> - 2017-11-24 09:43:44
|
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p><font size="-1"><font face="Calibri">Hello members of the list,</font></font></p>
<p><font size="-1"><font face="Calibri">I'm a newbie in using
Win32::GUI.</font></font></p>
<p><font size="-1"><font face="Calibri">I wanted to use the package
at CPAN (1.14) because the one currently available as a ppm (I
have ActiveState 5.22 64bits) is only 1.12 and does not have
the grid sub package. (both at activestate and bribes)<br>
</font></font></p>
<p><font size="-1"><font face="Calibri">I tried to compile the CPAN
tar.gz module (using A.S. cpan compile mechanism -- gcc +
dmake -- even forcing the BUILDENV to cygwin at scertain parts
of the process) but faced two problems : first the grid module
requires MSVC and second it only compiles (according to the error
messages) in 32 bits. I could easily downgrade from 64 to 32
but as ActiveState compiler is a minimal gcc it would not help
so much.</font></font></p>
<p><font size="-1"><font face="Calibri">I was wondering : IS THERE A
ppm repository somewehere WITH THE W32::GUI module compiled
under a ppm format IN VERSION 1.14 ?</font></font></p>
<p><font size="-1"><font face="Calibri"><br>
</font></font></p>
<p><font size="-1"><font face="Calibri">Thank you in advance for
your help.</font></font></p>
<p><font size="-1"><font face="Calibri">gm</font></font></p>
<p><font size="-1"><font face="Calibri"></font></font><br>
</p>
</body>
</html>
|
|
From: Oshri S. <osh...@gm...> - 2017-11-11 15:39:57
|
Hello, I'm trying to display utf8 characters on a window, using *AddTextfield*. The English characters are displayed ok, but the special characters appear as "Gibberish". Printing the same characters in Windows 10 CMD works fine. I'm using now the following: utf8::decode($contact_name); binmode(STDOUT, ":utf8"); These 2 lines allowed me to print utf8 to CMD, but for some reason it doesn't work with win32::GUI window. I have also tried the following, which didn't work (found them in a forum): use Win32::Console; Win32::Console::OutputCP(65001); Any help is appreciated! |
|
From: Oshri S. <osh...@gm...> - 2017-11-10 15:08:28
|
Thank you both for your help, it's working now. I changed from label to Textfield and used "\r\n" instead of just "\n", and now multilines is working. However, I have encountered another issue... I am parsing a text file with mixed English and Hebrew letters. When I try to display Hebrew text in a window, I get "Gibberish". On the CMD I can print Hebrew, but not in the window of win32::GUI. I have tried to encode to utf8, but that didn't help. What can I do to display Hebrew properly on the window? Regards. 2017-11-10 11:17 GMT+02:00 Aldo Calpini <da...@pe...>: > On 10/11/17 07:55, Oshri Shomrony wrote: > >> Hello, >> >> I'm using perl 5.24 with win32::GUI. >> >> I would like to open a window and display on it multiple lines taken from >> an array. >> I would also like it to be scrollable in case the window is smaller than >> the text size. >> >> for some reason, using "\n" doesn't work in AddLabel at all - the text >> after the \n is not displayed. >> >> How can I display multiple lines in a window? >> > > hi, > > what you want is a Textfield (not Label) object, with -multiline => 1. and > note, newline is "\r\n". > > documentation is here: http://perl-win32-gui.sourcefo > rge.net/cgi-bin/docs.cgi?doc=textfield > > hope this helps. > > cheers, > Aldo > > > > ------------------------------------------------------------ > ------------------ > Check out the vibrant tech community on one of the world's most > engaging tech sites, Slashdot.org! http://sdm.link/slashdot > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ |
|
From: Aldo C. <da...@pe...> - 2017-11-10 09:32:42
|
On 10/11/17 07:55, Oshri Shomrony wrote: > Hello, > > I'm using perl 5.24 with win32::GUI. > > I would like to open a window and display on it multiple lines taken > from an array. > I would also like it to be scrollable in case the window is smaller > than the text size. > > for some reason, using "\n" doesn't work in AddLabel at all - the text > after the \n is not displayed. > > How can I display multiple lines in a window? hi, what you want is a Textfield (not Label) object, with -multiline => 1. and note, newline is "\r\n". documentation is here: http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=textfield hope this helps. cheers, Aldo |
|
From: Oshri S. <osh...@gm...> - 2017-11-10 06:56:05
|
Hello, I'm using perl 5.24 with win32::GUI. I would like to open a window and display on it multiple lines taken from an array. I would also like it to be scrollable in case the window is smaller than the text size. for some reason, using "\n" doesn't work in AddLabel at all - the text after the \n is not displayed. How can I display multiple lines in a window? Any help is appreciated! |
|
From: Eric H. <eri...@gm...> - 2017-10-08 16:22:45
|
################################################################################
#-- NAME: KJV_Bible_SDBM.pl (or compiled to .exe)
#--
#-- AUTHOR: Eric Hansen U.S.A
#--
#-- DATE: August 29, 2017
#--
#-- LANGUAGE: Win32 Perl - ActiveState ActivePerl v5.6.1, binary build 638
#-- Win32 GUI Module (by Aldo Calpini) release 1.02
#--
#-- COMPILER: IndigoSTAR Perl2EXE v5.03, Win32 Perl Application Compiler
#--
#-- FUNCTION: KJV Bible Navigator Software. FlatFile/SDBM Database Version.
#-- DB User-Interface is a TreeView/RichEdit set of GUI widgets.
#--
#-- DATABASE: 3 input Files (JOINT DATABASE TECHNOLOGY - ISAM/NoSQL):
#--
#-- KJV_Bible_SDBM.dat (16,037 KB) Fixed-length(528 characters)
#-- records (no CR/LF), Flat File of 31102 KJV Bible verses
#-- extracted from a total of 66 books and 1189 chapters.
#-- KJV_Bible_SDBM.dir (4 KB) SDBM Binary File (part 1 of 2)
#-- KJV_Bible_SDBM.pag (128 KB) SDBM Binary File (part 2 of 2)
#-- Both used for random access indexing within the Flat File
#-- to the byte offset of the first verse within each chapter.
#-- Verses within a Chapter are read sequentially from there.
#-- These 3 files (named as shown) must reside in the application
#-- directory with program file KJV_Bible_SDBM.pl or .exe
#-- if compiled to a standalone executable.
#--
#-- OUTPUT: KJV_Bible_Genesis_Chp_3.rtf would be a Rich Edit (Wordpad) output
#-- file created in the Program/Application DIR containing all the
#-- verses for the Book of Genesis, Chapter 3. This output file is
#-- automatically created for each Book&Chapter the end-user selects.
#--
#-- HASH: Format of SDBM tied to hash table BibleIDX (for Books 1 to 66)
#-- KEY VALUE DESCRIPTION
#-- =============================================================
#-- ...
#-- 10 II Samuel,2Sa,24 Bk10 = name,abbrev,nbr_chps
#-- 10|1 4236144,27 Bk10|Chp1 = offset,nbr_verses
#-- ...
#-- 10|10 4351248,19 Bk10|Chp10 = offset,nbr_verses
#-- ...
#-- 10|24 4589904,25 Bk10|Chp24 = offset,nbr_verses
#-- ...
#--
#-- ABORTED: Should the program abort, run from a command prompt to see error.
#-- This would most likely occur if one or more of the 3 database
#-- files are missing from the application directory, or they have
#-- been renamed.
#--
#-- NO VERSES
#-- DISPLAY: If you do not see Bible verses displayed in the RichEdit widget
#-- after you have DBL-clicked your mouse on a particular chapter
#-- within the TreeView widget, it is likely due to the associated
#-- *.rtf output file already existing and having been manually
#-- set to a READ ONLY status. If the file exists, it must have
#-- WRITE permission. An Error Msg Box will pop up on the screen.
#-- To correct this problem, either delete or rename the
*.rtf file.
#-- If you wish to write personal notes within any of the *.rtf
#-- files generated, and prevent them from being stepped on
#-- (i.e. overwritten), then instead of making the file(s) READ ONLY,
#-- simply rename them. Example:
#-- KJV_Bible_Genesis_Chp_3.rtf to
KJV_Bible_Genesis_Chp3_Edited.rtf
#-- Or, you can make a subdirectory and store your edited files there
################################################################################
use Win32;
use Win32::GUI; #-- module extension by Aldo Calpini. Native Windows GUI.
use IO::Handle;
use SDBM_File;
use Fcntl;
use Win32API::File 0.08 qw( :ALL );
$SFont = new Win32::GUI::Font(
-name => "Courier New",
-size => 8,
-height => -11,
-weight => 700
);
$M1 = new Win32::GUI::Menu(
"&File" => "File1",
" > &Exit" => "Exit1",
"&Help" => "Help1",
" > &About" => "About1",
);
$W1 = new Win32::GUI::Window (
-title => "KJV Bible Navigator (FlatFile/SDBM Database Version)",
-menu => $M1,
-name => "Window1",
-minsize => [400, 200],
);
$TV = $W1->AddTreeView (
-name => "TV",
-font => $SFont,
-left => 10,
-top => 5,
-width => 180,
-height => $W1->ScaleHeight()-10,
-lines => 0,
-rootlines => 1,
-buttons => 1,
-visible => 1,
-checkboxes => 0,
-onMouseDblClick => \&TVDblClick,
);
$RE = $W1->AddRichEdit(
-name => "RE",
-height => $W1->ScaleHeight()-10,
-width => $W1->ScaleWidth()-205,
-wrap => 1,
-top => 5,
-left => 195,
-style => WS_VISIBLE | WS_VSCROLL | ES_AUTOVSCROLL | ES_MULTILINE,
-readonly => 1,
);
########################
########################
### Initialization ###
########################
########################
$DOS = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);
$PWD=Win32::GetCwd(); #-- program(p)/current(c) working(w) directory(d) location
$W1->Show();
$W1->Maximize();
Window1_Maint();
Database_Connect();
Load_TreeView();
$W1->Maximize();
Window1_Maint();
#######################
#######################
### Event Handler ###
#######################
#######################
Win32::GUI::Dialog(); #-- Enter event handler, and wait for end-user responses
#-- Logical End-of-Program is Here, although the END{} routine is performed last
#-- as cleanup.
################################################################################
################################################################################
############ SUBROUTINES ############
################################################################################
################################################################################
######################
sub Database_Connect {
######################
$hFILE = createFile("$PWD\\KJV_Bible_SDBM.dat", "r");
unless ( $hFILE ) {
die "Can't open Flat File: $PWD\\KJV_Bible_SDBM.dat (ERROR: ",
fileLastError(),")\n";
}
tie( %BibleIDX, "SDBM_File", '.\KJV_BIBLE_SDBM', O_RDONLY, 0444 );
unless ( tied %BibleIDX ) {
die "Can't tie hash tbl to SDBM Files: $PWD\\KJV_Bible_SDBM.pag (& .dir) $!";
}
}
###################
sub Load_TreeView {
###################
$TV->Clear(); $RE->Text("");
for my $bk (1 .. 66) {
my ($name, $short_name, $nbr_chps) = split(/,/,$BibleIDX{$bk});
my $node = $TV->InsertItem(-text => "$bk:$name"); #-- insert a Parent node
for my $chp (1 .. $nbr_chps) {
Win32::GUI::DoEvents(); #-- keep window from perhaps freezing up
my $key = $bk . "|" . $chp;
my ($offset, $nbr_vers) = split(/,/,$BibleIDX{$key});
$TV->InsertItem(-parent => $node, -text => "$short_name $chp:1-$nbr_vers");
}
}
}
###################
sub Window1_Maint {
###################
#-- Perform some Window Maintenance. A bit redundant (and overkill?) perhaps.
#-- Not sure how much of this is necessary? Better safe than sorry.
#-- Does not hurt performance.
$W1->BringWindowToTop(); #-- Brings window to the foreground
$W1->SetForegroundWindow(); #-- Brings window to the foreground
$W1->SetActiveWindow(); #-- Activates window
$W1->Redraw(1); #-- Same as InvalidateRect
$W1->InvalidateRect(1); #-- Redraw the Window
$W1->Update(); #-- similar to Redraw and InvalidateRect
$W1->SetFocus();
}
################################################################################
################################################################################
############ EVENTS ###############
################################################################################
################################################################################
################
sub TVDblClick {
################
my ($self, $x, $y) = @_;
my $node = $self->HitTest($x,$y);
$self->Select($node);
my $parent_node = $self->GetParent($node);
if ($node == 0 || $parent_node == 0) {
return;
}
$RE->Text("");
my %parentinfo = $self->ItemInfo($parent_node);
my ($bk, $bkname) = split(/:/,$parentinfo{-text});
my %nodeinfo = $self->ItemInfo($node);
my ($abbrev, $string) = split(/ /,$nodeinfo{-text});
my ($chp, $range) = split(/:/,$string);
my $outputfile="$PWD\\KJV_Bible_" . $bkname . "_Chp_" . $chp . ".rtf";
my $ret=0;
open(BibleRTF,"> $outputfile") || do {$ret=1;};
if (! $ret) {
BibleRTF->autoflush(1); #-- flush the output buffer each print
} else {
Win32::GUI::MessageBox($W1,"Can't open file\n$outputfile\nfor output\n$!",
"KJV Bible Navigator - Error",16,);
return;
}
print BibleRTF '{\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033'
. '{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}}'
. '{\colortbl ;\red255\green0\blue0;}'
. '\viewkind4\uc1\pard\f0\fs18' . "\n";
my $key=$bk . "|" . $chp;
my ($offset, $nbr_verses) = split(/,/,$BibleIDX{$key});
my $rec = "Hello Dolly"; my $txt = "Hello Dolly";
for (my $ver=1;$ver<=$nbr_verses;$ver++) {
Win32::GUI::DoEvents(); #-- keep window from perhaps freezing up
if ($ver == 1) {
my $pos=SetFilePointer( $hFILE, $offset, [], FILE_BEGIN); #-- random access
unless ( $pos ) {
my $error = fileLastError();
my $msg = "Can't set file pointer at byte offset $offset within:\n" .
"$PWD\\KJV_Bible_SDBM.dat" .
"\nat Book of $bkname chapter $chp verse $ver\n" . $error;
Win32::GUI::MessageBox($W1,$msg,"KJV Bible Navigator - Error",16,);
last;
}
}
$ret = ReadFile( $hFILE, $rec, 528, [], [] ); #-- sequential access
unless ( $ret ) {
my $error = fileLastError();
my $msg = "Can't read input file:\n" . "$PWD\\KJV_Bible_SDBM.dat" .
"\nat Book of $bkname chapter $chp verse $ver\n" . $error;
Win32::GUI::MessageBox($W1,$msg,"KJV Bible Navigator - Error",16,);
last;
}
#-- Next, we want to trim the length of $rec before printing.
#-- Buffer $rec is initialized to fixed-length 528, and can't be trimmed.
$txt=sprintf("%s", $rec); #-- required step in removing trailing spaces
$txt=~s/ *$//; #-- remove trailing spaces or you can ...
$txt=~s/\s+$//; #-- remove trailing spaces (redundant here just to show)
#$txt=~s/^\s+//; #-- if we had needed to remove leading spaces, if any
#print BibleRTF '\ul\b\i0\highlight1 '
print BibleRTF '\ul\b0\i\highlight0 '
. "$bkname $chp:$ver (KJV)"
. '\par\ulnone\b\i0\highlight0' . $txt . '\par\par' . "\n";
}
print BibleRTF '}' . "\n";
close(BibleRTF);
$RE->Load("$outputfile");
#-- Perform some Window Maintenance.
#-- We don't want to Maximize Window because end-user may have adjusted size.
Window1_Maint();
}
##################
sub About1_Click {
##################
my $about_text="Written by Eric Hansen, U.S.A., August 29, 2017\n" .
"In the Win32 PERL language - ActiveState ActivePerl v5.6.1, build 638\n" .
"Compiled with the IndigoSTAR Perl2Exe compiler v5.03\n" .
"Perl Win32-GUI module (by Aldo Calpini) release 1.02\n" .
"Expand a Book, then DblClick a Chapter to view it.\n" .
"Close this message box to proceed.";
my $about = "About - KJV Bible Navigator - FlatFile/SDBM Database Version";
Win32::GUI::MessageBox($W1,$about_text,$about,64,);
}
#################
sub Exit1_Click {
#################
return -1; #-- stops the event handler and exits
}
#######################
sub Window1_Terminate {
#######################
return -1; #-- stops the event handler and exits
}
####################
sub Window1_Resize {
####################
my $width = $W1->ScaleWidth();
my $height = $W1->ScaleHeight();
$TV->Resize(180,$height-10);
$RE->Resize($width-205,$height-10);
}
#####
END {
#####
CloseHandle($hFILE); untie(%BibleIDX); close(BibleRTF);
Win32::GUI::Show($DOS);
return -1; #-- stops the event handler and exits
}
=====================================================================
======================================================================
ALTERNATE TreeView Double Click Event to replace the ORIGINAL:
################
sub TVDblClick {
################
my ($self, $x, $y) = @_;
my $node = $self->HitTest($x,$y);
$self->Select($node);
my $parent_node = $self->GetParent($node);
if ($node == 0 || $parent_node == 0) {
return;
}
$RE->Text("");
my %parentinfo = $self->ItemInfo($parent_node);
my ($bk, $bkname) = split(/:/,$parentinfo{-text});
my %nodeinfo = $self->ItemInfo($node);
my ($abbrev, $string) = split(/ /,$nodeinfo{-text});
my ($chp, $range) = split(/:/,$string);
my $outputfile="$PWD\\KJV_Bible_" . $bkname . "_Chp_" . $chp . ".rtf";
my $ret=0;
open(BibleRTF,"> $outputfile") || do {$ret=1;};
if (! $ret) {
BibleRTF->autoflush(1); #-- flush the output buffer each print
} else {
Win32::GUI::MessageBox($W1,"Can't open file\n$outputfile\nfor output\n$!",
"KJV Bible Navigator - Error",16,);
return;
}
my $key=$bk . "|" . $chp;
my ($offset, $nbr_verses) = split(/,/,$BibleIDX{$key});
my $pos=SetFilePointer( $hFILE, $offset, [], FILE_BEGIN); #-- random access
unless ( $pos ) {
my $error = fileLastError();
my $msg = "Can't set file pointer at byte offset $offset within:\n" .
"$PWD\\KJV_Bible_SDBM.dat" .
"\nat Book of $bkname chapter $chp verse 1\n" . $error;
Win32::GUI::MessageBox($W1,$msg,"KJV Bible Navigator - Error",16,);
close(BibleRTF);
return;
}
my $BIB_Tmpl = ""; #-- build a template to unpack an entire chapter of verses
for (my $i=1; $i<= $nbr_verses; $i++) {
$BIB_Tmpl = $BIB_Tmpl . "A528, ";
}
chop $BIB_Tmpl; chop $BIB_Tmpl; #-- remove trailing ", "
$nbr_chars=(528 * $nbr_verses);
my $buff = "Hello Dolly";
$ret=ReadFile( $hFILE, $buff, $nbr_chars, [], [] ); #-- read in a whole chapter
unless ( $ret ) {
my $error = fileLastError();
my $msg = "Can't read input file:\n" . "$PWD\\KJV_Bible_SDBM.dat" .
"\nat Book of $bkname chapter $chp verses 1 to $nbr_verses\n" . $error;
Win32::GUI::MessageBox($W1,$msg,"KJV Bible Navigator - Error",16,);
close(BibleRTF);
return;
}
my @verses=();
@verses=unpack($BIB_Tmpl,$buff);
print BibleRTF '{\rtf1\ansi\ansicpg1252\deff0\deflang1033\deflangfe1033'
. '{\fonttbl{\f0\fswiss\fcharset0 Tahoma;}}'
. '{\colortbl ;\red255\green0\blue0;}'
. '\viewkind4\uc1\pard\f0\fs18' . "\n";
for (my $j=0; $j<$nbr_verses; $j++) {
Win32::GUI::DoEvents(); #-- keep window from perhaps freezing up
$verses[$j]=~s/ *$//; #-- remove trailing spaces from ea. verse
$ver=$j+1;
#print BibleRTF '\ul\b\i0\highlight1 '
print BibleRTF '\ul\b0\i\highlight0 '
. "$bkname $chp:$ver (KJV)"
. '\par\ulnone\b\i0\highlight0' . $verses[$j] . '\par\par' . "\n";
}
print BibleRTF '}' . "\n";
close(BibleRTF);
$RE->Load("$outputfile");
#-- Perform some Window Maintenance.
#-- We don't want to Maximize Window because end-user may have adjusted size.
Window1_Maint();
}
|
|
From: Jeremy W. <jez...@ho...> - 2017-01-09 11:56:18
|
All, Does anyone know if the latest version of Microsoft community edition visual studio works to build Win32::GUI? I've been trying to build WIn32::GUI (specifically Win32::GUI::Grid) under a modern Activestate 64 bit perl, but I can get it to compile (lots of weird errors). It does build under mingw, but not Win32::GUI::Grid as it uses the MFC framework. Thoughts/comments/suggestions? Regards, |
|
From: kmx <km...@at...> - 2015-06-08 15:23:54
|
IMO the reason is that somewhere between 5.14 and 5.20 Active State switched from Microsoft compiler to gcc compiler. Grid.pm requires MFC - not available for gcc/mingw-w64 AxWindow.pm requires Active Template Library (ATL) - not supported by gcc/mingw-w64 DIBitmap.pm can be fixed for gcc/mingw-w64 The rest are not part of Win32-GUI distribution: HyperLink.pm is a separate module https://metacpan.org/pod/Win32::GUI::HyperLink SplashScreen.pm is a separate module https://metacpan.org/pod/Win32::GUI::SplashScreen XMLBuilder.pm separate module https://metacpan.org/pod/Win32::GUI::XMLBuilder -- kmx On 8.6.2015 16:18, John McMahon wrote: > Hi > > Win32-GUI installed via ActiveState PPM repository for AS Perl 5.20 > seems to be missing some modules compared to AS Perl 5.14 and the CPAN > tarball. > > Specifically the following: > AxWindow.pm > DIBitmap.pm > Grid.pm > HyperLink.pm > SplashScreen.pm > XMLBuilder.pm > > This applies to the current version of Win32-GUI v1.12 and its > predecessor v1.11 AFAIK. Is there a particular reason for this or is it > an oversite. Specifically I use Grid in a couple of apps and this is > deferring an upgrade. > > John > |
|
From: John M. <li...@js...> - 2015-06-08 14:36:24
|
Hi
Win32-GUI installed via ActiveState PPM repository for AS Perl 5.20
seems to be missing some modules compared to AS Perl 5.14 and the CPAN
tarball.
Specifically the following:
AxWindow.pm
DIBitmap.pm
Grid.pm
HyperLink.pm
SplashScreen.pm
XMLBuilder.pm
This applies to the current version of Win32-GUI v1.12 and its
predecessor v1.11 AFAIK. Is there a particular reason for this or is it
an oversite. Specifically I use Grid in a couple of apps and this is
deferring an upgrade.
John
--
Regards
John McMahon
li...@js...
|
|
From: Robert M. <rob...@us...> - 2015-06-03 20:01:49
|
Thank you very much On 3 June 2015 at 14:35, kmx <km...@at...> wrote: > Win32-GUI-1.12 is available on CPAN with perl-5.22.0 compatibility fix. > > -- > kmx > > > ------------------------------------------------------------------------------ > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ > |
|
From: kmx <km...@at...> - 2015-06-03 12:35:43
|
Win32-GUI-1.12 is available on CPAN with perl-5.22.0 compatibility fix. -- kmx |
|
From: Glenn M. <gwm...@gm...> - 2014-11-09 15:04:31
|
All, Just repeating some off-list communication, v 1.11 has fixed the black background problem. Regards, Glenn On Saturday, 8 November 2014, kmx <km...@at...> wrote: > Hopefully fixed in https://metacpan.org/release/KMX/Win32-GUI-1.11 > > Version 1.10 intentionally skipped due to trailing zero troubles in > 97_Version.t > > -- > kmx > > On 8.11.2014 11:23, Glenn Munroe wrote: > > Thanks, kmx. > > I just downloaded, and installed, versions 1.07 and 1.08 to check. The > change was from 1.08 to 1.09. That may help narrow the search a little. > > Regards, > Glenn > > On Saturday, 8 November 2014, kmx <km...@at... > <javascript:_e(%7B%7D,'cvml','km...@at...');>> wrote: > >> Well, that might be introduced by this change I have made when trying >> to polish misc. pointer related issues: >> >> - wcx.hbrBackground = (HBRUSH) SvCOLORREF(NOTXSCALL ST(next_i));+ wcx.hbrBackground = CreateSolidBrush(SvCOLORREF(NOTXSCALL ST(next_i))); >> >> >> I'll try to investigate. >> >> -- >> kmx >> >> >> On 8.11.2014 9:23, Glenn Munroe wrote: >> >> First off, thanks to KMX for his latest work on this project; it had gone >> kind of quiet recently. >> >> I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see a >> change in default main window background colour. The "hello world" example >> in the tutorial used to look like the attachment HelloWorld_106.png, but >> now looks like HelloWorld_109.png (if the attachments don't come through, >> the window background has changed from the same grey as the label to black). >> >> Do others see this? Is there an easy fix for it? >> >> Glenn >> >> > |
|
From: kmx <km...@at...> - 2014-11-08 13:02:12
|
Hopefully fixed in https://metacpan.org/release/KMX/Win32-GUI-1.11 Version 1.10 intentionally skipped due to trailing zero troubles in 97_Version.t -- kmx On 8.11.2014 11:23, Glenn Munroe wrote: > Thanks, kmx. > > I just downloaded, and installed, versions 1.07 and 1.08 to check. The > change was from 1.08 to 1.09. That may help narrow the search a little. > > Regards, > Glenn > > On Saturday, 8 November 2014, kmx <km...@at... <mailto:km...@at...>> wrote: > > Well, that might be introduced by this change I have made when trying > to polish misc. pointer related issues: > > - wcx.hbrBackground = (HBRUSH) SvCOLORREF(NOTXSCALL ST(next_i)); > + wcx.hbrBackground = CreateSolidBrush(SvCOLORREF(NOTXSCALL ST(next_i))); > > > I'll try to investigate. > > -- > kmx > > > On 8.11.2014 9:23, Glenn Munroe wrote: >> First off, thanks to KMX for his latest work on this project; it had >> gone kind of quiet recently. >> >> I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see >> a change in default main window background colour. The "hello world" >> example in the tutorial used to look like the attachment >> HelloWorld_106.png, but now looks like HelloWorld_109.png (if the >> attachments don't come through, the window background has changed >> from the same grey as the label to black). >> >> Do others see this? Is there an easy fix for it? >> >> Glenn > |
|
From: Glenn M. <gwm...@gm...> - 2014-11-08 10:23:47
|
Thanks, kmx. I just downloaded, and installed, versions 1.07 and 1.08 to check. The change was from 1.08 to 1.09. That may help narrow the search a little. Regards, Glenn On Saturday, 8 November 2014, kmx <km...@at...> wrote: > Well, that might be introduced by this change I have made when trying to > polish misc. pointer related issues: > > - wcx.hbrBackground = (HBRUSH) SvCOLORREF(NOTXSCALL ST(next_i));+ wcx.hbrBackground = CreateSolidBrush(SvCOLORREF(NOTXSCALL ST(next_i))); > > > I'll try to investigate. > > -- > kmx > > > On 8.11.2014 9:23, Glenn Munroe wrote: > > First off, thanks to KMX for his latest work on this project; it had gone > kind of quiet recently. > > I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see a > change in default main window background colour. The "hello world" example > in the tutorial used to look like the attachment HelloWorld_106.png, but > now looks like HelloWorld_109.png (if the attachments don't come through, > the window background has changed from the same grey as the label to black). > > Do others see this? Is there an easy fix for it? > > Glenn > > > ------------------------------------------------------------------------------ > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing lis...@li... <javascript:_e(%7B%7D,'cvml','Per...@li...');>https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-usershttp://perl-win32-gui.sourceforge.net/ > > > |
|
From: kmx <km...@at...> - 2014-11-08 08:59:40
|
Well, that might be introduced by this change I have made when trying to polish misc. pointer related issues: - wcx.hbrBackground = (HBRUSH) SvCOLORREF(NOTXSCALL ST(next_i)); + wcx.hbrBackground = CreateSolidBrush(SvCOLORREF(NOTXSCALL ST(next_i))); I'll try to investigate. -- kmx On 8.11.2014 9:23, Glenn Munroe wrote: > First off, thanks to KMX for his latest work on this project; it had gone > kind of quiet recently. > > I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see a > change in default main window background colour. The "hello world" > example in the tutorial used to look like the attachment > HelloWorld_106.png, but now looks like HelloWorld_109.png (if the > attachments don't come through, the window background has changed from > the same grey as the label to black). > > Do others see this? Is there an easy fix for it? > > Glenn > > > ------------------------------------------------------------------------------ > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ |
|
From: Glenn M. <gwm...@gm...> - 2014-11-08 08:23:45
|
First off, thanks to KMX for his latest work on this project; it had gone kind of quiet recently. I just upgraded from 1.06 to the new 1.09. Running ActivePerl, I see a change in default main window background colour. The "hello world" example in the tutorial used to look like the attachment HelloWorld_106.png, but now looks like HelloWorld_109.png (if the attachments don't come through, the window background has changed from the same grey as the label to black). Do others see this? Is there an easy fix for it? Glenn |
|
From: Aldo C. <da...@pe...> - 2014-11-07 13:14:15
|
On 07/11/14 12:49, kmx wrote: > Win32-GUI-1.09 is available on CPAN > > Build logs seems to be all green: > http://matrix.cpantesters.org/?dist=Win32-GUI%201.09 > https://code.activestate.com/ppm/Win32-GUI/ nice job, kmx! thanks a lot :-) cheers, Aldo |
|
From: kmx <km...@at...> - 2014-11-07 11:49:27
|
Win32-GUI-1.09 is available on CPAN Build logs seems to be all green: http://matrix.cpantesters.org/?dist=Win32-GUI%201.09 https://code.activestate.com/ppm/Win32-GUI/ -- kmx |
|
From: kmx <km...@at...> - 2014-10-15 09:11:00
|
Please test the latest: https://metacpan.org/release/KMX/Win32-GUI-1.08_07 It should built and pass tests on all platforms I have available: * activestate perl + msvc - both 32/64bit * strawberry perl + mingw - both 32/64bit * cygwin: old v1.5 as well as new v1.7 (both 32/64bit) See changes https://metacpan.org/changes/release/KMX/Win32-GUI-1.08_07 I am going to release latest dev version as 1.09 approx. two weeks from now unless someone reports a significant issue. -- kmx |
|
From: kmx <km...@at...> - 2014-10-10 16:53:09
|
Win32-GUI-1.07 works with 32bit cygwin (I have tested old v1.5 and v1.7) There are some issues with 64bit cygwin: 1/ Win32-GUI-Constants/hash/perfect.c - "long int" is not 4 bytes (as on both 32/64bit MSWin32) but 8 bytes long on cygwin64 - I hope that changing "long int" > "int" might be the right fix 2/ GUI.xs uses cygwin_conv_to_win32_path - it was deprecated and should be replaced by cygwin_conv_path(..) 3/ after patching 1/ + 2/ Win32::GUI compiles but fails approx. 25 tests (so perhaps my patch was not completely correct) I'll try to do more research and commit necessary patches to git repo. Could meanwhile somebody try to build latest Win32::GUI with MS compiler? -- kmx On 10.10.2014 10:07, Reini Urban wrote: > On Oct 10, 2014, at 9:50 AM, Stephane LECOLIER <ste...@st...> wrote: > >> Hi Kmx, >> >> Concerning Cygwin do you have plan some dedicated release? >> Or does your Win32-GUI be compliant by default? >> Does it concern Cygwin 32bits or 64 bits or both? >> >> Thanks in advance for your reply, > I’ll do it when I get my windows machines from the ship from the US. > >> >> Stéphane >> >> From: kmx [mailto:km...@at...] >> Sent: Friday, October 10, 2014 7:56 AM >> To: per...@li... >> Subject: Re: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from CVS to GIT >> >> Hi, >> >> currently my intention is simply to make Win32::GUI compile smoothly and pass all tests on all relevant platforms. >> >> Which means making mswin32 and cygwin columns at http://matrix.cpantesters.org/?dist=Win32-GUI+1.07 all green (still not there yet). >> >> -- >> kmx >> >> On 9.10.2014 11:19, Jeremy wrote: >> Good job. >> >> Do you have any plans for additional functionality/fixes etc? >> >> Also, do you know how this updated version will flow down to Activestate so end users can get 32/64bit ppm packages? >> >> Cheers, >> >> jez. >> >> >> Date: Thu, 9 Oct 2014 02:13:46 +0200 >> From: km...@at... >> To: per...@li... >> Subject: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from CVS to GIT >> >> Hi, >> >> after getting co-maint for Win32::GUI I have released version 1.07 to CPAN - seehttps://metacpan.org/release/KMX/Win32-GUI-1.07 >> >> It contains a merger of fixes related to bugs reported viahttps://rt.cpan.org/Public/Dist/Display.html?Name=Win32-GUI >> >> It should cleanly install at least on cygwin and strawberry perl (both 32/64bit). >> >> After a discussion with Rob and Aldo I have also converted CVS repository to GIT which can be found at https://sourceforge.net/p/perl-win32-gui/git/ (the old CVS is also available however is not synchronized with GIT where all new commits go). >> >> -- >> kmx |
|
From: Reini U. <rei...@gm...> - 2014-10-10 09:27:08
|
On Oct 10, 2014, at 9:50 AM, Stephane LECOLIER <ste...@st...> wrote: > Hi Kmx, > > Concerning Cygwin do you have plan some dedicated release? > Or does your Win32-GUI be compliant by default? > Does it concern Cygwin 32bits or 64 bits or both? > > Thanks in advance for your reply, I’ll do it when I get my windows machines from the ship from the US. > > Stéphane > > From: kmx [mailto:km...@at...] > Sent: Friday, October 10, 2014 7:56 AM > To: per...@li... > Subject: Re: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from CVS to GIT > > Hi, > > currently my intention is simply to make Win32::GUI compile smoothly and pass all tests on all relevant platforms. > > Which means making mswin32 and cygwin columns at http://matrix.cpantesters.org/?dist=Win32-GUI+1.07 all green (still not there yet). > > -- > kmx > > On 9.10.2014 11:19, Jeremy wrote: > Good job. > > Do you have any plans for additional functionality/fixes etc? > > Also, do you know how this updated version will flow down to Activestate so end users can get 32/64bit ppm packages? > > Cheers, > > jez. > > > Date: Thu, 9 Oct 2014 02:13:46 +0200 > From: km...@at... > To: per...@li... > Subject: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from CVS to GIT > > Hi, > > after getting co-maint for Win32::GUI I have released version 1.07 to CPAN - seehttps://metacpan.org/release/KMX/Win32-GUI-1.07 > > It contains a merger of fixes related to bugs reported viahttps://rt.cpan.org/Public/Dist/Display.html?Name=Win32-GUI > > It should cleanly install at least on cygwin and strawberry perl (both 32/64bit). > > After a discussion with Rob and Aldo I have also converted CVS repository to GIT which can be found at https://sourceforge.net/p/perl-win32-gui/git/ (the old CVS is also available however is not synchronized with GIT where all new commits go). > > -- > kmx > > ------------------------------------------------------------------------------ Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzerhttp://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk > _______________________________________________ Perl-Win32-GUI-Users mailing lis...@li... https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/ > > ------------------------------------------------------------------------------ > Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer > Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports > Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper > Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer > http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk_______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ |
|
From: Stephane L. <ste...@st...> - 2014-10-10 08:05:25
|
Hi Kmx, Concerning Cygwin do you have plan some dedicated release? Or does your Win32-GUI be compliant by default? Does it concern Cygwin 32bits or 64 bits or both? Thanks in advance for your reply, Stéphane From: kmx [mailto:km...@at...] Sent: Friday, October 10, 2014 7:56 AM To: per...@li... Subject: Re: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from CVS to GIT Hi, currently my intention is simply to make Win32::GUI compile smoothly and pass all tests on all relevant platforms. Which means making mswin32 and cygwin columns at http://matrix.cpantesters.org/?dist=Win32-GUI+1.07 all green (still not there yet). -- kmx On 9.10.2014 11:19, Jeremy wrote: Good job. Do you have any plans for additional functionality/fixes etc? Also, do you know how this updated version will flow down to Activestate so end users can get 32/64bit ppm packages? Cheers, jez. ________________________________ Date: Thu, 9 Oct 2014 02:13:46 +0200 From: km...@at...<mailto:km...@at...> To: per...@li...<mailto:per...@li...> Subject: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from CVS to GIT Hi, after getting co-maint for Win32::GUI I have released version 1.07 to CPAN - see https://metacpan.org/release/KMX/Win32-GUI-1.07 It contains a merger of fixes related to bugs reported via https://rt.cpan.org/Public/Dist/Display.html?Name=Win32-GUI It should cleanly install at least on cygwin and strawberry perl (both 32/64bit). After a discussion with Rob and Aldo I have also converted CVS repository to GIT which can be found at https://sourceforge.net/p/perl-win32-gui/git/ (the old CVS is also available however is not synchronized with GIT where all new commits go). -- kmx ------------------------------------------------------------------------------ Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li...<mailto:Per...@li...> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/ |
|
From: kmx <km...@at...> - 2014-10-10 05:55:53
|
Hi, currently my intention is simply to make Win32::GUI compile smoothly and pass all tests on all relevant platforms. Which means making mswin32 and cygwin columns at http://matrix.cpantesters.org/?dist=Win32-GUI+1.07 all green (still not there yet). -- kmx On 9.10.2014 11:19, Jeremy wrote: > Good job. > > Do you have any plans for additional functionality/fixes etc? > > Also, do you know how this updated version will flow down to Activestate > so end users can get 32/64bit ppm packages? > > Cheers, > > jez. > > > --------------------------------------------------------------------------- > Date: Thu, 9 Oct 2014 02:13:46 +0200 > From: km...@at... > To: per...@li... > Subject: [perl-win32-gui-users] Win32-GUI-1.07 released + migrated from > CVS to GIT > > Hi, > > after getting co-maint for Win32::GUI I have released version 1.07 to > CPAN - see https://metacpan.org/release/KMX/Win32-GUI-1.07 > > It contains a merger of fixes related to bugs reported via > https://rt.cpan.org/Public/Dist/Display.html?Name=Win32-GUI > > It should cleanly install at least on cygwin and strawberry perl (both > 32/64bit). > > After a discussion with Rob and Aldo I have also converted CVS repository > to GIT which can be found at > https://sourceforge.net/p/perl-win32-gui/git/ (the old CVS is also > available however is not synchronized with GIT where all new commits go). > > -- > kmx > > ------------------------------------------------------------------------------ > Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer Achieve > PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports Are you > Audit-Ready for PCI DSS 3.0 Compliance? Download White paper Comply to > PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer > http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk > _______________________________________________ Perl-Win32-GUI-Users > mailing list Per...@li... > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > http://perl-win32-gui.sourceforge.net/ |
48 messages has been excluded from this view by a project administrator.
