      subroutine define_smg_layout

      include    'swing.cmn'
      include    '($smgdef)'

      integer ichar
      record /pd_choice_type/ sub_choices(10)

      pull_choices.number = 10
      pull_choices.choice(1) = 'Create'
      pull_choices.code(1) = 10
      pull_choices.ptr(1) = 0
      pull_choices.choice(2) = 'Rename'
      pull_choices.code(2) = 20
      pull_choices.ptr(2) = 0
      pull_choices.choice(3) = 'Move'
      pull_choices.code(3) = 30
      pull_choices.ptr(3) = 0
      pull_choices.choice(4) = 'Delete'
      pull_choices.code(4) = 40
      pull_choices.ptr(4) = 0
      pull_choices.choice(5) = 'Print'
      pull_choices.code(5) = 50
      pull_choices.ptr(5) = 0
      pull_choices.choice(6) = 'Save'
      pull_choices.code(6) = 60
      pull_choices.ptr(6) = 0
      pull_choices.choice(7) = 'Options'
      pull_choices.code(7) = 70
      pull_choices.ptr(7) = %loc( sub_choices(7) )
      pull_choices.choice(8) = 'Filer'
      pull_choices.code(8) = 80
      pull_choices.ptr(8) = 0
      pull_choices.choice(9) = 'Help'
      pull_choices.code(9) = 90
      pull_choices.ptr(9) = 0
      pull_choices.choice(10) = 'Exit'
      pull_choices.code(10) = 100
      pull_choices.ptr(10) = %loc( sub_choices(10) )

      sub_choices(1).number = 0
      sub_choices(2).number = 0
      sub_choices(3).number = 0
      sub_choices(4).number = 0

      sub_choices(5).number = 0

      sub_choices(6).number = 0

      sub_choices(7).number = 3

      sub_choices(7).choice(1) = 'DCL Command'
      sub_choices(7).code(1) = 71
      sub_choices(7).key(1) = ichar('D')

      sub_choices(7).choice(2) = 'Filer'
      sub_choices(7).code(2) = 73
      sub_choices(7).key(2) = ichar('F')

      sub_choices(7).choice(3) = 'Show Directory Name'
      sub_choices(7).code(3) = 72
      sub_choices(7).key(3) = ichar('S')

      sub_choices(8).number = 0

      sub_choices(9).number = 0

      sub_choices(10).number = 2

      sub_choices(10).choice(1) = 'ok exit'
      sub_choices(10).code(1) = 101
      sub_choices(10).key(1) = ichar('O')

      sub_choices(10).choice(2) = 'cancel'
      sub_choices(10).code(2) = 102
      sub_choices(10).key(2) = ichar('C')

      call pd_load_bar( width, pull_choices)
     
      use_window1 = .false.

      return
      end
