First demo for 242 and 243

Dyalog · Oct 10, 2024 · 9f32d16 · 9f32d16
1 parent 3550268
commit 9f32d16
Show file tree

Hide file tree

Showing 21 changed files with 70 additions and 6 deletions.
diff --git a/EWC/classes/ribbondropdownbutton/ClassName.apla b/EWC/classes/ribbondropdownbutton/ClassName.apla
@@ -0,0 +1 @@
+'RibbonDropDownButton'
diff --git a/EWC/classes/ribbondropdownbutton/Defaults.apla b/EWC/classes/ribbondropdownbutton/Defaults.apla
@@ -0,0 +1,6 @@
+(
+ 'RibbonDropDownButton'
+ ''
+ ''
+ 0 0
+)
diff --git a/EWC/classes/ribbondropdownbutton/Dynamic.apla b/EWC/classes/ribbondropdownbutton/Dynamic.apla
@@ -0,0 +1,3 @@
+0⌿(
+ ''
+)
diff --git a/EWC/classes/ribbondropdownbutton/PropList.apla b/EWC/classes/ribbondropdownbutton/PropList.apla
@@ -0,0 +1,6 @@
+(
+ 'Type'
+ 'Caption'
+ 'Icon'
+ 'Event'
+)
diff --git a/EWC/classes/ribbondropdownbutton/Supported.apla b/EWC/classes/ribbondropdownbutton/Supported.apla
@@ -0,0 +1,6 @@
+(
+ 'Type'
+ 'Caption'
+ 'Icon'
+ 'Event'
+)
diff --git a/EWC/classes/ribbondropdownbutton/methodlist.apla b/EWC/classes/ribbondropdownbutton/methodlist.apla
@@ -0,0 +1 @@
+⍬
diff --git a/EWC/classes/ribbongallery/ClassName.apla b/EWC/classes/ribbongallery/ClassName.apla
@@ -0,0 +1 @@
+'RibbonGallery'
diff --git a/EWC/classes/ribbongallery/Defaults.apla b/EWC/classes/ribbongallery/Defaults.apla
@@ -0,0 +1,5 @@
+(
+ 'RibbonGroupDropDown'
+ ''
+ 2
+)
diff --git a/EWC/classes/ribbongallery/Dynamic.apla b/EWC/classes/ribbongallery/Dynamic.apla
@@ -0,0 +1,3 @@
+0⌿(
+ ''
+)
diff --git a/EWC/classes/ribbongallery/PropList.apla b/EWC/classes/ribbongallery/PropList.apla
@@ -0,0 +1,5 @@
+(
+ 'Type'
+ 'Caption'
+ 'Cols'
+)
diff --git a/EWC/classes/ribbongallery/Supported.apla b/EWC/classes/ribbongallery/Supported.apla
@@ -0,0 +1,5 @@
+(
+ 'Type'
+ 'Caption'
+ 'Cols'
+)
diff --git a/EWC/classes/ribbongallery/methodlist.apla b/EWC/classes/ribbongallery/methodlist.apla
@@ -0,0 +1 @@
+⍬
diff --git a/EWC/classes/ribbonmenuitem/ClassName.apla b/EWC/classes/ribbonmenuitem/ClassName.apla
@@ -0,0 +1 @@
+'RibbonMenuItem'
diff --git a/EWC/classes/ribbonmenuitem/Defaults.apla b/EWC/classes/ribbonmenuitem/Defaults.apla
@@ -0,0 +1,6 @@
+(
+ 'RibbonMenuItem'
+ ''
+ ''
+ 0 0
+)
diff --git a/EWC/classes/ribbonmenuitem/Dynamic.apla b/EWC/classes/ribbonmenuitem/Dynamic.apla
@@ -0,0 +1,3 @@
+0⌿(
+ ''
+)
diff --git a/EWC/classes/ribbonmenuitem/PropList.apla b/EWC/classes/ribbonmenuitem/PropList.apla
@@ -0,0 +1,6 @@
+(
+ 'Type'
+ 'Caption'
+ 'Icon'
+ 'Event'
+)
diff --git a/EWC/classes/ribbonmenuitem/Supported.apla b/EWC/classes/ribbonmenuitem/Supported.apla
@@ -0,0 +1,6 @@
+(
+ 'Type'
+ 'Caption'
+ 'Icon'
+ 'Event'
+)
diff --git a/EWC/classes/ribbonmenuitem/methodlist.apla b/EWC/classes/ribbonmenuitem/methodlist.apla
@@ -0,0 +1 @@
+⍬
diff --git a/EWC/fixUpProps.aplo b/EWC/fixUpProps.aplo
@@ -7,7 +7,6 @@
  :EndIf
  i←⍸names∊special
  (ns ixs)←↓⍉names[i]{⍺ ⍵}⌸i
