NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
Alias (5735)
Friday June 05, 2009
10:40 AM
Padre Single Instance now correctly foregrounds on Win32
Of course, I'm not at all proud of what I had to do to get there, but after around 20 minutes per line of code trawling through MSDN, I finally managed to find a combination that works.
The single instance server now immediately sends the PID on connect (leading space padded to specifically 10 bytes) and the the client does the following.
my $pid = '';
my $read = $socket->sysread( $pid, 10 );
if ( defined $read and $read = 10 ) {
# Got the single instance PID
$pid =~ s/\s+\s//;
if ( Padre::Util::WIN32 ) {
require Win32::API;
Win32::API->new(
'User32.dll',
'AllowSetForegroundWindow',
'N', 'L',
)->Call($pid);
}
}
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
Full
Abbreviated
Hidden
Loading... please wait.
because that's exactly how much difference there is. :-)
--Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Ummmm... (Score:1)
Pretty please tell me you /really/ used '==' and not '=' in that 'if' statement.
Re: (Score:1)
Unfortunately, not.
http://padre.perlide.org/changeset?new=5092%40trunk&old=5091%40trunk [perlide.org]
But it's only on svn at the moment, not released, so it should be easy for a committer to add the character.
The new Strawberry Perl for Windows has been released! Check http://strawberryperl.com for it.
Re: (Score:2)
Re: (Score:1)
I gotta say, one of my favourite things about the Padre development team is that I can add a bug to Padre before I go to bed and there's a good chance that by the time I wake up, it's gone. :)
Re: (Score:1)
oopsi