The following is taken from a post by 'newbynobi' 12.3.17 to add spindle speed buttons to Gmoccapy:


"Please find attached two files.
Just place both files in your config dir.

Than add the following lines to the [DISPLAY] section of your INI file.
EMBED_TAB_NAME = Spindle Button
EMBED_TAB_LOCATION = box_custom_4
EMBED_TAB_COMMAND = gladevcp -x {XID} -H spindle_button.hal spindle_button.glade

After starting your config you have spindle increase and decrease button.

FILE 1.
" 

"#######################################################
# sample to emmbedd spindle increase and decrease                         #
# button in gmoccapy                                                                         #
# just place                                                                                          #
# - spindle_button.glade                                                                     #
# - spindle_button.hal                                                                         #
# in your config dir and add the following lines to                            #
# the [DISPLAY] section of your INI file                                          #
#                                                                                                          #
#######################################################

# EMBED_TAB_NAME = Spindle Button
# EMBED_TAB_LOCATION = box_custom_4
# EMBED_TAB_COMMAND = gladevcp -x {XID} -H spindle_button.hal spindle_button.glade


net increase spindle_button.btn_spindle_increase => halui.spindle.increase
net decrease spindle_button.btn_spindle_decrease => halui.spindle.decrease

"
FILE 2.

"<?xml version="1.0" encoding="UTF-8"?>
<interface>
  <!-- interface-requires gladevcp 0.0 -->
  <requires lib="gtk+" version="2.24"/>
  <!-- interface-naming-policy project-wide -->
  <object class="GtkWindow" id="window1">
    <property name="can_focus">False</property>
    <child>
      <object class="GtkTable" id="tbl_spindle_button">
        <property name="visible">True</property>
        <property name="can_focus">False</property>
        <property name="n_rows">2</property>
        <property name="column_spacing">5</property>
        <property name="row_spacing">5</property>
        <property name="homogeneous">True</property>
        <child>
          <object class="HAL_Button" id="btn_spindle_increase">
            <property name="width_request">50</property>
            <property name="height_request">50</property>
            <property name="visible">True</property>
            <property name="can_focus">True</property>
            <property name="receives_default">True</property>
            <property name="use_action_appearance">False</property>
            <child>
              <object class="GtkImage" id="img_spindle_btn_increase">
                <property name="width_request">48</property>
                <property name="height_request">48</property>
                <property name="visible">True</property>
                <property name="can_focus">False</property>
                <property name="stock">gtk-add</property>
              </object>
            </child>
          </object>
          <packing>
            <property name="x_options">GTK_SHRINK</property>
            <property name="y_options">GTK_SHRINK</property>
          </packing>
        </child>
        <child>
          <object class="HAL_Button" id="btn_spindle_decrease">
            <property name="width_request">50</property>
            <property name="height_request">50</property>
            <property name="visible">True</property>
            <property name="can_focus">True</property>
            <property name="receives_default">True</property>
            <property name="use_action_appearance">False</property>
            <child>
              <object class="GtkImage" id="img_spindle_btn_decrease">
                <property name="width_request">48</property>
                <property name="height_request">48</property>
                <property name="visible">True</property>
                <property name="can_focus">False</property>
                <property name="stock">gtk-remove</property>
              </object>
            </child>
          </object>
          <packing>
            <property name="top_attach">1</property>
            <property name="bottom_attach">2</property>
            <property name="x_options">GTK_SHRINK</property>
            <property name="y_options">GTK_SHRINK</property>
          </packing>
        </child>
      </object>
    </child>
  </object>
</interface>"