Monotone-Parent: 6753ccaa7526439dbf30f82e0fd9724d49478e83

Monotone-Revision: bfb8eb0077f9d2d8ffdfe7ec1e44d38118e61600

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-12-06T22:46:48
Monotone-Branch: ca.inverse.sogo

UI/Common/UIxPageFrame.m

@@ -325,6 +325,30 @@
   return ([[self productCSSURL] length] > 0);
 }
 
+- (BOOL) _moduleIs: (NSString *) moduleName
+{
+  NSString *frameworkName;
+
+  frameworkName = [[context page] frameworkName];
+
+  return [frameworkName isEqualToString: moduleName];
+}
+
+- (BOOL) isCalendar
+{
+  return [self _moduleIs: @"SchedulerUI"];
+}
+
+- (BOOL) isContacts
+{
+  return [self _moduleIs: @"ContactsUI"];
+}
+
+- (BOOL) isMail
+{
+  return [self _moduleIs: @"MailerUI"];
+}
+
 - (void) setToolbar: (NSString *) newToolbar
 {
   ASSIGN (toolbar, newToolbar);