Commit 997df2e7 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

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

parent e36fa2d4
......@@ -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
......
......@@ -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. */
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment