Merge branch 'main' of https://github.com/mkromberg/jswc

Dyalog · Oct 6, 2024 · 41d5094 · 41d5094
2 parents 825ec01 + b4dc6e1
commit 41d5094
Show file tree

Hide file tree

Showing 7 changed files with 75 additions and 0 deletions.
diff --git a/EWC/supportedMethods.apla b/EWC/supportedMethods.apla
@@ -1,4 +1,8 @@
 (
  'GetTextSize'
  'GetFocus'
+ 'SetCookie'
+ 'GetCookie'
+ 'SetTitle'
+ 'GetTitle'
 )
diff --git a/demo/CBClearCookie.aplf b/demo/CBClearCookie.aplf
@@ -0,0 +1,11 @@
+ CBClearCookie args;e;cookietoset
+
+ Event←⎕NS''
+ e←Event.Event←⎕NS''
+ e.(ID EventName Info)←(2↑args),⊂2↓args
+
+ cookietoset←'','F1.COOKIETOSET'eWG'Text'
+
+⍝ Clearing is just setting with a time in the past
+ 2 eNQ 'F1' 'SetCookie' ('democookie=;max-age=-1')
+ 'F1.G.COOKIES'eWS'Text' ('Cookie: CLEARED')
diff --git a/demo/CBRefreshCookie.aplf b/demo/CBRefreshCookie.aplf
@@ -0,0 +1,11 @@
+ CBRefreshCookie args;e;cookie
+
+ Event←⎕NS''
+ e←Event.Event←⎕NS''
+ e.(ID EventName Info)←(2↑args),⊂2↓args
+
+ cookie←2 eNQ 'F1' 'GetCookie' 'democookie'
+ :If 0≠≢cookie
+     cookie←2⊃⊃cookie
+ :EndIf
+ 'F1.G.COOKIES'eWS'Text' ('Cookie: ',cookie)
diff --git a/demo/CBSetCookie.aplf b/demo/CBSetCookie.aplf
@@ -0,0 +1,10 @@
+ CBSetCookie args;e;cookietoset
+
+ Event←⎕NS''
+ e←Event.Event←⎕NS''
+ e.(ID EventName Info)←(2↑args),⊂2↓args
+
+ cookietoset←'','F1.COOKIETOSET'eWG'Text'
+
+ 2 eNQ 'F1' 'SetCookie' ('democookie=',cookietoset)
+ 'F1.G.COOKIES'eWS'Text' ('Cookie: ',cookietoset)
diff --git a/demo/CBSetTitle.aplf b/demo/CBSetTitle.aplf
@@ -0,0 +1,9 @@
+ CBSetTitle args;e;titletoset
+
+ Event←⎕NS''
+ e←Event.Event←⎕NS''
+ e.(ID EventName Info)←(2↑args),⊂2↓args
+
+ titletoset←'','F1.TITLETOSET'eWG'Text'
+
+ 2 eNQ 'F1' 'SetTitle' titletoset
diff --git a/demo/DemoCookies.aplf b/demo/DemoCookies.aplf
@@ -0,0 +1,18 @@
+ DemoCookies connected;cookie
+ EWC.CONNECTED←connected
+ ⎕PW←1000
+
+ 'F1'eWC'Form' 'Cookies'(50 50)(170 200)('Coord' 'Pixel')
+
+ 'F1.COOKIETOSET'eWC'Edit'('Posn' 50 10)('Size'(20 150))
+ 'F1.SETCOOKIE'eWC'Button' 'Set Cookie'('Posn' 75 10)('Size'(20 150))('Event' 'Select' 'CBSetCookie')
+ 'F1.REFRESHCOOKIE'eWC'Button' 'Refresh Cookie'('Posn' 100 10)('Size'(20 150))('Event' 'Select' 'CBRefreshCookie')
+ 'F1.CLEARCOOKIE'eWC'Button' 'Clear Cookie'('Posn' 125 10)('Size'(20 150))('Event' 'Select' 'CBClearCookie')
+
+ cookie←2 eNQ 'F1' 'GetCookie' 'democookie'
+ :If 0≠≢cookie
+     cookie←2⊃⊃cookie
+ :EndIf
+
+ 'F1.G'eWC'Group'('Posn'(150 0))('Size'(20 200))
+ 'F1.G.COOKIES'eWC'Text' ('Cookie: ',cookie)(0 10)(20 400)
diff --git a/demo/DemoTitle.aplf b/demo/DemoTitle.aplf
@@ -0,0 +1,12 @@
+ DemoTitle connected;title
+ EWC.CONNECTED←connected
+ ⎕PW←1000
+
+ 'F1'eWC'Form' 'Title'(50 50)(170 400)('Coord' 'Pixel')
+
+ 'F1.TITLETOSET'eWC'Edit'('Posn' 50 10)('Size'(20 150))
+ 'F1.SETTITLE'eWC'Button' 'Set Title'('Posn' 75 10)('Size'(20 150))('Event' 'Select' 'CBSetTitle')
+
+ title←2 eNQ 'F1' 'GetTitle'
+ 'F1.G'eWC'Group'('Posn'(100 0))('Size'(20 400))
+ 'F1.G.COOKIES'eWC'Text' ('Original title on demo load: ',title)(0 10)(20 400)