* VLControlScriptCommand interface
*****************************************************************************/
@interface VLControlScriptCommand : NSScriptCommand
+@end
+
+/*****************************************************************************
+* Category that adds AppleScript support to NSApplication
+*****************************************************************************/
+@interface NSApplication(ScriptSupport)
+
+- (BOOL) scriptFullscreenMode;
+- (void) setScriptFullscreenMode: (BOOL) mode;
+
@end
\ No newline at end of file
}
else if ( [o_command isEqualToString:@"fullscreen"] )
{
- NSMenuItem *o_mi = [[NSMenuItem alloc] initWithTitle: _NS("Fullscreen") action: nil keyEquivalent:@""];
- [o_controls windowAction:[o_mi autorelease]];
+ [o_controls toogleFullscreen: self];
return nil;
}
else if ( [o_command isEqualToString:@"mute"] )
}
@end
+
+/*****************************************************************************
+ * Category that adds AppleScript support to NSApplication
+ *****************************************************************************/
+@implementation NSApplication(ScriptSupport)
+
+- (BOOL) scriptFullscreenMode {
+ VLCControls * o_controls = (VLCControls *)[[self delegate] getControls];
+
+ return [o_controls isFullscreen];
+}
+- (void) setScriptFullscreenMode: (BOOL) mode {
+ VLCControls * o_controls = (VLCControls *)[[self delegate] getControls];
+ if (mode == [o_controls isFullscreen]) return;
+ [o_controls toogleFullscreen: self];
+}
+
+@end
\ No newline at end of file