Tabs drag only with command-drag.

[ITKit.git] / Showcase / Controller.m

diff --git a/Showcase/Controller.m b/Showcase/Controller.m
index ee2a19c..d7808c7 100755 (executable)
--- a/Showcase/Controller.m
+++ b/Showcase/Controller.m
@@ -20,6 +20,7 @@
 {
     [self createStatusItem];
     [testTextField setCastsShadow:YES];
+    [tabView setAllowsDragging:YES];
     statusWindow = [ITTransientStatusWindow sharedWindow];
 //  [tabView setAllowsDragging:YES];
 }
@@ -226,6 +227,40 @@
     [statusWindow setRotation:([sender floatValue] * (pi / 180))];
 }
 
+/*************************************************************************/
+#pragma mark -
+#pragma mark ITTransientStatusWindow SUPPORT
+/*************************************************************************/
+
+- (IBAction)toggleTabDragging:(id)sender
+{
+    if ([sender state] == NSOnState) {
+        [tabView setAllowsDragging:YES];
+    } else {
+        [tabView setAllowsDragging:NO];
+    }
+}
+
+- (IBAction)toggleCommandDragging:(id)sender
+{
+    if ([sender state] == NSOnState) {
+        [tabView setRequiredModifiers:NSCommandKeyMask];
+    } else {
+        [tabView setRequiredModifiers:0];
+    }
+}
+
+- (IBAction)toggleControlDragging:(id)sender
+{
+}
+
+- (IBAction)toggleOptionDragging:(id)sender
+{
+}
+
+- (IBAction)toggleShiftDragging:(id)sender
+{
+}
 
 /*************************************************************************/
 #pragma mark -