+ First demo for macos toolbox

demo/macos/HelloMac.pp

@@ -0,0 +1,37 @@
+{$MODE MACPAS}
+{$APPTYPE GUI}
+
+program HelloMac;
+
+{Demo of a simple program which uses the classic Macintosh Toolbox.
+ It also shows how to include a mac style resource file.}
+
+USES
+	MacOS;
+	
+{$R HelloMac.r}
+
+var
+	window: WindowPtr;
+
+begin
+	InitGraf(@qd.thePort);
+	InitFonts;
+	InitWindows;
+	InitMenus;
+	TEInit;
+	InitDialogs(nil);
+	InitCursor;
+
+	window:= GetNewWindow(128, nil, WindowPtr(-1));
+	if window <> nil then
+		begin
+			SetPort(window);
+			MoveTo(20,20);
+			DrawString('Hello Free Pascal on the Mac :-)');
+
+			repeat
+			until Button;
+		end;
+		
+end.

demo/macos/HelloMac.r

@@ -0,0 +1,5 @@
+data 'WIND' (128) {
+	$"0040 0027 00D0 0131 0000 0100 0000 0000"
+	$"0000 0848 656C 6C6F 4D61 63"
+};
+