1 --- WindowMaker-0.61.1/WindowMaker/Defaults/WMState.in Wed Jan 6 16:22:40 1999
2 +++ WindowMaker-0.61.1.dockit/WindowMaker/Defaults/WMState.in Mon Oct 11 15:40:36 1999
12 --- WindowMaker-0.61.1/contrib/dockit Thu Jan 1 01:00:00 1970
13 +++ WindowMaker-0.61.1.dockit/contrib/dockit Sun Jan 24 13:33:28 1999
16 +# Only run the following line once \
19 +##########################################
20 +#Copyright 1998 Kenneth W. Persinger Jr. #
21 +# Written for WindowMaker #
22 +##########################################
25 +# You can add the full path for Xprop here.
28 +###############################
29 +# DO NOT EDIT BELOW THIS LINE #
30 +###############################
32 +global instance;set instance ""
33 +global class;set class ""
34 +global command; set command ""
35 +global Version;set Version V1.2
45 + toplevel .dockit -class Dockit
46 + wm group .dockit .dockit
47 + wm command .dockit "$argv0 $argv"
48 + wm iconname .dockit "Dockit ${Version}"
49 + wm protocol .dockit WM_DELETE_WINDOW {exit}
50 + wm focusmodel .dockit passive
51 + wm title .dockit "Dockit ${Version}"
52 + wm geometry .dockit 309x157+440+412
53 + wm maxsize .dockit 1265 994
54 + wm minsize .dockit 1 1
55 + wm overrideredirect .dockit 0
56 + wm resizable .dockit 0 0
57 + wm deiconify .dockit
59 + label .dockit.msgbar \
60 + -anchor nw -borderwidth 1 -justify left -relief raised \
62 + label .dockit.instlbl \
63 + -borderwidth 1 -relief raised -text Instance
64 + label .dockit.cllbl \
65 + -borderwidth 1 -relief raised -text Class
66 + label .dockit.comlbl \
67 + -borderwidth 1 -relief raised -text Command
68 + entry .dockit.instent -textvariable instance
69 + entry .dockit.clent -textvariable class
70 + entry .dockit.coment -textvariable command
71 + button .dockit.create \
72 + -padx 9 -pady 3 -text {Create Icon} -command {docreate}
73 + button .dockit.exit \
74 + -padx 9 -pady 3 -text Quit -command exit
75 + button .dockit.grab \
76 + -padx 9 -pady 3 -text Grab -command {dograb}
77 + button .dockit.help \
78 + -padx 9 -pady 3 -text Help -command {dohelp}
82 + place .dockit.msgbar \
83 + -x 5 -y 120 -width 296 -height 33 -anchor nw -bordermode ignore
84 + place .dockit.instlbl \
85 + -x 5 -y 5 -width 76 -height 23 -anchor nw -bordermode ignore
86 + place .dockit.cllbl \
87 + -x 5 -y 30 -width 76 -height 23 -anchor nw -bordermode ignore
88 + place .dockit.comlbl \
89 + -x 5 -y 55 -width 76 -height 23 -anchor nw -bordermode ignore
90 + place .dockit.instent \
91 + -x 85 -y 5 -width 216 -height 22 -anchor nw -bordermode ignore
92 + place .dockit.clent \
93 + -x 85 -y 30 -width 216 -height 22 -anchor nw -bordermode ignore
94 + place .dockit.coment \
95 + -x 85 -y 55 -width 216 -height 22 -anchor nw -bordermode ignore
96 + place .dockit.create \
97 + -x 5 -y 80 -width 77 -height 36 -anchor nw -bordermode ignore
98 + place .dockit.exit \
99 + -x 230 -y 80 -width 72 -height 36 -anchor nw -bordermode ignore
100 + place .dockit.grab \
101 + -x 80 -y 80 -width 77 -height 36 -anchor nw -bordermode ignore
102 + place .dockit.help \
103 + -x 155 -y 80 -width 77 -height 36 -anchor nw -bordermode ignore
107 + bind all <Leave> {message ""}
108 + bind .dockit.instlbl <Enter> {message "Instance name goes here.
109 +(the 1st string of WM_CLASS)"}
110 + bind .dockit.instent <Enter> {message "Instance name goes here.
111 +(the 1st string of WM_CLASS)"}
112 + bind .dockit.cllbl <Enter> {message "Class name goes here.
113 +(the 2nd string of WM_CLASS)"}
114 + bind .dockit.clent <Enter> {message "Class name goes here.
115 +(the 2nd string of WM_CLASS)"}
116 + bind .dockit.comlbl <Enter> {message "The command to execute goes here.
117 +(all of WM_COMMAND)"}
118 + bind .dockit.coment <Enter> {message "The command to execute goes here.
119 +(all of WM_COMMAND)"}
120 + bind .dockit.create <Enter> {message "Create you custom AppIcon."}
121 + bind .dockit.exit <Enter> {message "Exit Dockit!"}
122 + bind .dockit.help <Enter> {message "Help with creating AppIcons,
123 +and for these commands."}
124 + bind .dockit.grab <Enter> {message "Grab AppInfo from a running App."}
131 +proc message {message} {
132 + .dockit.msgbar configure -text $message
141 + if {$command == ""} {
142 + tk_dialog .error "DockIt ${Version}: ERROR" \
143 + "You must supply a command line. Otherwise your icon would do nothing!" \
146 + set insttmp $instance
147 + set classtmp $class
148 + set commandtmp $command
150 + if {$insttmp == ""} { set insttmp "dockit" }
151 + if {$classtmp == ""} { set classtmp "DockedApp" }
153 + toplevel .$insttmp -class $classtmp
154 + wm command .$insttmp "$commandtmp"
155 + wm group .$insttmp .$insttmp
156 + label .$insttmp.l1 -text "
157 +Great! Your new App-Icon should be finished now.
158 +once you have dragged it to the Dock, Click Finish.
159 +If your Icon doesn't Dock, or does not appear,
160 +Try again. If problems persist, see Dockit's Help."
161 + button .$insttmp.b1 -text "Finish" -command "destroy .$insttmp"
164 + wm title .$insttmp "Dockit ${Version}: Confirmation"
171 +set HLPTXT { Dockit V1.2
175 + Dockit is a tool designed to provide the ability to Dock
176 + poorly coded programs within WindowMaker.
178 + This is not a 100% accurate solution. It was not designed to be.
179 + It will however, generate a dockable icon 99% of the time.
180 + for that other 1%, you will need to edit by hand.
184 +Error: 'window name starts with an upper-case letter':
186 + This is a limitation of Tcl/Tk.
187 + window/pathnames cannot start with an uppercase letter.
188 + This behavior is most noticable in Netscape's Navigator.
189 + It's instance is 'Navigator'
190 + A work-around to this limitation, is to double-define your App
191 + settings. (ex:'navigator', and 'Navigator')
194 +Error: couldn't execute "xprop": no such file or directory
196 + This means that /usr/X11R6/bin (or its equivilent)
197 + is not defined in your path.
198 + You must add this to your path.
202 +AppIcon does not appear as it should:
204 + This could happen for a number of reasons.
205 + A: You have NoAppIcon defined for that particular App.
206 + B: One word: El Ni~no
210 +App Closes, but Dots do not appear/ Cannot remove Icon from the Dock:
212 + This is the result of a VERY poorly coded App.
213 + As far as WIndowMaker can tell, the program is still running.
214 + The only real fix for this, is CTRL + ALT + BACKSPACE
219 + toplevel .userhelp -class Dockit
220 + wm group .userhelp .dockit
221 + wm iconname .userhelp "Dockit HELP"
222 + wm focusmodel .userhelp passive
223 + wm geometry .userhelp 456x635
224 + wm maxsize .userhelp 1265 1265
225 + wm minsize .userhelp 1 1
226 + wm overrideredirect .userhelp 0
227 + wm resizable .userhelp 1 1
228 + wm deiconify .userhelp
229 + wm title .userhelp "Dockit ${Version}: HELP"
230 + label .userhelp.text \
231 + -anchor nw -justify left -borderwidth 1 \
233 + place .userhelp.text \
234 + -x 0 -y 0 -anchor nw -bordermode ignore
246 + catch "open /tmp/xprop1 w+" m1
247 + exec ${xprop} >@ $m1
249 + set tmpmsg [read $m1]
250 + set tmpmsg [split $tmpmsg \n]
251 + set tclass [lindex $tmpmsg [lsearch -glob $tmpmsg *WM_CLASS*]]
252 + set tclass [split $tclass ,]
253 + set class [string trim [lindex $tclass 1] \ \"]
254 + set instance [string tolower [string trim [lindex [lindex $tclass 0] 2] \ \"]]
255 + set tcom [lindex $tmpmsg [lsearch -glob $tmpmsg *WM_COMMAND*]]
256 + set tcom [split [lindex $tcom 2] \,]
257 + set tcom [split [join $tcom] \"]
258 + set command [join [join $tcom]]
262 --- WindowMaker-0.61.1/contrib/dockit.1 Thu Jan 1 01:00:00 1970
263 +++ WindowMaker-0.61.1.dockit/contrib/dockit.1 Mon Oct 11 15:39:32 1999
265 +.TH DOCKIT 1 "October 1999" "Window Maker utilities"
267 +dockit \- Dock 'undockable' applications
272 +is a tool designed to provide the ability to Dock poorly coded programs within
274 +This is not a 100% accurate solution. It was not designed to be. It will
275 +however, generate a dockable icon 99% of the time. For that other 1%, you will
276 +need to edit by hand.
278 +To run dockit you can also double-click on the Dock's main icon.
281 +.B Error: window name starts with an upper-case letter
282 +This is a limitation of Tcl/Tk. window/pathnames cannot start with an
283 +uppercase letter. This behavior is most noticable in Netscape's Navigator.
284 +It's instance is 'Navigator'. A work-around to this limitation, is to
285 +double-define your App settings (ex:'navigator', and 'Navigator').
287 +.B Error: could not execute "xprop": no such file or directory
288 +This means that /usr/X11R6/bin (or its equivilent) is not defined in your
289 +path. You must add this to your path.
291 +.B AppIcon does not appear as it should
292 +This could happen for a number of reasons.
294 +A: You have NoAppIcon defined for that particular App.
296 +B: One word: El Ni~no
298 +.B App Closes, but Dots do not appear / Cannot remove Icon from the Dock
299 +This is the result of a VERY poorly coded App. As far as WindowMaker can tell,
300 +the program is still running.
301 +The only real fix for this, is CTRL + ALT + BACKSPACE.
304 +.B ~/GNUstep/Defaults/WMState
305 +Information about the Dock and Clip. This is the actual file that gets
306 +written. DON'T edit this while running Window Maker. It will be overwritten.
308 +Dockit was written by Kenneth W. Persinger Jr.
310 +Man page was written by Piotr Czerwinski <pius@pld.org.pl> for the