Window Buttons Will Not Align When Using Corner Parameters

[rcfjr]

When laying out widow buttons, that requires exact placement, they are not aligned with each other. I have attached a short program to illustrate the issue.  When run:

• UR buttons do not align with UR buttons
  
• UR buttons do not align with LR buttons
• LR buttons do not align with LL buttons
• LL buttons cannot reference Lower-Left corner
  
• UL buttons do not align with each other

Here is an example code to show the issue. Resize the window to bring example corner buttons together:

'window alignment test

nomainwin



WindowWidth = 300

WindowHeight = 300

UpperLeftX = 500

UpperLeftY = 200



button #test.ok1, "UR", [clicked], UR, 0, 0, 28, 28

button #test.ok2, "UR", [clicked], UR, 30, 0, 28, 28

button #test.ok3, "UR", [clicked], UR, 0, 30, 28, 28

button #test.ok4, "LR", [clicked], LR, 0, 0, 28, 28

button #test.ok5, "LR", [clicked], LR, 30, 0, 28, 28

button #test.ok6, "LR", [clicked], LR, 0, 30, 28, 28

button #test.ok7, "UL", [clicked], UL, 0, 0, 28, 28

button #test.ok8, "UL", [clicked], UL, 30, 0, 28, 28

button #test.ok9, "UL", [clicked], UL, 0, 30, 28, 28

button #test.ok10, "LL", [clicked], LL, 0, 0, 28, 28

button #test.ok11, "LL", [clicked], LL, 30, 0, 28, 28

button #test.ok12, "LL", [clicked], LL, 0, 30, 28, 28

button #test.ok13, "OO", [clicked], UR, 30, 30, 28, 28

button #test.ok14, "OO", [clicked], UR, 60, 30, 28, 28

button #test.ok15, "OO", [clicked], UR, 30, 60, 28, 28

button #test.ok16, "OO", [clicked], LR, 30, 30, 28, 28

button #test.ok17, "OO", [clicked], LR, 60, 30, 28, 28

button #test.ok18, "OO", [clicked], LR, 30, 60, 28, 28

button #test.ok13, "OO", [clicked], UL, 30, 60, 28, 28

button #test.ok14, "OO", [clicked], UL, 30, 30, 28, 28

button #test.ok15, "OO", [clicked], UL, 60, 30, 28, 28

button #test.ok16, "OO", [clicked], LL, 30, 30, 28, 28

button #test.ok17, "OO", [clicked], LL, 60, 30, 28, 28

button #test.ok18, "OO", [clicked], LL, 30, 60, 28, 28



open "Alignment Test Window!" for window as #test



wait



[clicked]

close #test

end

[Rod]

Yes, long time bug. It defaults to UL so we mostly just do our maths on that anchor. It has been fixed for v5 but that is a while off.

[Rod]

Here is the old bug report.

Buttons are misplaced, if a different anchor is used

Description
Placing four buttons within a rectangle will result in different locations in respect to the window border.

Example code to demonstrate the bug.
nomainwin
WindowWidth = 400
WindowHeight = 300
UpperLeftX = (DisplayWidth- WindowWidth) /2
UpperLeftY = (DisplayHeight- WindowHeight) /2
BUTTON #a, "aaaa", [none], UL, 35, 20
BUTTON #a, "bbbb", [none], UR, 35, 20
BUTTON #a, "cccc", [none], LL, 35, 20
BUTTON #a, "dddd", [none], LR, 35, 20
open "sample" for graphics_nsb as #a
#a "trapclose [a.quit]"
#a "down"
#a "fill Yellow"
#a "home"
#a "posxy CenterX CenterY"
#a "place 35 20"
#a "backcolor blue"
#a "boxfilled "; CenterX * 2 - 35; " "; CenterY * 2 - 20
#a "flush"
[none]
wait

[a.quit]
close #a
end

Example code to work around the bug.
nomainwin
WindowWidth = 400
WindowHeight = 300
UpperLeftX = (DisplayWidth- WindowWidth) /2
UpperLeftY = (DisplayHeight- WindowHeight) /2
BUTTON #a, "aaaa", [none], UL, 35, 20
BUTTON #a, "bbbb", [none], UR, 35+11, 20 '
BUTTON #a, "cccc", [none], LL, 35, 20-15 ' <<--- these three need an offset to be correct
BUTTON #a, "dddd", [none], LR, 35+17, 20 '
open "sample" for graphics_nsb as #a
#a "trapclose [a.quit]"
#a "down"
#a "fill Yellow"
#a "home"
#a "posxy CenterX CenterY"
#a "place 35 20"
#a "backcolor blue"
#a "boxfilled "; CenterX * 2 - 35; " "; CenterY * 2 - 20
#a "flush"
[none]
wait

[a.quit]
close #a
end

[Brandon Parker]

Jan 11, 2022 10:32:55 GMT Rod said:

Yes, long time bug. It defaults to UL so we mostly just do our maths on that anchor. It has been fixed for v5 but that is a while off.

Rod obviously meant that the issue has been resolved in Liberty BASIC v5 ...


{:0)

Brandon Parker

[rcfjr]

Rod, Brandon, thanks for the quick reply. And I was getting to think it was me. So, the fix is in, but not to JustBASIC. Usually, the test drive was an example of the real thing. Using UL only(!)(?). I guess it's onward to reviewing JustBASIC and pushing it to its limits. I would be nice if it didn't have these bugs. Then a REAL evaluation could take place before purchase. Again, thanks boys!

[Brandon Parker]

You bet...!

Give Just BASIC a good spinning of the wheels! Also, head on over to the Liberty BASIC forum and see what we are up to there. Obviously, it is highly dependent on what you plan to achieve, but in my opinion, you can not go wrong with Just BASIC or its more capable, bigger brother Liberty BASIC.


{:0)

Brandon Parker