> > From: "Jens Luedicke" <[EMAIL PROTECTED]>
> > Surely need a dirty flag. :-)
> By the way, what is a dirty flag?
sub Changed() { $dirty=1 } #user changed the text changed
theoretically
but sub Schreibfeld_Changed() doesn't fire hmmmm....
> > Console box remains on top after opening a file..
> > lose the console box
> What do you mean with that ?
my $h=findWindow('perl'); #grab the console box and vanish it
GUI::CloseWindow($h) if ($h);
sub findWindow {
my $t= shift;
my $desktop = GUI::GetDesktopWindow() or return;
my $window = GUI::GetWindow($desktop, GW_CHILD);
while($window) {
my $title = GUI::Text($window);
if($title and GUI::IsVisible($window)) {
last if $title=~/$t/i;
}
$window = GUI::GetWindow($window, GW_HWNDNEXT);
}
return $window;
}
> > If I switch to another application and switch back the cursor is
> > lost.
> If you know how to change that, tell me how :-))
Ah, I see... looks like we have to find the cursor first. :-(
and I can't get the GotFocus() event to fire :-(
Rob
http://bangkokwizard.com/
and thats as far as it goes this morning
