Author: pebender
Date: Fri Sep 5 20:57:19 2008
New Revision: 3703
Modified:
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed bug in MiniMyth::x_stop.
- Added MiniMyth::x_screensaver_deactivate.
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums (original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums Fri Sep 5
20:57:19 2008
@@ -1 +1 @@
-0ed399374d018db1344e024bf3e076ff download/MiniMyth.pm
+6c94928798896637080fc5f312fa9324 download/MiniMyth.pm
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
(original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm Fri Sep
5 20:57:19 2008
@@ -2020,6 +2020,21 @@
#===============================================================================
# X functions.
#===============================================================================
+sub x_screensaver_deactivate
+{
+ my $self = shift;
+
+ my $devnull = File::Spec->devnull;
+
+ system(qq(/usr/bin/xset s reset));
+ if ($self->application_running('xscreensaver'))
+ {
+ system(qq(/usr/bin/xscreensaver-command -deactivate > $devnull
2>&1));
+ }
+
+ return 1;
+}
+
sub x_xmacroplay
{
my $self = shift;
@@ -2324,12 +2339,12 @@
}
# Exit X applications that are known not to be started by xinit
- $self->x_applications_exit({ ':everything' => 1 });
- $self->x_applications_kill({ ':everything' => 1 });
- $self->x_applications_dead({ ':everything' => 1 });
+ $self->x_applications_exit(':everything');
+ $self->x_applications_kill(':everything');
+ $self->x_applications_dead(':everything');
# Return mythfrontend to the main menu
- $self->x_applications_exit({ 'mythfrontend' => 1 });
+ $self->x_applications_exit('mythfrontend');
# Create the list of X applications that may have been started by
xinit but are not keeping X alive,
# then them and wait for them to die.
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"minimyth-commits" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/minimyth-commits?hl=en
-~----------~----~----~----~------~----~------~--~---
