Improves Cocoa bindings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@574 8e941d3f-bd1b-0410-a28a-d453659cc2b4

bindings/pascocoa/examples/texteditor/controller.pas

@@ -0,0 +1,115 @@
+{
+ controller.pas
+
+ This example project is released under public domain
+
+ AUTHORS: Felipe Monteiro de Carvalho
+}
+unit controller;
+
+{$mode delphi}{$STATIC ON}
+
+interface
+
+uses
+  Classes, SysUtils, foundation, objc, appkit, MacOSAll;
+
+type
+
+  { TMyController }
+
+  TMyController = class(NSObject)
+  public
+    { Extra binding functions }
+    constructor Create; override;
+    procedure AddMethods; override;
+    { Objective-c Methods }
+    class procedure doClose(_self: objc.id; _cmd: SEL; sender: objc.id); cdecl; //static;
+    class procedure doOpenFile(_self: objc.id; _cmd: SEL; sender: objc.id); cdecl; //static;
+    class procedure doSaveFile(_self: objc.id; _cmd: SEL; sender: objc.id); cdecl; //static;
+    class procedure doSaveFileAs(_self: objc.id; _cmd: SEL; sender: objc.id); cdecl; //static;
+    class function  applicationShouldTerminateAfterLastWindowClosed(_self: objc.id;
+     _cmd: SEL; theApplication: objc.id): cbool; cdecl; //static;
+  end;
+
+const
+  Str_doClose = 'doClose:';
+  Str_doOpenFile = 'doOpenFile:';
+  Str_doSaveFile = 'doSaveFile:';
+  Str_doSaveFileAs = 'doSaveFileAs:';
+  Str_applicationShouldTerminateAfterLastWindowClosed = 'applicationShouldTerminateAfterLastWindowClosed:';
+
+var
+  myController: TMyController;
+
+implementation
+
+uses view;
+
+{ TMyController }
+
+{@@
+  Adds methods to the class
+
+  Details of the parameters string:
+
+  The first parameter is the result (v = void),
+  followed by self and _cmd (@ = id and : = SEL),
+  and on the end "sender" (@ = id)
+}
+procedure TMyController.AddMethods;
+begin
+  AddMethod(Str_doClose, 'v@:@', Pointer(doClose));
+  AddMethod(Str_doOpenFile, 'v@:@', Pointer(doOpenFile));
+  AddMethod(Str_doSaveFile, 'v@:@', Pointer(doSaveFile));
+  AddMethod(Str_doSaveFileAs, 'v@:@', Pointer(doSaveFileAs));
+  AddMethod(Str_applicationShouldTerminateAfterLastWindowClosed, 'b@:@',
+   Pointer(applicationShouldTerminateAfterLastWindowClosed));
+end;
+
+constructor TMyController.Create;
+begin
+  { The class is registered on the Objective-C runtime before the NSObject constructor is called }
+  if not CreateClassDefinition(ClassName(), Str_NSObject) then WriteLn('Failed to create objc class ' + ClassName());
+
+  inherited Create;
+end;
+
+{ Objective-c Methods }
+
+class procedure TMyController.doClose(_self: objc.id; _cmd: SEL; sender: objc.id); cdecl;
+begin
+  myView.MainWindow.close;
+end;
+
+class procedure TMyController.doOpenFile(_self: objc.id; _cmd: SEL;
+  sender: objc.id); cdecl;
+begin
+  { Show dialog }
+
+
+
+  { Now move the contents of the file to the edit control }
+
+end;
+
+class procedure TMyController.doSaveFile(_self: objc.id; _cmd: SEL;
+  sender: objc.id); cdecl;
+begin
+
+end;
+
+class procedure TMyController.doSaveFileAs(_self: objc.id; _cmd: SEL;
+  sender: objc.id); cdecl;
+begin
+
+end;
+
+class function TMyController.applicationShouldTerminateAfterLastWindowClosed(_self: objc.id;
+ _cmd: SEL; theApplication: objc.id): cbool; cdecl;
+begin
+  Result := objc.YES;
+end;
+
+end.
+