content-type=text%2Fplain&rev=1.19
--
Morbus Iff ( think about the good things that I did for you )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
>can anyone inform me as to how one removes an icon from the systray?
sub AmphetaDesk::OS::Windows::_Remove_Systray_Icon {
Win32::GUI::NotifyIcon::Delete(
$systray_icon->{-parent}, -id => $systray_icon->{-id} );
}
--
Morbus Iff ( accept no prostitutes )
Tec
gt;>Win32::GUI: the -exstyle option is deprecated!
>
>Laurent - your fixes for these worked perfectly. Thank you kindly!
>They've been integrated into the CVS version of AmphetaDesk.
Actually, it looks like that your fixes didn't enable
word-wrapping on the Ri
-exstyle option is deprecated!
Laurent - your fixes for these worked perfectly. Thank you kindly!
They've been integrated into the CVS version of AmphetaDesk.
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering
=> WS_EX_CLIENTEDGE
);
Removing the style, at least on the AddLabel, totally breaks my bitmap
image. I've yet to fiddle with the -style on the RichEdit. What should
those be changed too?
> - Fix DoEvents double events
> - Fix PeekMessage warm message
Rocking. Those both a
>A new Win32::GUI release is availlable.
>This release come from 0.0.665 Fix CVS branch.
Is there a list of fixes?
--
Morbus Iff ( be realistic. demand the impossible. )
Technical: http://www.oreillynet.com/pub/au/779
Culture: http://www.disobey.com/ and http://www.gamegrene.co
nuine excellent help, compared to "haven't had my coffee
yet" idiocy is surprisingly low. If you leave now, your loss, not ours.
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Please Me: http://www.amazo
ny ideas? The latest code I'm using is here:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/amphetadesk/AmphetaDesk/
lib/AmphetaDesk/OS/Windows.pm?rev=1.10&content-type=text/vnd.viewcvs-markup
--
Morbus Iff ( *splutch* ... /me respawns )
Culture: http://www.disobey.com/ and ht
>Per the docs, DblClick event is not available on the NotifyIcon. However,
>you can: sub NI_MouseEvent with a NotifyIcon named NI and catch them
all >yourself. However, click events will be fired twice before the
doubleclick
This worked perfectly, thanks!
--
Morbus Iff ( i&#x
s been passed, but I'm not able to make that happen.
Do I need to start counting single-clicks? ;)
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Please Me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
a simple
change to _Systray_DoubleClick, or something else?
- the window stays minimized - how do I spring it
open to a Maximized state? I use both ->Enable
and ->Show, but still it's minimized.
Thoughts?
--
Morbus Iff ( i'm the droid you're looking f
nd.viewcvs-markup
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Please Me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
or $VERSION within my Windows.pm so
that I can set the font size properly depending
on the Win32::GUI version.
Anything I'm missing? (I'm not ruling out further issues with FindBin
as of yet, but this is Patient Number 0 for "things to address").
--
Morbus Iff ( i'
Win95 box is an old laptop - 66mhz with 8 megs of
RAM. It takes me about 15 minutes to get one response out of my
application, and it's making debugging this thing a flippin' nightmare.
Thoughts?
--
Morbus Iff ( shower your women, i'm coming )
Culture: http://www.disobey.com/ and
like you're having.
I doubt this helps, but :) ...
--
Morbus Iff ( strive for mediocrity )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
n32 binary).
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
$logbox->ReplaceSel("$message\n", 1);
select(undef, undef, undef, 0.25);
# autoscroll the log box.
$logbox->SendMessage (0x115, 1, 0) while $message =~ /\n|$/g;
# listen for good measure.
Win32::GUI::PeekMessage(0,0,0);
Win32::GUI::DoEvents();
--
Morbus Iff ( i&#
course, you'd only want to do this once you're sure
that your code is working perfectly and flags no other warnings.
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 -
tly after I sent my original question, I hit upon an old message
in the archives saying pretty much the same thing. After changing
everything over to the package name (I probably changed too much, but hey),
everything is working perfectly. Thanks!
--
Morbus Iff ( i'm the droid you're looking
've tried numerous little things to get this working (like EXPORTing all
of the my'd variables into the parent namespace, which is now
AmphetaDesk::, not main::), and nothing works.
Any ideas?
--
Morbus Iff ( i'm the droid you're looking for )
Culture: http://www.disobey.
es have occasional visual
problems (when the GUI doesn't refresh due to being in the queue).
--
Morbus Iff ( softcore vulcan pr0n rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
in AmphetaDesk. An example of its operation:
http://www.disobey.com/amphetadesk/images/ss-base-gui.jpg
The above is a picture of a RichEdit that is automatically
scrolled for each new message entered into it.
--
Morbus Iff ( softcore vulcan porn rulez )
http://www.disobey.com/ &&
s.sourceforge.net/cgi-bin/viewcvs.cgi/amphetadesk/
AmphetaDesk/lib/Windows.pl?rev=1.36&content-type=text/vnd.viewcvs-markup
On a side note, HWoOWOo, Sourceforge added happy
blinking graphics to featured projects :
http://sourceforge.net/projects/amphetadesk
--
Morbus Iff ( softcore
PM -0500 11/3/01, Morbus Iff wrote:
>And yes, within the Windows routines (/lib/Windows.pl),
>I use global variables. Que sera.
--
Morbus Iff ( i am your scary godmother )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25
es, so that doesn't count.
Not sure what you're talking about - currently, AmphetaDesk is very
perl4ish - there are no modules, only libraries. The libraries are sucked
in from the main AmphetaDesk.pl script, and inherit the use strict and -w.
--
Morbus Iff ( i am your scary go
to be more about global
variables as opposed to 'use strict'. As a rough example, AmphetaDesk uses
Win32::GUI, under 'use strict' and -w. And yes, within the Windows routines
(/lib/Windows.pl), I use global variables. Que sera.
http://www.disobey.com/amphetadesk/
--
M
ge.net/cgi-bin/viewcvs.cgi/amphetadesk/AmphetaDesk
/lib/Windows.pl?rev=1.36&content-type=text/vnd.viewcvs-markup
--
Morbus Iff ( softcore vulcan porn rulez )
http://www.disobey.com/ && http://www.gamegrene.com/
please me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
er.
$icon = new Win32::GUI::Icon($SETTINGS->{files}->{gui_win_icon});
# create a window class for our window.
$hwnd_class = new Win32::GUI::Class( -name => "SomeNameOf Class",
-icon => $icon
o with some of the slowdown I
experienced before. I'll be sure to check into that. More questions:
- do you see any Window related handles that I've missed?
I'd much rather define every single possible event than miss
some and hope that the code figures it out. Does my code
always bring the Window to the top (in practice, sometimes
it does, sometimes it doesn't)?
--
Morbus Iff ( .sig on other machine. )
http://www.disobey.com/ && http://www.gamegrene.com/
"where's there's a will, there's a morbus ready to collect!"
I'm looking for a code review of the below - mainly in the realms of
Windows correctness, and what I'm missing, and so forth. The code below is
a drop-able library into my AmphetaDesk
(http://www.disobey.com/amphetadesk/), but could work for some other
programs as well.
As it stands right now, I'm
>What's wrong with
>
>system("start $url")
>
>Providing $url starts with "http://"; the shell does the right thing (see the
>ShellExeceute API -- which start fronts -- for details).
In my tests, I've found that causes some problems. I don't know why - my
work machine (a 233mhz slowpoke running
on't work for all users but covers
# a good large portion of them. yup yup. fun. chicks on speed.
$SETTINGS->{user}->{browser_path} =~ s/program files/progra~1/ig;
$SETTINGS->{user}->{browser_path} =~ s/internet explorer/intern~1/ig;
¬e("Trying to load $SETTINGS
27;P', 'P', 'I'], 'N');
# pseudo code below
if ($ShellExecute->Path =~ /Opera/i) {
system("$ShellExecute->Path $url");
} else { $ShellExecute->Call(0, "open", $url, 0, 0, 1); }
Is something like that possible?
--
Morbus Iff ( .sig on other machine. )
http://www.disobey.com/ && http://www.gamegrene.com/
"where's there's a will, there's a morbus ready to collect!"
# for some reason, we get two clicks every
# time someone clicks a menu item. we check
# for this here.
$already_called = 1;
}
else { $already_called = 0; }
}
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
#x27;t understand the
passed $url to the system command above. Thus, I get one window with
Mozilla saying it couldn't find %1, and then another window with the actual
URL correctly thrown in.
Sigh. Ah twell.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
;open", $url, 0, 0, 1);
>
>This works fine in IE6b. I'll assume it works fine elsewhere. It does very
>weird things on Mozilla though. Can anyone try this on Netscape to see if
>it's similar (I don't have NS on this machine, only Moz).
Correction. This does not work on IE6. Opens two windows.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
(new) windows. both
windows eventually have the URL in it.
Sometimes, even weirder, I get THREE windows opening, the first two with
the correct URL, the third with a blank search on Netscape's pages. Sigh. I
like Mozilla, but sheesh, this ain't gonna work.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
>`start iexplore.exe http://www.activestate.com`
>use backticks to call the "start" command in the command shell, then
>pass an explicite exe name followed by the arguments. I tried it
>without the iexplore.exe and it only opened the window. I believe this
>is something that is wrong my machine s
>use Win32::TieRegistry;
>$http = $Registry->{"Classes\\http\\shell\\open\\command"}->{'\\'};
>`$http $url`;
Ok. Well, it certainly opened up new windows on Mozilla, unfortunately, it
didn't pass the URL to Mozilla correctly - I got search results from
N
>use Win32::TieRegistry;
Well, now this is odd. I don't seem to have that on my machine, and a PPM
says it's not found. Huh. Sigh. Gotta find it now...
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
at this code always uses an *existing* browser window if it exists.
This causes some angst - if I'm viewing something, and then suddenly the
program takes over and loses my current page, I get pissed. So, anyways to
always open a *new* window, whether an existing one is there or not?
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
>At 03:06 PM 5/31/01, Frazier, Joe Jr wrote:
>At 03:10 PM 5/31/01, Forhan, Michael wrote:
Hey, thanks to both of you on the min/max|width/height... worked wonderfully!
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
work, but
still allows people to resize the window by the grab-an-edge-and-pull
routine. I haven't figured out how to disable that. It's probably simple.
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
#
###
# various menu commands.
sub _FileExit_Click { GUI::Show($hwnd); $window->Disable(); $window->Hide;
exit; }
sub _EditCopy_Click { $logbox->SendMessage(0x301,0,0); }
sub _EditSelectAll_Click { $logbox->Select(0,99);}
# hide the window if it's been minimized. the only
# way to get it back would be from the systray icon.
# we need to figure out what to do when people click
# the "X' on the window. minimize? or close the app?
sub _Window_Minimize { $window->Hide(); }
sub _Window_Terminate { Win32::GUI::NotifyIcon::Delete(
$sys_tray_icon->{-parent}, -id => $sys_tray_icon->{-id} ); exit; }
# if the systray icon is clicked, reenable the window.
# if it's right clicked, hide the main window (weird).
sub _Systray_Click { $window->Enable(); $window->Show; }
sub _Systray_RightClick { $window->Disable(); $window->Hide;
_Window_Terminate();}
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
ten to all the crap
that's going on, so it doesn't know that it's supposed to refresh the
screen or listen to your mouseclicks or so forth.
It's not a problem with Win32::GUI or LWP really. Both are doing what
they're supposed to do. And they conflict because of that.
ly... 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/
ly 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://
t 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/
>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 ma
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 g
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.
>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 h
#Select the last thing in the RichEdit
$rePOD->Select(99,99);
#Replace the selection with new text
$rePOD->ReplaceSel("$line\n",1);
Neat idea, but now, instead of seeing the last $message being passed as the
first line of the RichEdit (scrolled to that first line), I see a blank
scree
I'm having difficulty trying to get an autoscrolling RichEdit - I can get
the scroll bar to show up correctly, but all attempts to have the text
automatically scroll up in the RichEdit is failing. In some cases, no
scrolling occurs (although I can see the scroll bar growing), and in
others, scr
> | To my disappoint, the image didn't display.
> That is more than strange. Say, you should make sure you have the latest
> Win32-GUI version. When you do "ppm query" from a DOS prompt, it should
say
> 0.0.558 and NOT 0.99, which has been around for a while.
We actually figured this out about 20
Good day.
I just used the GUI Builder to create a simple script that displayed an
image. I sucked the code for the image and threw it into my "real" code that
use DoEvents and is part of a while loop that does a bunch of other little
things. To my disappoint, the image didn't display.
I finally t
>I don't know if that's the reason for your going batty, but your $logbox
>control doesn't have a name. That's a big no-no. You call DoEvents for the
>first time and GUI doesn't know where to mail the Resize or Show events.
>Maybe that's what causes it to screech, maybe not.
Welp, I gave the blast
_FileExit_Click { GUI::Show($hwnd); $window->Disable(); $window->Hide;
exit; }
sub _EditCopy_Click { my $something_needs_to_happen_here; }
sub _EditSelectAll_Click { my $something_needs_to_happen_here; }
# hide the window if it's been minimized. the only
# way to get it back would be from the systray icon.
# we need to figure out what to do when people click
# the "X' on the window. minimize? or close the app?
sub _Window_Minimize { $window->Hide(); }
sub _Window_Terminate { exit; }
# if the systray icon is clicked, reenable the window.
# if it's right clicked, hide the main window (weird).
sub _Systray_Click { $window->Enable(); $window->Show; }
sub _Systray_RightClick { $window->Disable(); $window->Hide; }
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
my dev machine, but am running pathetically
short on the Windows GUI. Help?!
Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/
59 matches
Mail list logo