-
  :For (n ix) :InEach (ns ixs)
      :Select ⊃n
      :Case 'Event'

diff --git a/demo/Demo_Issue242_243.aplf b/demo/Demo_Issue242_243.aplf
@@ -2,7 +2,6 @@
  EWC.CONNECTED←connected
  ⎕PW←1000
 
- sel←'Event' 'Select' 'CBUpdateRibbon'
  (fcol bcol titlebcol)←('FCol'(255 255 255))('BCol'(134 171 220))('TitleBCol'(0 0 0)) ⍝ For Ribbon
  bordercol←'BorderCol'(192 192 192) ⍝ For borders between Ribbon Groups
  activebcol←'ActiveBCol'(134 171 220) ⍝ For the active Tab
@@ -34,7 +33,7 @@
 
  (rb,'.DropDownGrp')eWC'RibbonGroup' 'DropDown' bordercol
  (rb,'.DropDownGrp.GrpItem')eWC'RibbonGroupItem' 12
- (rb,'.DropDownGrp.GrpItem.DDBtn')eWC'RibbonDropDownButton' 'Genre' 'FcLibrary' 12 sel
+ (rb,'.DropDownGrp.GrpItem.DDBtn')eWC'RibbonDropDownButton' 'Genre' 'FcLibrary' ('Event' 'Select' 'CB_Issue242_243SelectDropDown')
  (rb,'.DropDownGrp.GrpItem.DDBtn.MItem')eWC'RibbonMenuItem' 'Romance'('Event' 'Select' 'CB_Issue242_243SelectRomance')
  (rb,'.DropDownGrp.GrpItem.DDBtn.MItem')eWC'RibbonMenuItem' 'Thriller'('Event' 'Select' 'CB_Issue242_243SelectThriller')
 
@@ -52,8 +51,8 @@
 ⍝ we have, so far, approached writing eWC code.
  (rb,'.GalleryGrp')eWC'RibbonGroup' 'Gallery' ('Size' 2) bordercol
  (rb,'.GalleryGrp.GrpItem')eWC'RibbonGroupItem' 12
- (rb,'.GalleryGrp.GrpItem.Gallery')eWC'RibbonGallery' 'Other' 'FcLock' 12 sel
- (rb,'.GalleryGrp.GrpItem.Gallery.MItem')eWC'RibbonMenuItem' 'Foobar' ('Rows' 2)('Cols' 3)('Event' 'Select' 'CB_Issue242_243GalleryItem')
+ (rb,'.GalleryGrp.GrpItem.Gallery')eWC'RibbonGallery' 'Other' ('Cols' 2)
+ (rb,'.GalleryGrp.GrpItem.Gallery.MItem')eWC'RibbonMenuItem' 'Foobar' ('Event' 'Select' 'CB_Issue242_243GalleryItem')
 
 ⍝ NOTES:
 ⍝ Notably missing, and worth considering that they'll likely be required:

diff --git a/demo/Run.aplf b/demo/Run.aplf
@@ -3,7 +3,7 @@
  ⍝ web: 'Desktop' (0), 'Browser' (1) or 'Multi' (2)
 
  COORD←'Pixel'
- EWC←##.EWC
+ EWC←#.EWC
  EWC.PORT←22322
  EWC.SHOWDEVTOOLS←0