[lazarus] Patches to Shanes files

[Shane Miller]

hmmm... I'm using {$mode objfpc}
I'll change it and see it that works.

Shane


>>> Payne Thomas E CNIN <PayneTE at cninexchsrv08.crane.navy.mil> 07/07 3:12 PM >>>
FYI

This works with 0.99.12a of win32
----------------------
program test;
{$mode objpas}
uses strings;
var
  newpchar : Pchar;
  stringvar : String;
begin
  stringvar := '>hello<';
  newpchar := StrAlloc(Length(StringVar)+1);
  StrPCopy(newPChar,StringVar);
  writeln(string(newpchar));
end.
----------------------

This does not
---------------------
program test;
{$mode delphi}
uses strings;
var
  newpchar : Pchar;
  stringvar : String;
begin
  stringvar := '>hello<';
  newpchar := StrAlloc(Length(StringVar)+1);
  StrPCopy(newPChar,StringVar);
  writeln(string(newpchar));
end.
---------------------

Tom
> -----Original Message-----
> From:	Shane Miller [SMTP:SMiller1 at stvgb.org] 
> Sent:	Wednesday, July 07, 1999 2:47 PM
> To:	lazarus at miraclec.com 
> Subject:	Re: [lazarus] Patches to Shanes files
> 
> Another thought.  Instead of calling
> InterfaceObject.Callback(some_string,self) 
> should we be using something like LM_CLICKED and LM_SHOW?  That way if the
> names for QT (or other tools) aren't the same as gtk's names the qt folks
> (when writing the interface) should be able to simply use the global
> variables to know what signal we are referring to.
> 
> This would make gtkint.pp have a few more lines   i.e.
> 
> case Message of
>   lm_show : signal := 'show';
>   lm_hide : Signal := 'hide';
>   lm_resize : Signal := 'size-allocate';
> etc.
> 
> 
> 
> Shane
> 
> 
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>     archives at http://www.miraclec.com/list_archives/lazarus 

_________________________________________________________________
     To unsubscribe: mail lazarus-request at miraclec.com with
                "unsubscribe" as the Subject
    archives at http://www.miraclec.com/list_archives/lazarus