xenocara/app/fvwm/extras/FvwmCommand/test1.pl

18 lines
271 B
Perl
Raw Normal View History

#!/usr/bin/perl
# arg1 t to invoke FvwmTalk
# td to kill FvwmTalk
# none to move windows
use FvwmCommand;
if( $ARGV[0] eq 't' ) {
Desk ( 0,1);
GotoPage (1, 1);
Module (FvwmTalk);
}elsif( $ARGV[0] eq 'td' ) {
KillModule (FvwmTalk);
}else {
Move ;
}