equal
deleted
inserted
replaced
11 " |
11 " |
12 |
12 |
13 |
13 |
14 |
14 |
15 Object subclass:#DropObject |
15 Object subclass:#DropObject |
16 instanceVariableNames:'theObject' |
16 instanceVariableNames:'theObject displayObject' |
17 classVariableNames:'' |
17 classVariableNames:'' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Interface-Support' |
19 category:'Interface-Support' |
20 ! |
20 ! |
21 |
21 |
26 |
26 |
27 Object - |
27 Object - |
28 " |
28 " |
29 ! |
29 ! |
30 |
30 |
31 DropObject subclass:#Text |
31 DropObject subclass:#Color |
32 instanceVariableNames:'' |
32 instanceVariableNames:'' |
|
33 classVariableNames:'' |
|
34 poolDictionaries:'' |
|
35 privateIn:DropObject |
|
36 ! |
|
37 |
|
38 DropObject subclass:#File |
|
39 instanceVariableNames:'info isHtmlFile isImageFile isPrintable' |
33 classVariableNames:'' |
40 classVariableNames:'' |
34 poolDictionaries:'' |
41 poolDictionaries:'' |
35 privateIn:DropObject |
42 privateIn:DropObject |
36 ! |
43 ! |
37 |
44 |
40 classVariableNames:'' |
47 classVariableNames:'' |
41 poolDictionaries:'' |
48 poolDictionaries:'' |
42 privateIn:DropObject |
49 privateIn:DropObject |
43 ! |
50 ! |
44 |
51 |
45 DropObject subclass:#Color |
52 DropObject subclass:#Text |
46 instanceVariableNames:'' |
53 instanceVariableNames:'' |
47 classVariableNames:'' |
|
48 poolDictionaries:'' |
|
49 privateIn:DropObject |
|
50 ! |
|
51 |
|
52 DropObject subclass:#File |
|
53 instanceVariableNames:'info isHtmlFile isImageFile isPrintable' |
|
54 classVariableNames:'' |
54 classVariableNames:'' |
55 poolDictionaries:'' |
55 poolDictionaries:'' |
56 privateIn:DropObject |
56 privateIn:DropObject |
57 ! |
57 ! |
58 |
58 |
179 "Modified: 19.4.1997 / 13:54:13 / cg" |
179 "Modified: 19.4.1997 / 13:54:13 / cg" |
180 ! ! |
180 ! ! |
181 |
181 |
182 !DropObject methodsFor:'accessing'! |
182 !DropObject methodsFor:'accessing'! |
183 |
183 |
|
184 displayObject |
|
185 "return my graphical representation - here a default is returned" |
|
186 |
|
187 ^ displayObject ? (self class displayObject) |
|
188 |
|
189 |
|
190 ! |
|
191 |
|
192 displayObject:anObject |
|
193 "set my graphical representation" |
|
194 |
|
195 displayObject := anObject |
|
196 |
|
197 ! |
|
198 |
184 theObject |
199 theObject |
185 "return the real object represented by the receiver" |
200 "return the real object represented by the receiver" |
186 |
201 |
187 ^ theObject |
202 ^ theObject |
188 |
203 |
195 theObject := something. |
210 theObject := something. |
196 |
211 |
197 "Modified: 19.4.1997 / 12:53:10 / cg" |
212 "Modified: 19.4.1997 / 12:53:10 / cg" |
198 ! ! |
213 ! ! |
199 |
214 |
200 !DropObject methodsFor:'queries'! |
|
201 |
|
202 displayObject |
|
203 "return my graphical representation - here a default is returned" |
|
204 |
|
205 ^ self class displayObject |
|
206 |
|
207 "Modified: 19.4.1997 / 12:52:41 / cg" |
|
208 ! ! |
|
209 |
|
210 !DropObject methodsFor:'testing'! |
215 !DropObject methodsFor:'testing'! |
211 |
216 |
212 isColorObject |
217 isColorObject |
213 "return true, if the dropObject represents a color" |
218 "return true, if the dropObject represents a color" |
214 |
219 |
237 "return true, if the dropObject represents some text" |
242 "return true, if the dropObject represents some text" |
238 |
243 |
239 ^ false |
244 ^ false |
240 |
245 |
241 "Modified: 19.4.1997 / 12:52:17 / cg" |
246 "Modified: 19.4.1997 / 12:52:17 / cg" |
242 ! ! |
|
243 |
|
244 !DropObject::Text class methodsFor:'defaults'! |
|
245 |
|
246 displayObjectName |
|
247 ^ 'bitmaps/xpmBitmaps/document_images/yellow_file_text_grab.xpm' |
|
248 |
|
249 "Modified: 19.4.1997 / 15:40:33 / cg" |
|
250 ! ! |
|
251 |
|
252 !DropObject::Text methodsFor:'testing'! |
|
253 |
|
254 isTextObject |
|
255 "return true, if the dropObject represents some text" |
|
256 |
|
257 ^ true |
|
258 |
|
259 "Modified: 19.4.1997 / 12:52:08 / cg" |
|
260 ! ! |
|
261 |
|
262 !DropObject::Image class methodsFor:'defaults'! |
|
263 |
|
264 displayObjectName |
|
265 "return the name of a bitmap image file, which is used |
|
266 during a drag." |
|
267 |
|
268 ^ 'bitmaps/xpmBitmaps/misc_tools/picture.xpm' |
|
269 |
|
270 "Modified: 19.4.1997 / 15:38:02 / cg" |
|
271 ! ! |
|
272 |
|
273 !DropObject::Image methodsFor:'testing'! |
|
274 |
|
275 isImageObject |
|
276 "return true, if the dropObject represents an image" |
|
277 |
|
278 ^ true |
|
279 |
|
280 "Modified: 19.4.1997 / 12:51:28 / cg" |
|
281 ! ! |
247 ! ! |
282 |
248 |
283 !DropObject::Color class methodsFor:'defaults'! |
249 !DropObject::Color class methodsFor:'defaults'! |
284 |
250 |
285 displayObjectName |
251 displayObjectName |
414 ^ true |
380 ^ true |
415 |
381 |
416 "Modified: 19.4.1997 / 12:51:49 / cg" |
382 "Modified: 19.4.1997 / 12:51:49 / cg" |
417 ! ! |
383 ! ! |
418 |
384 |
|
385 !DropObject::Image class methodsFor:'defaults'! |
|
386 |
|
387 displayObjectName |
|
388 "return the name of a bitmap image file, which is used |
|
389 during a drag." |
|
390 |
|
391 ^ 'bitmaps/xpmBitmaps/misc_tools/picture.xpm' |
|
392 |
|
393 "Modified: 19.4.1997 / 15:38:02 / cg" |
|
394 ! ! |
|
395 |
|
396 !DropObject::Image methodsFor:'testing'! |
|
397 |
|
398 isImageObject |
|
399 "return true, if the dropObject represents an image" |
|
400 |
|
401 ^ true |
|
402 |
|
403 "Modified: 19.4.1997 / 12:51:28 / cg" |
|
404 ! ! |
|
405 |
|
406 !DropObject::Text class methodsFor:'defaults'! |
|
407 |
|
408 displayObjectName |
|
409 ^ 'bitmaps/xpmBitmaps/document_images/yellow_file_text_grab.xpm' |
|
410 |
|
411 "Modified: 19.4.1997 / 15:40:33 / cg" |
|
412 ! ! |
|
413 |
|
414 !DropObject::Text methodsFor:'testing'! |
|
415 |
|
416 isTextObject |
|
417 "return true, if the dropObject represents some text" |
|
418 |
|
419 ^ true |
|
420 |
|
421 "Modified: 19.4.1997 / 12:52:08 / cg" |
|
422 ! ! |
|
423 |
419 !DropObject class methodsFor:'documentation'! |
424 !DropObject class methodsFor:'documentation'! |
420 |
425 |
421 version |
426 version |
422 ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.5 1997-04-19 15:21:04 cg Exp $' |
427 ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.6 1998-03-09 16:05:51 ca Exp $' |
423 ! ! |
428 ! ! |