[Gambas-user] Shell commands

[Juan Ibaceta]

I resend it  because I added a zip file and it was rejected by the mail-list 
program. I don't know which files I have to add to make it work in another PC 
but I added the executable file "xw", the class file and the form, the icon 
file is part of the program.
I hope it works.
---------------------------------------------------------------------------------------------------/
First email:

Hi Arturo
Long ago I did a program to manage a commad line program to generate waves on 
your desktop.
It is not well coded but at least it works. (it was just a test)
here it is the line that you need:

EXEC ["xdesktopwaves","-q",Trim(ComboBox1.Text)]

Here you can see how I passed the line without spaces, gambas manages the 
spaces without problems. The trim command is used to get text form a combobox 
and format it without spaces (I don't remember very well, but I think it is 
for doing that).
I will try to add the source of my program and the executable file to show you 
how it works.

You need to have Xdesktopwaves version 1.3 installed in you PC 
(http://xdesktopwaves.sourceforge.net/)

I hope you can see it and you enjoy it.
Regards
Juan
/----------------------------------------------
Linux user number 395903  
At http://counter.li.org/

Visit my Photo-blog and post your comments
http://juan_pictures.blogspot.com/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Xwaves.class
Type: application/x-java
Size: 4183 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20051109/22c1dc9f/attachment.bin>
-------------- next part --------------
# Gambas Form File 1.0

{ Xwaves Form
  Move(146,90,217,258)
  Text = ("")
  Icon = Picture["cp_icon_bottle9.gif"]
  Border = Window.Fixed
  { ComboBox1 ComboBox
    Move(120,16,48,24)
    Text = (" ")
  }
  { ComboBox2 ComboBox
    Move(120,48,48,24)
    Text = (" ")
  }
  { Label1 Label
    Move(16,16,104,24)
    Text = ("Quality")
    Border = Border.Sunken
  }
  { Label2 Label
    Move(16,48,104,24)
    Text = ("Storm")
    Border = Border.Sunken
  }
  { StartWaves Button
    Move(16,176,88,32)
    Text = ("Waves")
    Default = True
  }
  { EndWaves Button
    Move(16,216,88,32)
    Text = ("End Waves")
  }
  { Label20 Label
    Move(16,144,104,24)
    Text = ("ColorTheme")
    Border = Border.Sunken
  }
  { Label28 Label
    Move(16,80,104,24)
    Text = ("Rain")
    Border = Border.Sunken
  }
  { Label30 Label
    Move(16,112,104,24)
    Text = ("Viscosity")
    Border = Border.Sunken
  }
  { CloseBtn Button
    Move(112,192,88,32)
    Text = ("Close")
  }
  { ComboBox8 ComboBox
    Move(120,80,48,24)
    Text = (" ")
  }
  { ComboBox9 ComboBox
    Move(120,112,48,24)
    Text = (" ")
  }
  { ComboBox10 ComboBox
    Move(120,144,48,24)
    Text = ("")
  }
}
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cp_icon_bottle9.gif
Type: image/gif
Size: 2259 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20051109/22c1dc9f/attachment.gif>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: xw
Type: application/octet-stream
Size: 5770 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20051109/22c1dc9f/attachment.obj>