Intuition Menus

[Steam Ranger]

How do I set the background colour of the menu bar and menu items? Thanks!

[Thomas Richter]

You can't. Intuition only offers two layouts, the 2.0 layout (black background with pen 1, text with pen 0), or the new style rendering (white background, black text).

[Steam Ranger]

Originally Posted by Thomas Richter

You can't. Intuition only offers two layouts, the 2.0 layout (black background with pen 1, text with pen 0), or the new style rendering (white background, black text).

I want white background with black text, but the menu seems to be using the 2.0 layout.

Image 2 is my program, I want it to look like image 1.

[DisasterIncarna]

are you using the window flag WFLG_NEWLOOKMENUS ? my program had crappy looking old menus style till i enabled that flag.

[Steam Ranger]

Originally Posted by DisasterIncarna

are you using the window flag WFLG_NEWLOOKMENUS ? my program had crappy looking old menus style till i enabled that flag.

What's the assembly equivelant?

[a/b]

For a KS3.0+ 3D look you could also try setting the pens tag (KS2.0+ but it will work in KS1.3 fine because it's ignored), at the end of ExtNewScreen (right after gadgets and custom bitmap) and ExtNewWindow (right after screen type) structures, set a pointer to tags. Something like:

MyNewScreen:
...
  DC.L 0,0  ; gadgets, custom bitmap
  DC.L MyTags  ; v36+

MyNewWindow:
...
  DC.W CUSTOMSCREEN  ; screen type
  DC.L MyTags  ; v36+

MyTags:
  DC.L SA_Pens,MyPens
  DC.L TAG_END

MyPens:
  DC.W ~0

Also, WFLG_NEWLOOKMENUS is assembly symbol ($00200000), you OR (|) it with the other flags in the ExtNewWindow structure.

[Steam Ranger]

Originally Posted by a/b

For a KS3.0+ 3D look you could also try setting the pens tag (KS2.0+ but it will work in KS1.3 fine because it's ignored), at the end of ExtNewScreen (right after gadgets and custom bitmap) and ExtNewWindow (right after screen type) structures, set a pointer to tags. Something like:

MyNewScreen:
...
  DC.L 0,0  ; gadgets, custom bitmap
  DC.L MyTags  ; v36+

MyNewWindow:
...
  DC.W CUSTOMSCREEN  ; screen type
  DC.L MyTags  ; v36+

MyTags:
  DC.L SA_Pens,MyPens
  DC.L TAG_END

MyPens:
  DC.W ~0

Also, WFLG_NEWLOOKMENUS is assembly symbol ($00200000), you OR (|) it with the other flags in the ExtNewWindow structure.

I'll be more specific. I have a program that runs exclusively on workbench. It's menus are grey, wheras most workbench programs have white menus.
I want my programs menus to be white aswell, how do I achieve this? (Using standard WB screen)

[a/b]

Which detail/block pen and flags do you specify for your window when you're creating it?

Also, forgot to mention you also have to use the NS_EXTENDED (screen) and WFLG_NW_EXTENDED (window) flag to set the tags as I described above. And ignore the whole screen part of it if you're using a public/wb screen.

[Steam Ranger]

I just realised changing the block pen works to change menu colour. Thanks.

[Steam Ranger]

I want to make it so that when a menu item is selected, it's white on black, but using the complement highlight it turns from black on white to blue on green, how do I fix this?

[Steam Ranger]

Also, in the menu for the clock app there are these squigly lines in the menu. How do I do that?

[a/b]

Originally Posted by Steam Ranger

Also, in the menu for the clock app there are these squigly lines in the menu. How do I do that?

That's a separator... Set menu item's mi_ItemFill to point to an Image struct instead of IntuiText, and set menu item's flags to HIGHNONE (meaning: gfx item, disabled, no highlight).
Image struct should be something like:

  DC.W 2,2  ; top offset, left offset
  DC.W 100,2  ; width, height
  DC.W 2  ; depth
  DC.L 0  ; image
  DC.B 0,DETAILPEN  ; plane pick, plane on/off
  DC.L 0  ; next

Or if you are using gadtools library to create menus, set label to NM_BARLABEL.

[Steam Ranger]

Originally Posted by a/b

That's a separator... Set menu item's mi_ItemFill to point to an Image struct instead of IntuiText, and set menu item's flags to HIGHNONE (meaning: gfx item, disabled, no highlight).
Image struct should be something like:

  DC.W 2,2  ; top offset, left offset
  DC.W 100,2  ; width, height
  DC.W 2  ; depth
  DC.L 0  ; image
  DC.B 0,DETAILPEN  ; plane pick, plane on/off
  DC.L 0  ; next

Or if you are using gadtools library to create menus, set label to NM_BARLABEL.

Thanks, I'll try that. But also how do I give the menu the "New Look"? Because I can't figure out how.

[a/b]

Uhm, it should work automagically?
I typically want my stuff to look like WB so I use "defaults" and have no problems... DETAILPEN and BLOCKPEN as window pens, WFLG_NEWLOOKMENUS added to flags. I get what I'm expecting visually, nothing looks mismatched compared to other apps and WB, in KS1.3/2.x/3.x (and also with MagicMenu).
Post relevant code or exe?

[Steam Ranger]

Oh I was being stupid.

My assembly includes are pre-v36, so the new menu define was missing and when I added it in I added $2000000 instead of $200000. Thanks for the help.

[Steam Ranger]

When I get a MENUPICK type message, where's the actual data?

if (number == MENUNULL) {...} else {
MenuNumber = MENUNUM(number);
ItemNumber = ITEMNUM(number);
SubNumber = SUBNUM(number);
}

How do I get number?

[a/b]

Use _LVOItemAddress() with a0 = menu strip and d0.w = im_Code from the message to locate the selected menu item. Or in C something like ItemAddress(menu_strip,msg->im_Code).
Number is im_Code, but you don't have to deal with that (just let the intuition do the work).

[Steam Ranger]

How do I make a workbench-standard file requester?

[koobo]

Originally Posted by Steam Ranger

How do I make a workbench-standard file requester?

You probably need to check out the ASL library docs: http://amigadev.elowar.com/read/ADCD.../node017B.html

[Steam Ranger]

Unrelated, but how do I lock a file so that neither the user nor any other proccess can edit it? It can still be read by other proccesses, though.