Author: jerome
Date: 2008-07-25 23:43:25 +0200 (Fri, 25 Jul 2008)
New Revision: 1360
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/branches/
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/tuxdroid-freepascal-gadget-HelloWorld.tgf
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/pascalHelloWorld.exe
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/HelloWorld.png
Log:
Added pascal hello world gadget with complete lazarus project.
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/tuxdroid-freepascal-gadget-HelloWorld.tgf
===================================================================
(Binary files differ)
Property changes on:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/tags/tuxdroid-freepascal-gadget-HelloWorld.tgf
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml
===================================================================
---
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml
(rev 0)
+++
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/gadgets.xml
2008-07-25 21:43:25 UTC (rev 1360)
@@ -0,0 +1,24 @@
+<gadgets>
+ <gadget>
+ <interpreter
+ kind="bash">
+ <executable>pascalHelloWorld.exe</executable>
+ </interpreter>
+ <description>
+ <name>HelloWorld free pascal Sample Gadget</name>
+ <description>This gadget throws a simple Hello World
notification in pascal</description>
+ <author>jerome conan</author>
+ <version>1.0</version>
+ <iconFile>resources/HelloWorld.png</iconFile>
+ <executionMode>command</executionMode>
+ <uuid>548f7a9a-567c-423e-a0dd-102ff68a4444</uuid>
+ </description>
+ <parameters>
+ <parameter
+ name="message"
+ description="Message sent when I'm saying hello"
+ type="string"
+ defaultValue="Hello world in pascal" />
+ </parameters>
+ </gadget>
+</gadgets>
\ No newline at end of file
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/pascalHelloWorld.exe
===================================================================
(Binary files differ)
Property changes on:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/pascalHelloWorld.exe
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi
===================================================================
---
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi
(rev 0)
+++
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpi
2008-07-25 21:43:25 UTC (rev 1360)
@@ -0,0 +1,62 @@
+<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <PathDelim Value="\"/>
+ <Version Value="6"/>
+ <General>
+ <MainUnit Value="0"/>
+ <TargetFileExt Value=".exe"/>
+ <ActiveEditorIndexAtStart Value="0"/>
+ </General>
+ <VersionInfo>
+ <ProjectVersion Value=""/>
+ <Language Value=""/>
+ <CharSet Value=""/>
+ </VersionInfo>
+ <PublishOptions>
+ <Version Value="2"/>
+ <IgnoreBinaries Value="False"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus
Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <Units Count="1">
+ <Unit0>
+ <Filename Value="project1.lpr"/>
+ <IsPartOfProject Value="True"/>
+ <UnitName Value="project1"/>
+ <CursorPos X="17" Y="1"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="0"/>
+ <UsageCount Value="20"/>
+ <Loaded Value="True"/>
+ </Unit0>
+ </Units>
+ <JumpHistory Count="0" HistoryIndex="-1"/>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="5"/>
+ <PathDelim Value="\"/>
+ <CodeGeneration>
+ <Generate Value="Faster"/>
+ </CodeGeneration>
+ <Other>
+ <CompilerPath Value="$(CompPath)"/>
+ </Other>
+ </CompilerOptions>
+ <Debugging>
+ <Exceptions Count="2">
+ <Item1>
+ <Name Value="ECodetoolError"/>
+ </Item1>
+ <Item2>
+ <Name Value="EFOpenError"/>
+ </Item2>
+ </Exceptions>
+ </Debugging>
+</CONFIG>
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr
===================================================================
---
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr
(rev 0)
+++
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/project1.lpr
2008-07-25 21:43:25 UTC (rev 1360)
@@ -0,0 +1,76 @@
+program project1;
+
+{$mode objfpc}{$H+}
+
+uses
+ {$IFDEF UNIX}{$IFDEF UseCThreads}
+ cthreads,
+ {$ENDIF}{$ENDIF}
+ Classes, SysUtils, CustApp, dos
+ { you can add units after this };
+
+type
+
+ { TMyApplication }
+
+ TMyApplication = class(TCustomApplication)
+ protected
+ procedure DoRun; override;
+ public
+ constructor Create(TheOwner: TComponent); override;
+ destructor Destroy; override;
+ procedure WriteHelp; virtual;
+ end;
+
+{ TMyApplication }
+
+procedure TMyApplication.DoRun;
+var
+ ErrorMsg: String;
+ messages: String;
+begin
+ messages := 'message ' + GetEnv('tgp_message');
+ writeln(messages);
+ // quick check parameters
+ ErrorMsg:=CheckOptions('h','help');
+ if ErrorMsg<>'' then begin
+ ShowException(Exception.Create(ErrorMsg));
+ Halt;
+ end;
+
+ // parse parameters
+ if HasOption('h','help') then begin
+ WriteHelp;
+ Halt;
+ end;
+
+ // stop program loop
+ Terminate;
+end;
+
+constructor TMyApplication.Create(TheOwner: TComponent);
+begin
+ inherited Create(TheOwner);
+ StopOnException:=False;
+end;
+
+destructor TMyApplication.Destroy;
+begin
+ inherited Destroy;
+end;
+
+procedure TMyApplication.WriteHelp;
+begin
+ { add your help code here }
+ writeln('Usage: ',ExeName,' -h');
+end;
+
+var
+ Application: TMyApplication;
+begin
+ Application:=TMyApplication.Create(nil);
+ Application.Title:='My Application';
+ Application.Run;
+ Application.Free;
+end.
+
Added:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/HelloWorld.png
===================================================================
(Binary files differ)
Property changes on:
software_suite_v2/software/gadgets/tuxdroid-pascal-gadget-HelloWorld/trunk/resources/HelloWorld.png
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
