Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/Util/Window Group/Windowgroup
Function:
Required plugins for this example: MBS Util Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Util/Window Group/Windowgroup
This example is the version from Sun, 17th Mar 2012.
Project "Windowgroup.rbp"
Class Window1 Inherits Window
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
EventHandler Sub Open() dim g as WindowGroupMBS MakeFloating self,g wg=g End EventHandler
Property Protected wg As windowgroupMBS
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Module Module1
Sub MakeFloating(w as window, byref g as windowgroupMBS) // Create a new WindowGroup const kWindowGroupAttrSelectAsLayer=1 const kWindowGroupAttrMoveTogether=2 const kWindowGroupAttrLayerTogether=4 const kWindowGroupAttrSharedActivation=8 const kWindowGroupAttrHideOnCollapse=16 g=new WindowGroupMBS g.Create 0 // no attributes const kCGBaseWindowLevelKey = 0 const kCGMinimumWindowLevelKey = 1 const kCGDesktopWindowLevelKey = 2 const kCGBackstopMenuLevelKey = 3 const kCGNormalWindowLevelKey = 4 const kCGFloatingWindowLevelKey = 5 const kCGTornOffMenuWindowLevelKey = 6 const kCGDockWindowLevelKey = 7 const kCGMainMenuWindowLevelKey = 8 const kCGStatusWindowLevelKey = 9 const kCGModalPanelWindowLevelKey = 10 const kCGPopUpMenuWindowLevelKey = 11 const kCGDraggingWindowLevelKey = 12 const kCGScreenSaverWindowLevelKey = 13 const kCGMaximumWindowLevelKey = 14 const kCGOverlayWindowLevelKey = 15 const kCGHelpWindowLevelKey = 16 const kCGUtilityWindowLevelKey = 17 const kCGDesktopIconWindowLevelKey = 18 const kCGCursorWindowLevelKey = 19 const kCGAssistiveTechHighWindowLevelKey = 20 const kCGNumberOfWindowLevelKeys = 21 ' Internal bookkeeping; must be last g.Level=g.LevelForKey(kCGFloatingWindowLevelKey) w.WindowGroupMBS=g End Sub
End Module
Class App Inherits Application
End Class
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS Util Plugin.




Links
MBS Xojo Chart Plugins