krb5 commit: XML Ribbon markup file

[Benjamin Kaduk]

https://github.com/krb5/krb5/commit/da60312f1352cbd82e39e31398f7ead2e817f119
commit da60312f1352cbd82e39e31398f7ead2e817f119
Author: Benjamin Kaduk <kaduk at mit.edu>
Date:   Fri Jan 17 16:02:13 2014 -0500

    XML Ribbon markup file
    
    The standard windows library ribbon interface is either constructed
    at runtime or specified in an XML file.  Since we have a static
    set of functionality in our ribbon, it is simplest to just use the
    XML file.
    
    This should duplicate the interfaces currently provided by the
    MFC ribbon, though the menu items in the file menu are slightly
    taller than they used to be.
    
    Use uicc.exe to compile the XML to the binary format and produce
    a kfwribon.rc resource file and kfwribbon.h header.

 src/windows/leash/Makefile.in   |    6 ++
 src/windows/leash/kfwribbon.xml |  131 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 137 insertions(+), 0 deletions(-)

diff --git a/src/windows/leash/Makefile.in b/src/windows/leash/Makefile.in
index 089dbbf..31caf5c 100644
--- a/src/windows/leash/Makefile.in
+++ b/src/windows/leash/Makefile.in
@@ -105,6 +105,9 @@ $(OUTPRE)$(EXE_NAME).exe: $(OBJS) $(XOBJS) $(LIBS)
 	  ../lib/$(OUTPRE)libwin.lib atl.lib $(MFCLIB) $(SCLIB)
 	copy $@ "$(OUTPRE)MIT Kerberos.exe"
 
+kfwribbon.bml kfwribbon.h kfwribbon.rc: kfwribbon.xml
+	uicc.exe kfwribbon.xml kfwribbon.bml /res:kfwribbon.rc /header:kfwribbon.h /name:KFW_RIBBON
+
 $(RESFILE): Leash.rc res/Leash.rc2 ver.rc ../version.rc ../kerberos.ver
 
 clean::
@@ -113,3 +116,6 @@ clean::
 	if exist $(OUTPRE)*.res del $(OUTPRE)*.res
 	if exist $(OUTPRE)*.pdb del $(OUTPRE)*.pdb
 	if exist *.err del *.err
