#inclib "jinx"
#include "jinx.bi"
 
Declare Function OnClick(ByVal Object As jxObject, ByVal Event As jxEvent_Type) As jxBoolean

Dim Main As jxObject
Dim Title As jxObject
Dim TitleF As jxObject
Dim TitleC As jxObject
Dim Shared InputF As jxObject 
Dim Shared InputC As jxObject
Dim Shared ButtonF As jxObject
Dim Shared ButtonC As jxObject

jxInit
Main = jxAdd_Window(345, 150, "Temperature Calculator") 
Title = jxAdd_Label(Main, 10, 10, 380, 28, "Temperature Calculator")
TitleF = jxAdd_Label(Main, 10, 50, 85, 20, "Fahrenheit:")
TitleC = jxAdd_Label(Main, 10, 84, 85, 20, "Celsius:")
InputF = jxAdd_Input(Main, 95, 48, 50, 24, "")
InputC = jxAdd_Input(Main, 95, 82, 50, 24, "")
ButtonF = jxAdd_Button(Main, 155, 48, 170, 24, "Calculate Celsius")
ButtonC = jxAdd_Button(Main, 155, 82, 170, 24, "Calculate Fahrenheit")

jxSet Title, jxFont, "Helvatica", 20, jxBold
jxSet TitleF, jxFont, "Helvatica", 12, jxNormal
jxSet TitleC, jxFont, "Helvatica", 12, jxNormal

jxAdd_Event(ButtonF, jxClick, @OnClick)
jxAdd_Event(ButtonC, jxClick, @OnClick)

jxWaitUntilClosed Main

jxExit

Function OnClick(ByVal Object As jxObject, ByVal Event As jxEvent_Type) As jxBoolean
    Dim Value As Single
    
    Select Case Object
        Case ButtonF
            ' Convert Fahrenheit to Celsius
            Value = ValInt(jxGet(InputF, jxTitle))
            Value = (Value - 32) * 5/9
            jxSet InputC, jxTitle, Str(CInt(Value))
        Case ButtonC
            ' Convert Fahrenheit to Farenheit
            Value = ValInt(jxGet(InputC, jxTitle))
            Value = (Value * 9/5) + 32
            jxSet InputF, jxTitle, Str(CInt(Value))
    End Select
            
End Function