diff --git a/src/pd.tk b/src/pd.tk
index 521993ddbcaaec3ccc40991c56afc0e5bf4bc384..0d1c5301298aa0a30ccac01a6a763e5f06e3ff3f 100644
--- a/src/pd.tk
+++ b/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
diff --git a/src/t_main.c b/src/t_main.c
index 2ed688412dee9f06b2ebf789528d9ab269ae6aa3..54811d31e1441bc7d67ea4a12207005161632a17 100644
--- a/src/t_main.c
+++ b/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. */