home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/puppybasic
- include "/usr/lib/wxbasicscript/basefunctions.inc"
-
-
- progdir = "/usr/local/Puppybackground/"
-
- arg = argvtostring()
-
- arg = replace( arg , "-quiet " , "" )
- arg = replace( arg , "-onroot " , "" )
- arg = replace( arg , "-fitscreen " , "-fit ")
- arg = replace( arg , "-fullscreen " , "-fit ")
- arg = replace( arg , "-fillscreen " , "-stretch ")
-
-
- arg = trim(arg)
- if left (arg , 1) != "-" then
- arg = "-tile " & arg
- end if
-
-
- shell ( "/usr/local/Puppybackground/resource/puppybackgroundsetterwrapper " & arg )
-
-