NwJs/NwJsDemo_Requester.sb at master · spiderbytes/NwJs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
XIncludeFile "NwJsRequester.sbi"

Procedure SaveFileRequesterExCallback(Result.s)
  Debug "Selected File: " + Result
EndProcedure

Procedure OpenFileRequesterExCallback(Result.s)
  Protected Counter
  For Counter = 1 To CountString(Result, ";") + 1
    Debug "Selected File: " + StringField(Result, Counter, ";")
  Next
EndProcedure

If IsNwJsAvailable() = #False

  Debug "Sorry! NwJs is not available :-("

Else

  UseModule NwJsRequester

    Debug InputRequester("Message", "DefaultText")

    Debug MessageRequester("This is a MessageRequester with an OK-Button")

    Debug MessageRequester("This is a MessageRequester with an OK- and a Cancel-Button", #PB_MessageRequester_YesNo)

    ; OpenFileRequesterEx(@OpenFileRequesterExCallback(), "", "", #PB_Requester_MultiSelection)

    ; SaveFileRequesterEx(@SaveFileRequesterExCallback())

  UnuseModule NwJsRequester

EndIf