Re: bin/58467: ctwm does not move the application window to the specified workspace

[RVP <rvp%SDF.ORG@localhost>]

The following reply was made to PR bin/58467; it has been noted by GNATS.

From: RVP <rvp%SDF.ORG@localhost>
To: gnats-bugs%netbsd.org@localhost
Cc: 
Subject: Re: bin/58467: ctwm does not move the application window to the
 specified workspace
Date: Fri, 26 Jul 2024 08:07:30 +0000 (UTC)

 Actually, it does move the window if only 1 workspace is selected--ie. all
 other workspaces should be de-selected. This is a bit difficult to see
 because of the bug you reported.
 
 > 2.Popup window does not display correctly, but you can select workspaces
 >
 
 Can you try this patch below (and please upstream it because it's a
 quick hack and may not be the correct way to do it.):
 
 --- START ---
 diff -urN a/xsrc/external/mit/ctwm/dist/occupation.c b/xsrc/external/mit/ctwm/dist/occupation.c
 --- a/xsrc/external/mit/ctwm/dist/occupation.c	2023-07-05 07:36:07.000000000 +0000
 +++ b/xsrc/external/mit/ctwm/dist/occupation.c	2024-07-26 07:28:17.638397232 +0000
 @@ -1131,6 +1131,8 @@
   	/* Mark it shown, and stash what window we're showing it for */
   	occupyWindow->twm_win->mapped = true;
   	occupyWin = twm_win;
 +
 +	PaintOccupyWindow();
   }
 
 
 --- END ---
 
 If you want to switch the workspace after moving the window, something
 like this in ~/.ctwmrc works:
 
 --- START ---
 --- system.ctwmrc	2024-05-31 13:11:41.000000000 +0000
 +++ .ctwmrc	2024-07-26 06:59:35.771645403 +0000
 @@ -322,6 +322,15 @@
       " Quit"			f.quit
   }
 
 +menu "workspaces"
 +{
 +    "1"		f.function "move-to-wsp-1"
 +    "2"		f.function "move-to-wsp-2"
 +    "3"		f.function "move-to-wsp-3"
 +    "4"		f.function "move-to-wsp-4"
 +    "5"		f.function "move-to-wsp-5"
 +}
 +
   menu "titleops"
   {
       "Window"       f.title
 @@ -330,7 +339,7 @@
       " Resize"      f.resize
       " Move"        f.move
       ""             f.separator
 -    " Occupy ..."  f.occupy
 +    " Move-To..."  f.menu "workspaces"
       " Occupy All"  f.occupyall
       ""             f.separator
       " Raise"       f.raise
 @@ -389,6 +398,12 @@
   Function "raise-move"          { f.raise f.deltastop f.forcemove }
   Function "raise-and-resize"    { f.raise f.deltastop f.resize }
 
 +Function "move-to-wsp-1"       { f.addtoworkspace "1" f.vanish f.gotoworkspace "1" }
 +Function "move-to-wsp-2"       { f.addtoworkspace "2" f.vanish f.gotoworkspace "2" }
 +Function "move-to-wsp-3"       { f.addtoworkspace "3" f.vanish f.gotoworkspace "3" }
 +Function "move-to-wsp-4"       { f.addtoworkspace "4" f.vanish f.gotoworkspace "4" }
 +Function "move-to-wsp-5"       { f.addtoworkspace "5" f.vanish f.gotoworkspace "5" }
 +
   # These are basically essential for basic functionality.
 
   Button1 =	: title		: f.function "raise-move"
 --- END ---
 
 -RVP
 
 PS. Only tested all this on ctwm-4.1.0 in -HEAD.