VERSION 5.00
Begin VB.Form frmSettings 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   " Compiler Settings"
   ClientHeight    =   5340
   ClientLeft      =   2565
   ClientTop       =   1500
   ClientWidth     =   6930
   Icon            =   "frmSettings.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5340
   ScaleWidth      =   6930
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cbOpen610G 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   6480
      TabIndex        =   25
      Top             =   3765
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.CommandButton cbOpen610 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   6480
      TabIndex        =   24
      Top             =   2505
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.CommandButton cbOpen67 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   6465
      TabIndex        =   23
      Top             =   1245
      Visible         =   0   'False
      Width           =   345
   End
   Begin VB.TextBox txtSwitches 
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   120
      TabIndex        =   8
      Top             =   4515
      Width           =   6720
   End
   Begin VB.OptionButton optLibrary 
      Caption         =   "My own copy of 6/10..."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   3
      Left            =   660
      TabIndex        =   9
      Top             =   2220
      Width           =   2790
   End
   Begin VB.OptionButton optLibrary 
      Caption         =   "Version 6/10"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   2
      Left            =   375
      TabIndex        =   3
      Top             =   1950
      Width           =   1785
   End
   Begin VB.OptionButton optLibrary 
      Caption         =   "My own copy of 6/7..."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   1
      Left            =   645
      TabIndex        =   1
      Top             =   960
      Width           =   2550
   End
   Begin VB.OptionButton optLibrary 
      Caption         =   "Version 6/7"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   690
      Value           =   -1  'True
      Width           =   1575
   End
   Begin VB.TextBox txtLib67Path 
      BackColor       =   &H80000011&
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   915
      TabIndex        =   2
      Top             =   1245
      Width           =   5520
   End
   Begin VB.TextBox txtLib610Path 
      BackColor       =   &H80000011&
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   945
      TabIndex        =   4
      Top             =   2505
      Width           =   5505
   End
   Begin VB.TextBox txtLib610GPath 
      BackColor       =   &H80000011&
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   930
      TabIndex        =   7
      Top             =   3765
      Width           =   5520
   End
   Begin VB.OptionButton optLibrary 
      Caption         =   "Version 6/10 (Glulx)"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   4
      Left            =   435
      TabIndex        =   5
      Top             =   3210
      Width           =   2505
   End
   Begin VB.OptionButton optLibrary 
      Caption         =   "My own copy of 6/10 (Glulx)..."
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Index           =   5
      Left            =   720
      TabIndex        =   6
      Top             =   3480
      Width           =   3870
   End
   Begin VB.PictureBox picOptions 
      BorderStyle     =   0  'None
      Height          =   3780
      Index           =   3
      Left            =   -20000
      ScaleHeight     =   3780
      ScaleWidth      =   5685
      TabIndex        =   14
      TabStop         =   0   'False
      Top             =   480
      Width           =   5685
      Begin VB.Frame fraSample4 
         Caption         =   "Sample 4"
         Height          =   1785
         Left            =   2100
         TabIndex        =   17
         Top             =   840
         Width           =   2055
      End
   End
   Begin VB.PictureBox picOptions 
      BorderStyle     =   0  'None
      Height          =   3780
      Index           =   2
      Left            =   -20000
      ScaleHeight     =   3780
      ScaleWidth      =   5685
      TabIndex        =   13
      TabStop         =   0   'False
      Top             =   480
      Width           =   5685
      Begin VB.Frame fraSample3 
         Caption         =   "Sample 3"
         Height          =   1785
         Left            =   1545
         TabIndex        =   16
         Top             =   675
         Width           =   2055
      End
   End
   Begin VB.PictureBox picOptions 
      BorderStyle     =   0  'None
      Height          =   3780
      Index           =   1
      Left            =   -20000
      ScaleHeight     =   3780
      ScaleWidth      =   5685
      TabIndex        =   12
      TabStop         =   0   'False
      Top             =   480
      Width           =   5685
      Begin VB.Frame fraSample2 
         Caption         =   "Sample 2"
         Height          =   1785
         Left            =   645
         TabIndex        =   15
         Top             =   300
         Width           =   2055
      End
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   11
      Top             =   4920
      Width           =   1095
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5760
      TabIndex        =   10
      Top             =   4935
      Width           =   1095
   End
   Begin VB.Label Label5 
      Caption         =   "Glulx/Inform 6.21 compiler"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   210
      Left            =   240
      TabIndex        =   22
      Top             =   2955
      Width           =   2955
   End
   Begin VB.Label Label2 
      Caption         =   "Inform 6.21 compiler"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   255
      Left            =   240
      TabIndex        =   21
      Top             =   1680
      Width           =   2355
   End
   Begin VB.Label Label1 
      Caption         =   "Inform 6.15 compiler"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   255
      Left            =   225
      TabIndex        =   20
      Top             =   420
      Width           =   2355
   End
   Begin VB.Label Label3 
      Caption         =   "Compiler Switches"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   105
      TabIndex        =   19
      Top             =   4320
      Width           =   2415
   End
   Begin VB.Label Label4 
      Caption         =   "Which compiler+library do you wish to use?"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   210
      Left            =   105
      TabIndex        =   18
      Top             =   90
      Width           =   4995
   End
