Xojo Conferences
XDCMay2019MiamiUSA
MBSOct2019CologneDE

Platforms to show: All Mac Windows Linux Cross-Platform

/MacClassic/Window functions
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: /MacClassic/Window functions
This example is the version from Sun, 17th Mar 2012.
Project "Window functions.rbp"
Class Window1 Inherits Window
Control CheckModified Inherits CheckBox
ControlInstance CheckModified Inherits CheckBox
EventHandler Sub Action() self.ModifiedMBS=me.value me.value=self.ModifiedMBS End EventHandler
End Control
Control CheckHasCloseBox Inherits CheckBox
ControlInstance CheckHasCloseBox Inherits CheckBox
EventHandler Sub Action() self.HasCloseBoxMBS=me.value End EventHandler
EventHandler Sub Open() me.value=self.HasCloseBoxMBS End EventHandler
End Control
Control CheckHasHorizontalZoomButton Inherits CheckBox
ControlInstance CheckHasHorizontalZoomButton Inherits CheckBox
EventHandler Sub Action() self.HasHorizontalZoomButtonMBS=me.value me.value=self.HasHorizontalZoomButtonMBS End EventHandler
EventHandler Sub Open() me.value=self.HasHorizontalZoomButtonMBS End EventHandler
End Control
Control CheckHasVerticalZoomButton Inherits CheckBox
ControlInstance CheckHasVerticalZoomButton Inherits CheckBox
EventHandler Sub Action() self.HasVerticalZoomButtonMBS=me.value me.value=self.HasVerticalZoomButtonMBS End EventHandler
EventHandler Sub Open() me.value=self.HasVerticalZoomButtonMBS End EventHandler
End Control
Control CheckHasCollapseBox Inherits CheckBox
ControlInstance CheckHasCollapseBox Inherits CheckBox
EventHandler Sub Action() self.HasCollapseBoxMBS=me.value me.value=self.HasCollapseBoxMBS End EventHandler
EventHandler Sub Open() me.value=self.HasCollapseBoxMBS End EventHandler
End Control
Control CheckIsResizeable Inherits CheckBox
ControlInstance CheckIsResizeable Inherits CheckBox
EventHandler Sub Action() self.IsResizableMBS=me.value me.value=self.IsResizableMBS End EventHandler
EventHandler Sub Open() me.value=self.IsResizableMBS End EventHandler
End Control
Control CheckHasNoShadow Inherits CheckBox
ControlInstance CheckHasNoShadow Inherits CheckBox
EventHandler Sub Action() self.HasNoShadowMBS=me.value 'me.value=self.HasNoShadowMBS End EventHandler
EventHandler Sub Open() me.value=self.HasNoShadowMBS End EventHandler
End Control
Control CheckHasToolbarButton Inherits CheckBox
ControlInstance CheckHasToolbarButton Inherits CheckBox
EventHandler Sub Action() self.HasToolbarButtonMBS=me.value me.value=self.HasToolbarButtonMBS End EventHandler
End Control
Control CheckHasSideTitlebar Inherits CheckBox
ControlInstance CheckHasSideTitlebar Inherits CheckBox
EventHandler Sub Action() self.HasSideTitlebarMBS=me.value me.value=self.HasSideTitlebarMBS End EventHandler
End Control
Control CheckCanLiveResize Inherits CheckBox
ControlInstance CheckCanLiveResize Inherits CheckBox
EventHandler Sub Action() self.CanLiveResizeMBS=me.value 'me.value=self.CanLiveResizeMBS End EventHandler
EventHandler Sub Open() me.value=self.CanLiveResizeMBS End EventHandler
End Control
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
Class App Inherits Application
End Class
End Project

See also:

Feedback, Comments & Corrections

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




Links
MBS Xojo Plugins