streamlined all windows so that they appear under the same desktop icon inside unity

src/pd.tk

@@ -739,7 +739,7 @@ pack .controls.dio -side right -padx 20
 #	pack .controls.clr_console -pady 30
 #}
 
-toplevel .printout
+toplevel .printout -class pd-l2ork
 wm title .printout "Console"
 # initial location of the console window (+x+y)
 wm geometry .printout +10+170
@@ -878,6 +878,7 @@ catch {
 if { [info tclversion] >= 8.5 && $pd_nt == 0 } { wm resizable . 0 0 }
 # Intercept closing the main pd window: MP 20060413:
 wm protocol . WM_DELETE_WINDOW menu_quit
+puts stderr [winfo class .]
 focus .
 
 
@@ -1114,7 +1115,7 @@ proc menu_send {} {
     if { [winfo exists .sendpanel.entry] } {
         raise .sendpanel
     } else {
-		toplevel .sendpanel
+		toplevel .sendpanel -class pd-l2ork
 		wm title .sendpanel {Send Message to Pd}
 		wm resizable .sendpanel 0 0
 		match_linux_wm [list .sendpanel configure]
@@ -1235,7 +1236,7 @@ proc menu_opentext {filename} {
         raise .about
     } else {
 		destroy .about
-		toplevel .about
+		toplevel .about -class pd-l2ork
 		wm title .about "About Pd"
 		wm geometry .about 550x480
 		match_linux_wm [list text .about.text -relief sunken -bd 1 -font text_font \
@@ -1606,7 +1607,7 @@ proc makeapp_embedprefs {appdir patch_to_open} {
 }
 
 proc makeapp_busypanel {appdir} {
-	toplevel .makeapp
+	toplevel .makeapp -class pd-l2ork
 	wm title .makeapp "Making App"
 	wm attributes .makeapp -topmost 1
 	wm resizable .makeapp 0 0
@@ -2058,7 +2059,7 @@ proc menu_findobject {canvas} {
 
 		set find_canvas $canvas
 		
-		toplevel .find
+		toplevel .find -class pd-l2ork
 		wm title .find "Find"
 		match_linux_wm [list .find configure]
 		#wm geometry .find =400x125+150+100
@@ -2211,9 +2212,9 @@ proc pdtk_canvas_new {name width height geometry editable} {
 	}
 
 	if {$::menu($name) == 1} {
-    	toplevel $name -menu $name.m
+    	toplevel $name -menu $name.m -class pd-l2ork
 	} else {
-		toplevel $name -menu ""
+		toplevel $name -menu "" -class pd-l2ork
 	}
 
 	# initialize variable to reflect that this window has been open
@@ -3028,7 +3029,7 @@ proc pdtk_array_listview_new {id arrayName page} {
     set pd_array_listview_id($arrayName) $id
     set windowName [format ".%sArrayWindow" $arrayName]
     if [winfo exists $windowName] then [destroy $windowName]
-    toplevel $windowName
+    toplevel $windowName -class pd-l2ork
 	wm geometry $windowName 220x400
 	wm minsize $windowName 220 400
 	#pdtk_standardkeybindings $windowName
@@ -3943,7 +3944,7 @@ proc pdtk_canvas_dofont {name canvas initsize} {
 	set font_properties $name
 	set font_canvas $canvas
     
-    toplevel $name
+    toplevel $name -class pd-l2ork
 	match_linux_wm [list $name configure]
 	wm resizable $name 0 0
     wm title $name  {Font Settings}
@@ -4112,7 +4113,7 @@ proc pdtk_gatom_dialog {id initwidth initlo inithi \
     set $var_gatomsymfrom [gatom_unescape $symfrom]
     set $var_gatomsymto [gatom_unescape $symto]
 
-    toplevel $id
+    toplevel $id -class pd-l2ork
     wm title $id "Atom Box Properties"
 	match_linux_wm [list $id configure] 
     wm resizable $id 0 0
@@ -4852,7 +4853,7 @@ proc pdtk_iemgui_dialog {id mainheader \
     
     set $var_iemgui_l2_f1_b0 0
 
-    toplevel $id
+    toplevel $id -class pd-l2ork
     wm title $id [format "%s Properties" $mainheader]
 	match_linux_wm [list $id configure]
     wm resizable $id 0 0
@@ -5242,7 +5243,7 @@ proc pdtk_array_dialog {id name n flags newone canvas} {
     set $var_array_drawasrects [expr ( $flags & 2 ) != 0]
     set $var_array_otherflag 0
 
-    toplevel $id
+    toplevel $id -class pd-l2ork
     wm title $id {Edit Array}
 	match_linux_wm [list $id configure]
     wm resizable $id 0 0
@@ -5541,7 +5542,7 @@ proc pdtk_canvas_dialog {id xscale yscale graphme x1 y1 x2 y2 \
     set $var_canvas_xmargin $xmargin
     set $var_canvas_ymargin $ymargin
 
-    toplevel $id
+    toplevel $id -class pd-l2ork
     wm title $id {Canvas Properties}
 	match_linux_wm [list $id configure]
 	wm resizable $id 0 0
@@ -5671,7 +5672,7 @@ proc dodata_ok {name} {
 proc pdtk_data_dialog {name stuff} {
     global pd_deffont
 	global pd_nt
-    toplevel $name
+    toplevel $name -class pd-l2ork
     match_linux_wm [list $name configure]
     wm title $name {Atom}
     wm protocol $name WM_DELETE_WINDOW [concat dodata_cancel $name]
@@ -6067,7 +6068,7 @@ proc pdtk_pd_texteditor {stuff} {
     } else {
 		set name .texteditor
 
-		toplevel $name
+		toplevel $name -class pd-l2ork
 		match_linux_wm [list $name configure]
 		wm title $name {Text Editor}
 
@@ -6292,7 +6293,7 @@ proc pdtk_audio_dialog {id indev1 indev2 indev3 indev4 \
     set audio_sr $sr
     set audio_advance $advance
     set audio_callback $callback
-    toplevel $id
+    toplevel $id -class pd-l2ork
 	match_linux_wm [list $id configure]
     wm title $id {Audio Settings}
 	wm resizable $id 0 0
@@ -6570,7 +6571,7 @@ proc pdtk_midi_dialog {id indev1 indev2 indev3 indev4 \
     set midi_alsain [llength $midi_indevlist]
     set midi_alsaout [llength $midi_outdevlist]
 
-    toplevel $id
+    toplevel $id -class pd-l2ork
 	match_linux_wm [list $id configure]
 	wm resizable $id 0 0
 	wm title $id {MIDI Settings}
@@ -6765,7 +6766,7 @@ proc pdtk_alsa_midi_dialog {id indev1 indev2 indev3 indev4 \
     set midi_alsain [llength $midi_indevlist]
     set midi_alsaout [llength $midi_outdevlist]
     
-    toplevel $id
+    toplevel $id -class pd-l2ork
     match_linux_wm [list $id configure]
 	wm resizable $id 0 0
 	wm title $id {MIDI Settings}
@@ -7202,7 +7203,7 @@ namespace eval dlg_ScrollBoxWindow {
     proc make { id listdata add_method edit_method commit_method title width height } {
 		global pd_nt
  
-		toplevel $id
+		toplevel $id -class pd-l2ork
 		match_linux_wm [list $id configure]
         wm title $id $title
 		
@@ -7322,7 +7323,7 @@ namespace eval dlg_Startup {
         global cmd
         set cmd $initialValue
 
-        toplevel .inputBox
+        toplevel .inputBox -class pd-l2ork
         wm title .inputBox $prompt
         wm minsize .inputBox 450 30
         wm resizable .inputBox 1 0
@@ -7479,7 +7480,7 @@ if { [info tclversion] >= 8.5 && $pd_nt == 0 } {
 		set rgb_g [expr 0x$hex_rgb_g]
 		set rgb_b [expr 0x$hex_rgb_b]
 
-		toplevel $name
+		toplevel $name -class pd-l2ork
 
 		wm resizable $name 0 0
 		#global tmp_xpix tmp_ypix

src/t_main.c

@@ -48,13 +48,13 @@ main(int argc, char **argv)
     {
         pdgui_setsock(atoi(argv[1]));
         argc--; argv++;
-        argv[0] = "Pd";
+        argv[0] = "pd-l2ork";
     }
     if (argc >= 2)
     {
         pdgui_sethost(argv[1]);
         argc--; argv++;
-        argv[0] = "Pd";
+        argv[0] = "pd-l2ork";
     }
     Tk_Main(argc, argv, Tcl_AppInit);
     return 0;                   /* Needed only to prevent compiler warning. */