/*
 * MultiPlayer
 * Copyright (C) 1992 Bryan Ford
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * I (the author of MultiPlayer) can be contacted on the Internet at
 * "bryan.ford@m.cc.utah.edu".  See "Player.doc" for other addresses.
 *
 * $Id: prefswinspec.gui,v 3.2 92/05/25 08:21:51 BAF Exp $
 *
 */

window xdef _prefswinspec
    screen import _playerscreen
    title "MultiPlayer Preferences"
    screentitle _copyright
    left import _prefswinleft top import _prefswintop
    CYCLEIDCMP BUTTONIDCMP checkboxidcmp CLOSEWINDOW MOUSEBUTTONS REFRESHWINDOW
    DRAGBAR DEPTHGADGET CLOSEGADGET SIMPLE_REFRESH RMBTRAP rawkey
  end

button
    call @prefswinmainfont
    label "Main font"
  end

text
    export _prefswinmainfontgad
    border minchars 30
  end

number
    export _prefswinmainfontsizegad
    border minchars 4 endrow
  end

button
    call @prefswinlistfont
    label "List font"
    attr _listattr
  end

text
    export _prefswinlistfontgad
    border minchars 30
    attr _listattr
  end

number
    export _prefswinlistfontsizegad
    border minchars 4 endrow
    attr _listattr
  end

cycle
    export _prefswinplaygad
    call @prefswinplay
    label "Play" labelleft
    options array "In Sequence" "In Random Order" "Once" "Over and Over" "Through sequence once" null end
  end

cycle
    export _prefswinshowgad
    call @prefswinshow
    label "Show" labelleft
    options array "Nothing" "Clock" "Sequence (from 0)" "Sequence (from 1)" null end
    endrow
  end

string
    export _prefswinhotkeygad
    call @prefswinhotkey
    label "Hot key"
    labelleft
    minchars 30 maxchars 30
    disabled
    endrow
  end

checkbox
    export _prefswinspectrumgad
    call @prefswinspectrogram
    label "Spectrogram" labelright
  end

checkbox
    export _prefswinnotegad
    call @prefswinnote
    label "Note Scroller" labelright
    endrow
  end

checkbox
    export _prefswinscopegad
    call @prefswinscope
    label "StereoScope" labelright
  end

checkbox
    export _prefswinqscopegad
    call @prefswinqscope
    label "QuadraScope" labelright
    endrow
  end

checkbox
    export _prefswinpausefadegad
    call @prefswinpausefade
    label "Fade on Stop/Continue" labelright
  end

checkbox
    export _prefswincontgad
    call @prefswincont
    label "Continue program on error" labelright endrow
  end

checkbox
    export _prefswinkeepgad
    call @prefswinkeep
    label "Keep program with preferences" labelright endrow
  end

checkbox
    export _prefswinicongad
    call @prefswinicon
    label "AppIcon for immediate playing" labelright
  end

checkbox
    export _prefswiniconagad
    call @prefswinicona
    label "AppIcon for adding to program" labelright endrow
  end

button
    call @prefswinsave
    label "Save"
  end

button
    call @prefswinok
    label "Close"
  end

endcap

fontrequester xdef _prefswinfontspec
    window struct 0
    title struct 4
    fixedwidth struct 8
    font struct 12 size struct 16
    donectrlf
    left import fontreqleft
    top import fontreqtop
    width import fontreqwidth
    height import fontreqheight
  end