[Stratagus-ccl] CCL Alteration: define-ui

[Jimmy Salmon]

The button panel has been redesigned.  The button-buttons have been moved inside
of button-panel.

Example

  (define-ui ...
    ...

    'button-panel (list
      'panel (list
        'file (string-append "graphics/ui/human/"
          (number->string screen_width) "x" (number->string screen_height)
          "/buttonpanel.png")
        'pos '(0 336))
      'icons (list
        (list 'pos '(  6 337) 'size icon_size)
        (list 'pos '( 62 337) 'size icon_size)
        (list 'pos '(118 337) 'size icon_size)
        (list 'pos '(  6 384) 'size icon_size)
        (list 'pos '( 62 384) 'size icon_size)
        (list 'pos '(118 384) 'size icon_size)
        (list 'pos '(  6 431) 'size icon_size)
        (list 'pos '( 62 431) 'size icon_size)
        (list 'pos '(118 431) 'size icon_size))
    )

    ...
  )