ソースを参照

Amiga, AROS, MorphOS: TMUI_MinMax record types fixed (should be signed)

git-svn-id: trunk@31012 -
marcus 10 年 前
コミット
86c7867c46

+ 6 - 6
packages/amunits/src/otherlibs/mui.pas

@@ -1520,12 +1520,12 @@ uses exec, intuition,utility,agraphics,iffparse;
      { MUI_MinMax structure holds information about minimum, maximum
        and default dimensions of an object.  }
        tMUI_MinMax = record
-            MinWidth : WORD;
-            MinHeight : WORD;
-            MaxWidth : WORD;
-            MaxHeight : WORD;
-            DefWidth : WORD;
-            DefHeight : WORD;
+            MinWidth : SmallInt;
+            MinHeight : SmallInt;
+            MaxWidth : SmallInt;
+            MaxHeight : SmallInt;
+            DefWidth : SmallInt;
+            DefHeight : SmallInt;
          end;
        pMUI_MinMax = ^tMUI_MinMax;
 

+ 10 - 10
packages/arosunits/src/mui.pas

@@ -530,16 +530,16 @@ uses
             ehn_Class : PIClass;
             ehn_Events : LongWord;
          end;
-{$else}         
+{$else}
        tMUI_EventHandlerNode = record
             ehn_Node : TNode;
             ehn_Flags : WORD;
             ehn_Object : PObject_;
             ehn_Class : PIClass;
             ehn_Events : LongWord;
-            ehn_Priority : BYTE;            
+            ehn_Priority : BYTE;
          end;
-{$endif}         
+{$endif}
        pMUI_EventHandlerNode = ^tMUI_EventHandlerNode;
     { flags for ehn_Flags  }
 
@@ -1508,12 +1508,12 @@ uses
      { MUI_MinMax structure holds information about minimum, maximum
        and default dimensions of an object.  }
        tMUI_MinMax = record
-            MinWidth : WORD;
-            MinHeight : WORD;
-            MaxWidth : WORD;
-            MaxHeight : WORD;
-            DefWidth : WORD;
-            DefHeight : WORD;
+            MinWidth : SmallInt;
+            MinHeight : SmallInt;
+            MaxWidth : SmallInt;
+            MaxHeight : SmallInt;
+            DefWidth : SmallInt;
+            DefHeight : SmallInt;
          end;
        pMUI_MinMax = ^tMUI_MinMax;
 
@@ -3469,7 +3469,7 @@ uses
 var
   MUIMasterBase : pLibrary;
 
-function MUI_NewObjectA(class_ : PChar; tags : pTagItem) : PObject_; syscall MUIMasterBase 5; 
+function MUI_NewObjectA(class_ : PChar; tags : pTagItem) : PObject_; syscall MUIMasterBase 5;
 procedure MUI_DisposeObject(obj : PObject_); syscall MUIMasterBase 6;
 function MUI_RequestA(app : Pointer; win : Pointer; flags : LONGBITS; title : PChar; gadgets : PChar; format : PChar; params : Pointer) : LongInt; syscall MUIMasterBase 7;
 function MUI_AllocAslRequest(typ : LongWord; tags : pTagItem) : Pointer; syscall MUIMasterBase 8;

+ 6 - 6
packages/morphunits/src/mui.pas

@@ -1398,12 +1398,12 @@ type
   { MUI_MinMax structure holds information about minimum, maximum
     and default dimensions of an object.  }
   tMUI_MinMax = record
-    MinWidth  : Word;
-    MinHeight : word;
-    MaxWidth  : Word;
-    MaxHeight : Word;
-    DefWidth  : Word;
-    DefHeight : Word;
+    MinWidth  : SmallInt;
+    MinHeight : SmallInt;
+    MaxWidth  : SmallInt;
+    MaxHeight : SmallInt;
+    DefWidth  : SmallInt;
+    DefHeight : SmallInt;
   end;
   pMUI_MinMax = ^tMUI_MinMax;