directvt#393 WIP: Lua scripting (window.AlwaysOnTop)

o-sdn-o · Jan 3, 2025 · 4ffa895 · 4ffa895
1 parent 6aa0e47
commit 4ffa895
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 1 deletion.
diff --git a/src/vtm.hpp b/src/vtm.hpp
@@ -1307,6 +1307,40 @@ namespace netxs::app::vtm
                                             });
                                             ::lua_settop(lua, 0);
                                         }},
+                        { "AlwaysOnTop", [](base& boss, auto lua)
+                                         {
+                                            auto args_count = ::lua_gettop(lua);
+                                            if (args_count == 0) // Request.
+                                            {
+                                                auto zorder = boss.bell::signal(tier::request, e2::form::prop::zorder);
+                                                ::lua_pushboolean(lua, zorder == zpos::topmost);
+                                            }
+                                            else // Setup.
+                                            {
+                                                auto zorder = ::lua_toboolean(lua, 1) ? zpos::topmost : zpos::plain;
+                                                boss.bell::signal(tier::preview, e2::form::prop::zorder, zorder);
+                                                ::lua_settop(lua, 0);
+                                                ::lua_pushboolean(lua, zorder == zpos::topmost);
+                                            }
+                                         }},
+                        { "Close", [](base& boss, auto lua)
+                                   {
+                                   }},
+                        { "ShowClosePreview", [](base& boss, auto lua)
+                                              {
+                                              }},
+                        { "HideClosePreview", [](base& boss, auto lua)
+                                              {
+                                              }},
+                        { "MinimizeWindow", [](base& boss, auto lua)
+                                            {
+                                            }},
+                        { "MaximizeWindow", [](base& boss, auto lua)
+                                            {
+                                            }},
+                        { "Fullscreen", [](base& boss, auto lua)
+                                        {
+                                        }},
                     };
                     boss.base::plugin<pro::luafx>(proc_map);
                     //boss.LISTEN(tier::release, e2::runscript, gear)

diff --git a/src/vtm.xml b/src/vtm.xml
@@ -138,7 +138,7 @@ R"==(
         <FocusPrevWindow       ="vtm.FocusNextWindow(-1)"/>   <!-- Switch focus to the prev desktop window. -->
         <FocusNextWindow       ="vtm.FocusNextWindow( 1)"/>   <!-- Switch focus to the next desktop window. -->
 
-        <AlwaysOnTop           ="window.AlwaysOnTop()"/>      <!-- Toggle AlwaysOnTop window flag. -->
+        <AlwaysOnTop           ="window.AlwaysOnTop(not window.AlwaysOnTop())"/>  <!-- Toggle AlwaysOnTop window flag. -->
         <CloseWindow           ="window.Close()"/>            <!-- Close window. -->
         <WindowClosePreview    ="window.ShowClosePreview()"/> <!-- Pred window close action. -->
         <CancelWindowClose     ="window.HideClosePreview()"/> <!-- Clear pred-close window state. -->