End
Attribute VB_Name = "frmSettings"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cbOpen610_Click()
    sDirPath = txtLib610Path.Text
    frmGetDir.Show 1
    txtLib610Path.Text = sDirPath
End Sub

Private Sub cbOpen610G_Click()
    sDirPath = txtLib610GPath.Text
    frmGetDir.Show 1
    txtLib610GPath.Text = sDirPath
End Sub

Private Sub cbOpen67_Click()
    sDirPath = txtLib67Path.Text
    frmGetDir.Show 1
    txtLib67Path.Text = sDirPath
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Select Case True
        Case optLibrary(0).Value
            SetReg inf.Modules("Main").Name, "Library", "0"
        Case optLibrary(1).Value
            SetReg inf.Modules("Main").Name, "Library", "1"
            SetReg inf.Modules("Main").Name, "Path", txtLib67Path.Text
        Case optLibrary(2).Value
            SetReg inf.Modules("Main").Name, "Library", "2"
        Case optLibrary(3).Value
            SetReg inf.Modules("Main").Name, "Library", "3"
            SetReg inf.Modules("Main").Name, "Path", txtLib610Path.Text
        Case optLibrary(4).Value
            SetReg inf.Modules("Main").Name, "Library", "4"
        Case optLibrary(5).Value
            SetReg inf.Modules("Main").Name, "Library", "5"
            SetReg inf.Modules("Main").Name, "Path", txtLib610GPath.Text
    End Select
    SetReg inf.Modules("Main").Name, "Switches", txtSwitches.Text
    inf.Modules("Main").Switches = txtSwitches.Text
    Unload Me
End Sub

Private Sub Form_Load()
    Dim lLibOption As Long

    lLibOption = CLng(ReadReg(inf.Modules("Main").Name, "Library"))

    optLibrary(lLibOption).Value = True
    
    Select Case lLibOption
        Case 1
            txtLib67Path.Text = ReadReg(inf.Modules("Main").Name, "Path")
        Case 3
            txtLib610Path.Text = ReadReg(inf.Modules("Main").Name, "Path")
        Case 5
            txtLib610GPath.Text = ReadReg(inf.Modules("Main").Name, "Path")
    End Select
    
    txtSwitches.Text = ReadReg(inf.Modules("Main").Name, "Switches")
End Sub

Private Sub optLibrary_Click(Index As Integer)
    Select Case Index
        Case 0, 2, 4
            txtLib67Path.Text = ""
            txtLib67Path.Enabled = False
            txtLib67Path.BackColor = vbGrayText
            txtLib610Path.Text = ""
            txtLib610Path.Enabled = False
            txtLib610Path.BackColor = vbGrayText
            txtLib610GPath.Text = ""
            txtLib610GPath.Enabled = False
            txtLib610GPath.BackColor = vbGrayText
        Case 1
            cbOpen67.Visible = True
            txtLib67Path.Enabled = True
            txtLib67Path.BackColor = vbWhite
            cbOpen610.Visible = False
            txtLib610Path.Text = ""
            txtLib610Path.Enabled = False
            txtLib610Path.BackColor = vbGrayText
            cbOpen610G.Visible = False
            txtLib610GPath.Text = ""
            txtLib610GPath.Enabled = False
            txtLib610GPath.BackColor = vbGrayText
        Case 3
            cbOpen67.Visible = False
            txtLib67Path.Text = ""
            txtLib67Path.Enabled = False
            txtLib67Path.BackColor = vbGrayText
            cbOpen610.Visible = True
            cbOpen610G.Visible = False
            txtLib610GPath.Text = ""
            txtLib610GPath.Enabled = False
            txtLib610GPath.BackColor = vbGrayText
            txtLib610Path.Enabled = True
            txtLib610Path.BackColor = vbWhite
        Case 5
            cbOpen67.Visible = False
            cbOpen610.Visible = False
            cbOpen610G.Visible = True
            txtLib67Path.Text = ""
            txtLib67Path.Enabled = False
            txtLib67Path.BackColor = vbGrayText
            txtLib610Path.Text = ""
            txtLib610Path.Enabled = False
            txtLib610Path.BackColor = vbGrayText
            txtLib610GPath.Enabled = True
            txtLib610GPath.BackColor = vbWhite
    End Select
End Sub