Alb42: top align, align lines to each other

2016-12-18T15:56:19Z

top align, align lines to each other

Alb42: Comparison C-macro code with Pascal MuiHelper code

2016-12-18T15:45:15Z

Comparison C-macro code with Pascal MuiHelper code

New page

This Page describe how to write MUI/Zune application in FreePascal comparable to C-Sources with the MUI macros. The needed functions for it are collected inside muihelper unit in the ami-extra package. Therefore this unit should be available for all Amiga-style systems.
<hr>
Comparison C with Macros and Pascal with muihelper unit:
{| class="wikitable"
|-
! C-Source with Macros (balance example from MUI developer archive)
! Pascal-Source with muihelper unit
|-
|<source lang="C">
#include "demo.h"

int main(int argc,char *argv[])
{
APTR app,window;

init();

app = ApplicationObject,
MUIA_Application_Title , "BalanceDemo",
MUIA_Application_Version , "$VER: BalanceDemo 19.5 (12.02.97)",
MUIA_Application_Copyright , "©1995, Stefan Stuntz",
MUIA_Application_Author , "Stefan Stuntz",
MUIA_Application_Description, "Show balancing groups",
MUIA_Application_Base , "BALANCEDEMO",

SubWindow, window = WindowObject,
MUIA_Window_Title, "Balancing Groups",
MUIA_Window_ID , MAKE_ID('B','A','L','A'),
MUIA_Window_Width , MUIV_Window_Width_Screen(50),
MUIA_Window_Height, MUIV_Window_Height_Screen(50),

WindowContents, HGroup,

Child, VGroup, GroupFrame, MUIA_Weight, 15,
Child, RectangleObject, TextFrame, MUIA_Weight, 50, End,
Child, RectangleObject, TextFrame, MUIA_Weight, 100, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, MUIA_Weight, 200, End,
End,

Child, BalanceObject, MUIA_CycleChain, 1, End,

Child, VGroup,
Child, HGroup, GroupFrame,
Child, RectangleObject, TextFrame, MUIA_ObjectID, 123, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, MUIA_ObjectID, 456, End,
End,
Child, HGroup, GroupFrame,
Child, RectangleObject, TextFrame, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, End,
End,
Child, HGroup, GroupFrame,
Child, HGroup,
Child, RectangleObject, TextFrame, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, End,
End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, HGroup,
Child, RectangleObject, TextFrame, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, End,
End,
End,
Child, HGroup, GroupFrame,
Child, RectangleObject, TextFrame, MUIA_Weight, 50, End,
Child, RectangleObject, TextFrame, MUIA_Weight, 100, End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, RectangleObject, TextFrame, MUIA_Weight, 200, End,
End,
Child, HGroup, GroupFrame,
Child, SimpleButton("Also"),
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, SimpleButton("Try"),
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, SimpleButton("Sizing"),
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, SimpleButton("With"),
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, SimpleButton("Shift"),
End,
Child, HGroup, GroupFrame,
Child, Label("Label 1:"),
Child, TextObject, MUIA_Text_Contents, "data...", End,
Child, BalanceObject, MUIA_CycleChain, 1, End,
Child, Label("Label 2:"),
Child, TextObject, MUIA_Text_Contents, "more data...", End,
End,
End,
End,
End,
End;
if (!app)
fail(app,"Failed to create Application.");

DoMethod(window,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,
app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
/*
** This is the ideal input loop for an object oriented MUI application.
** Everything is encapsulated in classes, no return ids need to be used,
** we just check if the program shall terminate.
** Note that MUIM_Application_NewInput expects sigs to contain the result
** from Wait() (or 0). This makes the input loop significantly faster.
*/
set(window,MUIA_Window_Open,TRUE);
{
ULONG sigs = 0;

while (DoMethod(app,MUIM_Application_NewInput,&sigs) != MUIV_Application_ReturnID_Quit)
{
if (sigs)
{
sigs = Wait(sigs | SIGBREAKF_CTRL_C);
if (sigs & SIGBREAKF_CTRL_C) break;
}
}
}

set(window,MUIA_Window_Open,FALSE);
/*
** Shut down...
*/
fail(app,NULL);
}
</source>
|<source lang="pascal">
program balancing;
uses
Exec, Utility, intuition, AmigaDos, mui, muihelper;
procedure StartMe;
var
App, Window: PObject_;
Sigs: LongInt;
begin
app := MH_Application([
MUIA_Application_Title, AsTag('BalanceDemo'),
MUIA_Application_Version, AsTag('$VER: BalanceDemo 19.5 (12.02.97)'),
MUIA_Application_Copyright, AsTag('©1995, Stefan Stuntz'),
MUIA_Application_Author, AsTag('Stefan Stuntz'),
MUIA_Application_Description, AsTag('Show balancing groups'),
MUIA_Application_Base, AsTag('BALANCEDEMO'),

SubWindow, AsTag(MH_Window(Window, [
MUIA_Window_Title, AsTag('Balancing Groups'),
MUIA_Window_ID, MAKE_ID('B','A','L','A'),
MUIA_Window_Width , MUIV_Window_Width_Screen(50),
MUIA_Window_Height, MUIV_Window_Height_Screen(50),

WindowContents, AsTag(MH_HGroup([

Child, AsTag(MH_VGroup(GroupFrame, [MUIA_Weight, 15,
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_Weight, 50, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_Weight, 100, TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_Weight, 200, TAG_END])),
TAG_END])),

Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),

Child, AsTag(MH_VGroup([
Child, AsTag(MH_HGroup(GroupFrame, [
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_ObjectID, 123, TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_ObjectID, 456, TAG_END])),
TAG_END])),
Child, AsTag(MH_HGroup(GroupFrame, [
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
TAG_END])),

Child, AsTag(MH_HGroup(GroupFrame, [
Child, AsTag(MH_HGroup([
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_HGroup([
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
TAG_END])),
TAG_END])),
Child, AsTag(MH_HGroup(GroupFrame, [
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_Weight, 50, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_Weight, 100, TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Rectangle(TextFrame, [MUIA_Weight, 200, TAG_END])),
TAG_END])),
Child, AsTag(MH_HGroup(GroupFrame, [
Child, AsTag(MH_SimpleButton('Also')),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_SimpleButton('Try')),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_SimpleButton('Sizing')),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_SimpleButton('With')),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_SimpleButton('Shift')),
TAG_END])),
Child, AsTag(MH_HGroup(GroupFrame, [
Child, AsTag(MH_Label('Label 1:')),
Child, AsTag(MH_Text('data...', [TAG_END])),
Child, AsTag(MH_Balance([MUIA_CycleChain, 1, TAG_END])),
Child, AsTag(MH_Label('Label 2:')),
Child, AsTag(MH_Text('more data...', [TAG_END])),
TAG_END])),
TAG_END])),
TAG_END])),
TAG_END])),

