Dynamic Libraries (Linux)

[Petr]

Input Box for Linux. This time use H file.

Code: (Select All)

Declare CustomType Library "./IbLNX"

    Function InputBoxUTF8_Text& (title As String, prompt As String, def As String, outText As String, ByVal outBytes As Long)

End Declare



_Title "Linux InputBox"



title$ = "Insert text" + Chr$(0)

prompt$ = "Write value:" + Chr$(0)

def$ = "default" + Chr$(0)



outt$ = Space$(2048)

ok& = InputBoxUTF8_Text&(title$, prompt$, def$, outt$, Len(outt$))

If ok& = 1 Then

    outt$ = ZTrim$(outt$)

    Print outt$

Else

    Print "cancel/error"; ok&

End If



Function ZTrim$ (s$)

    Dim p As Long

    p = InStr(s$, Chr$(0))

    If p > 0 Then

        ZTrim$ = Left$(s$, p - 1)

    Else

        ZTrim$ = s$

    End If

End Function