Last active
December 4, 2022 19:32
-
-
Save MarkGoldberg/2619f8ee6947cb31415dbb8c9c5a470d to your computer and use it in GitHub Desktop.
WindowManager Replacement
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| MEMBER() | |
| INCLUDE('GlobalWindowMangerBase.inc'),ONCE | |
| MAP | |
| END | |
| MOD:Media ctMCI | |
| GlobalWindowMangerBase.GetMeda PROCEDURE() | |
| CODE | |
| RETURN MOD:Media | |
| GlobalWindowMangerBase.InitMedia PROCEDURE() | |
| Media &ctMedia | |
| CODE | |
| Media &= SELF.GetMedia() | |
| Media.Open('ButtonAccpeted.wav', 'ButtonAccepted') | |
| GlobalWindowMangerBase.OnButtonAccepted PROCEDURE() | |
| Media &ctMedia | |
| CODE | |
| Media &= SELF.GetMedia() | |
| Media.Play('ButtonAccepted') | |
| GlobalWindowMangerBase.TakeAccepted PROCEDURE() !,DERIVED,BYTE,PROC | |
| CODE | |
| IF ACCEPTED(){PROP:Type} = CREATE:Button | |
| SELF.OnButtonAccepted() | |
| END | |
| RETURN Parent.TakeAccepted() | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| !ABCIncludeFile | |
| INCLUDE( 'ctMCI.inc'),ONCE | |
| INCLUDE('ABWindow.inc'),ONCE | |
| GlobalWindowMangerBase CLASS(WindowManager),TYPE,MODULE('GlobalWindowMangerBase.clw'),LINK('GlobalWindowMangerBase.clw',_ABCLinkMode_),DLL(_ABCDllMode_) | |
| GetMedia PROCEDURE(),*ctMCI | |
| InitMedia PROCEDURE(),VIRTUAL | |
| OnButtonAccepted PROCEDURE(),VIRTUAL | |
| TakeAccepted PROCEDURE,DERIVED,BYTE,PROC | |
| END | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment