Implement Scroll action in text::editor

core/src/text/editor.rs

@@ -52,6 +52,7 @@ pub enum Action {
     Edit(Edit),
     Click(Point),
     Drag(Point),
+    Scroll { lines: i32 },
 }
 
 impl Action {

graphics/src/text/editor.rs

@@ -446,6 +446,12 @@ impl editor::Editor for Editor {
                     }
                 }
             }
+            Action::Scroll { lines } => {
+                editor.action(
+                    font_system.raw(),
+                    cosmic_text::Action::Scroll { lines },
+                );
+            }
         }
 
         self.0 = Some(Arc::new(internal));

widget/src/text_editor.rs

@@ -521,6 +521,18 @@ impl Update {
                     }
                     _ => None,
                 },
+                mouse::Event::WheelScrolled { delta } => {
+                    action(Action::Scroll {
+                        lines: match delta {
+                            mouse::ScrollDelta::Lines { y, .. } => {
+                                -y as i32 * 4
+                            }
+                            mouse::ScrollDelta::Pixels { y, .. } => {
+                                -y.signum() as i32
+                            }
+                        },
+                    })
+                }
                 _ => None,
             },
             Event::Keyboard(event) => match event {