R6.12, R6.13: the LOK worker has no Dock icon; Show turns slides

R6.12: on macOS the worker sets LibreOffice's own NSApplication to the
accessory policy before the kit starts, so it never shows in the Dock.

R6.13: when the whole slide fits, the wheel and Up/Down (nothing
selected, no text editing) turn slides in the ElyShow editor.

Co-Authored-By: Claude Opus 5.5 (1M context) <noreply@anthropic.com>

apps/ely-show/src/tests/turn.rs

@@ -0,0 +1,62 @@
+use ely_lok::LokView;
+use ely_office::prelude::*;
+use gpui::{Entity, ScrollDelta, ScrollWheelEvent, TestAppContext, VisualTestContext, point};
+
+use super::objects::blank;
+use super::{counts, quiet, settle, update};
+use crate::deck::Deck;
+
+/// The slide canvas alone in a window.
+struct Host(Entity<LokView>);
+
+impl gpui::Render for Host {
+    fn render(&mut self, _: &mut gpui::Window, _: &mut gpui::Context<Self>) -> impl gpui::IntoElement {
+        use gpui::{ParentElement as _, Styled as _};
+        gpui::div().size_full().child(self.0.clone())
+    }
+}
+
+/// The current slide once every turn landed.
+fn current(shown: &mut VisualTestContext, deck: &Entity<Deck>) -> usize {
+    quiet(shown, deck);
+    shown.update(|_, app| deck.read(app).active_tab().map(|tab| tab.extra.slides.current).expect("a tab"))
+}
+
+fn wheel(shown: &mut VisualTestContext, lines: f32) {
+    let middle = shown.update(|window, _| window.viewport_size()).center();
+    let delta = ScrollDelta::Lines(point(0.0, lines));
+    shown.simulate_event(ScrollWheelEvent { position: middle.into(), delta, ..Default::default() });
+}
+
+#[test]
+fn the_wheel_and_up_down_turn_slides() {
+    let dir = tempfile::tempdir().expect("a temp dir");
+    let mut cx = TestAppContext::single();
+    let Some(deck) = blank(&mut cx, dir.path()) else {
+        return eprintln!("SKIP: no LOK build");
+    };
+    for n in 2..=3 {
+        update(&mut cx, &deck, |deck, cx| deck.object_command("slide.insert", &[], cx));
+        settle(&cx, |app| counts(app, &deck).0 == n);
+    }
+    let view = cx.update(|app| deck.read(app).active_tab().expect("a tab").view.clone());
+    cx.update(|app| view.update(app, |view, _| view.show_part(0)));
+    let window = cx.add_window(|_, _| Host(view.clone()));
+    let mut shown = VisualTestContext::from_window(window.into(), &cx);
+    shown.run_until_parked();
+    assert_eq!(current(&mut shown, &deck), 0);
+    wheel(&mut shown, -1.0);
+    assert_eq!(current(&mut shown, &deck), 1, "the wheel turns down");
+    shown.update(|window, app| {
+        let focus = view.read(app).focus_handle().clone();
+        window.focus(&focus, app)
+    });
+    shown.simulate_keystrokes("down");
+    assert_eq!(current(&mut shown, &deck), 2, "Down turns");
+    shown.simulate_keystrokes("down");
+    assert_eq!(current(&mut shown, &deck), 2, "the last slide stays");
+    shown.simulate_keystrokes("up");
+    assert_eq!(current(&mut shown, &deck), 1, "Up turns back");
+    wheel(&mut shown, 1.0);
+    assert_eq!(current(&mut shown, &deck), 0, "the wheel turns up");
+}