SetSystrayWidth

[mk-soft]

Change Systray width for Mac OS
I missing SysTrayID, but you can get it over IsSystrayIcon. (PB-Internal)

Code: Select all

; PB-Internal
Macro SystrayID(Systray)
  PeekI(IsSysTrayIcon(Systray))
EndMacro

Procedure SetSystrayWidth(Systray, Width)
  Protected StatusItem, ItemLength.cgfloat
  ItemLength = Width
  StatusItem = CocoaMessage(0, SystrayID(Systray), "retain")
  CocoaMessage(0, StatusItem, "setLength:@", @ItemLength)
EndProcedure

[deseven]

If you don't want to calculate anything you can use NSVariableStatusItemLength (-1) as a width.