TAG_END]);

if not Assigned(app) then
begin
writeln('Failed to create Application');
Exit;
end;

DoMethod(window, [MUIM_Notify, MUIA_Window_CloseRequest, MUI_TRUE,
AsTag(app), 2, AsTag(MUIM_Application_ReturnID), AsTag(MUIV_Application_ReturnID_Quit)]);

// This is the ideal input loop for an object oriented MUI application.
// Everything is encapsulated in classes, no return ids need to be used,
// we just check if the program shall terminate.
// Note that MUIM_Application_NewInput expects sigs to contain the result
// from Wait() (or 0). This makes the input loop significantly faster.
MH_Set(Window, MUIA_Window_Open, AsTag(True));
//
if MH_Get(Window, MUIA_Window_Open) <> 0 then
begin
while Integer(DoMethod(app, [MUIM_Application_NewInput, AsTag(@sigs)])) <> MUIV_Application_ReturnID_Quit do
begin
if Sigs <> 0 then
begin
Sigs := Wait(sigs or SIGBREAKF_CTRL_C);
if (Sigs and SIGBREAKF_CTRL_C) <>0 then
Break;
end;
end;
end;
//Shut down...
MH_Set(Window, MUIA_Window_Open, AsTag(True));

MUI_DisposeObject(app);
end;

begin
StartMe;
end.
</source>
|}

@@ Line 6: / Line 6: @@
 ! C-Source with Macros (balance example from MUI developer archive)
 ! Pascal-Source with muihelper unit
-|-
+|- style="vertical-align: top;"
 |<source lang="C">
 #include "demo.h"
@@ Line 99: / Line 99: @@
        End,
      End;
    if (!app)
      fail(app,"Failed to create Application.");
    DoMethod(window,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,
@@ Line 121: / Line 125: @@
          sigs = Wait(sigs | SIGBREAKF_CTRL_C);
          if (sigs & SIGBREAKF_CTRL_C) break;
+       }
+     }
@@ Line 183: / Line 188: @@
              Child, AsTag(MH_Rectangle(TextFrame, [TAG_END])),
              TAG_END])),
            Child, AsTag(MH_HGroup(GroupFrame, [
              Child, AsTag(MH_HGroup([
@@ Line 224: / Line 228: @@
          TAG_END])),
        TAG_END])),
      TAG_END]);
@@ Line 241: / Line 244: @@
    // Note that MUIM_Application_NewInput expects sigs to contain the result
    // from Wait() (or 0). This makes the input loop significantly faster.
    MH_Set(Window, MUIA_Window_Open, AsTag(True));
    //

MUI Helper - Revision history

Alb42: top align, align lines to each other

Alb42: Comparison C-macro code with Pascal MuiHelper code