+	if exist *.bml del *.bml
+	if exist kfwribbon.h del kfwribbon.h
+	if exist kfwribbon.rc del kfwribbon.rc
diff --git a/src/windows/leash/kfwribbon.xml b/src/windows/leash/kfwribbon.xml
new file mode 100644
index 0000000..e87fca8
--- /dev/null
+++ b/src/windows/leash/kfwribbon.xml
@@ -0,0 +1,131 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Application xmlns="http://schemas.microsoft.com/windows/2009/Ribbon">
+  <Application.Commands>
+    <Command Name="cmdAppMenu" LabelTitle="Application Menu" />
+    <Command Name="cmdQAT" LabelTitle="" />
+    <Command Name="cmdHelp" LabelTitle="Help" />
+    <Command Name="cmdAbout" LabelTitle="About MIT Kerberos" />
+    <Command Name="cmdExit" LabelTitle="Exit application" />
+    <Command Name="cmdHomeTab" LabelTitle="Home" Keytip="H" />
+    <Command Name="cmdOptionsTab" LabelTitle="Options" Keytip="O" />
+    <Command Name="cmdChangePasswordGroup" LabelTitle="" />
+    <Command Name="cmdTicketGroup" LabelTitle="" />
+    <Command Name="cmdViewOptionsGroup" LabelTitle="View Options" />
+    <Command Name="cmdTicketOptionsGroup" LabelTitle="Ticket Options" />
+    <Command Name="cmdGetTicketButton"
+             LabelTitle="Get Ticket"
+             Keytip="T">
+      <Command.LargeImages>
+        <Image>res/getticketlarge.bmp</Image>
+      </Command.LargeImages>
+    </Command>
+    <Command Name="cmdRenewTicketButton"
+             LabelTitle="Renew Ticket"
+             Keytip="R">
+      <Command.LargeImages>
+        <Image>res/renewlarge.bmp</Image>
+      </Command.LargeImages>
+    </Command>
+    <Command Name="cmdDestroyTicketButton"
+             LabelTitle="Destroy Ticket"
+             Keytip="D">
+      <Command.LargeImages>
+        <Image>res/destroylarge.bmp</Image>
+      </Command.LargeImages>
+    </Command>
+    <Command Name="cmdMakeDefaultButton"
+             LabelTitle="Make Default"
+             Keytip="M">
+      <Command.LargeImages>
+        <Image>res/makedefaultlarge.bmp</Image>
+      </Command.LargeImages>
+    </Command>
+    <Command Name="cmdChangePasswordButton"
+             LabelTitle="Change Password"
+             Keytip="C">
+      <Command.LargeImages>
+        <Image>res/cpwlarge.bmp</Image>
+      </Command.LargeImages>
+    </Command>
+    <Command Name="cmdIssuedCheckBox"
+             LabelTitle="Issued"
+             Keytip="I" />
+    <Command Name="cmdRenewUntilCheckBox"
+             LabelTitle="Renewable Until"
+             Keytip="R" />
+    <Command Name="cmdValidUntilCheckBox"
+             LabelTitle="Valid Until"
+             Keytip="V" />
+    <Command Name="cmdEncTypeCheckBox"
+             LabelTitle="Encryption Type"
+             Keytip="E" />
+    <Command Name="cmdFlagsCheckBox"
+             LabelTitle="Flags"
+             Keytip="F" />
+    <Command Name="cmdAutoRenewCheckBox"
+             LabelTitle="Automatic Ticket Renewal"
+             Keytip="R" />
+    <Command Name="cmdExpireAlarmCheckBox"
+             LabelTitle="Expiration Alarm"
+             Keytip="A" />
+    <Command Name="cmdDestroyOnExitCheckBox"
+             LabelTitle="Destroy Tickets on Exit"
+             Keytip="D" />
+    <Command Name="cmdMixedCaseCheckBox"
+             LabelTitle="Allow Mixed Case Realm Names"
+             Keytip="M" />
+  </Application.Commands>
+  <Application.Views>
+    <Ribbon>
+      <Ribbon.ApplicationMenu>
+        <ApplicationMenu CommandName="cmdAppMenu">
+          <MenuGroup>
+            <Button CommandName="cmdHelp" />
+            <Button CommandName="cmdAbout" />
+            <Button CommandName="cmdExit" />
+          </MenuGroup>
+        </ApplicationMenu>
+      </Ribbon.ApplicationMenu>
+      <Ribbon.QuickAccessToolbar>
+        <QuickAccessToolbar CommandName="cmdQAT" />
+      </Ribbon.QuickAccessToolbar>
+      <Ribbon.Tabs>
+        <Tab CommandName="cmdHomeTab">
+          <Tab.ScalingPolicy>
+            <ScalingPolicy>
+              <ScalingPolicy.IdealSizes>
+                <Scale Group="cmdTicketGroup" Size="Large" />
+                <Scale Group="cmdChangePasswordGroup" Size="Large" />
+              </ScalingPolicy.IdealSizes>
+            </ScalingPolicy>
+          </Tab.ScalingPolicy>
+          <Group CommandName="cmdTicketGroup" SizeDefinition="FourButtons">
+            <Button CommandName="cmdGetTicketButton" />
+            <Button CommandName="cmdRenewTicketButton" />
+            <Button CommandName="cmdDestroyTicketButton" />
+            <Button CommandName="cmdMakeDefaultButton" />
+          </Group>
+          <Group CommandName="cmdChangePasswordGroup"
+                 SizeDefinition="OneButton">
+            <Button CommandName="cmdChangePasswordButton" />
+          </Group>
+        </Tab>
+        <Tab CommandName="cmdOptionsTab">
+          <Group CommandName="cmdViewOptionsGroup">
+            <CheckBox CommandName="cmdIssuedCheckBox" />
+            <CheckBox CommandName="cmdRenewUntilCheckBox" />
+            <CheckBox CommandName="cmdValidUntilCheckBox" />
+            <CheckBox CommandName="cmdEncTypeCheckBox" />
+            <CheckBox CommandName="cmdFlagsCheckBox" />
+          </Group>
+          <Group CommandName="cmdTicketOptionsGroup" >
+            <CheckBox CommandName="cmdAutoRenewCheckBox" />
+            <CheckBox CommandName="cmdExpireAlarmCheckBox" />
+            <CheckBox CommandName="cmdDestroyOnExitCheckBox" />
+            <CheckBox CommandName="cmdMixedCaseCheckBox" />
+          </Group>
+        </Tab>
+      </Ribbon.Tabs>
+    </Ribbon>
+  </Application.Views>
+</Application>