18 lines
271 B
Perl
18 lines
271 B
Perl
|
#!/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 ;
|
||
|
|
}
|