|
1 "{ Package: 'stx:goodies/xmlsuite' }" |
|
2 |
|
3 "{ NameSpace: XMLv2 }" |
|
4 |
|
5 DomainModelUI subclass:#DOM3Inspector |
|
6 instanceVariableNames:'elementPropertiesPane domNodeInspectorView' |
|
7 classVariableNames:'' |
|
8 poolDictionaries:'' |
|
9 category:'XML Suite-DOM3 Inspector' |
|
10 ! |
|
11 |
|
12 HierarchicalItem subclass:#DOM3NodeItem |
|
13 instanceVariableNames:'node' |
|
14 classVariableNames:'' |
|
15 poolDictionaries:'' |
|
16 privateIn:DOM3Inspector |
|
17 ! |
|
18 |
|
19 DomainModelUI subclass:#ElementPropertiesPane |
|
20 instanceVariableNames:'' |
|
21 classVariableNames:'' |
|
22 poolDictionaries:'' |
|
23 privateIn:DOM3Inspector |
|
24 ! |
|
25 |
|
26 |
|
27 !DOM3Inspector class methodsFor:'interface specs'! |
|
28 |
|
29 propertiesTabPaneSpec |
|
30 "This resource specification was automatically generated |
|
31 by the UIPainter of ST/X." |
|
32 |
|
33 "Do not manually edit this!! If it is corrupted, |
|
34 the UIPainter may not be able to read the specification." |
|
35 |
|
36 " |
|
37 UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#propertiesTabPaneSpec |
|
38 XMLv2::DOM3Inspector new openInterface:#propertiesTabPaneSpec |
|
39 " |
|
40 |
|
41 <resource: #canvas> |
|
42 |
|
43 ^ |
|
44 #(FullSpec |
|
45 name: propertiesTabPaneSpec |
|
46 window: |
|
47 (WindowSpec |
|
48 label: 'DOM Node properties' |
|
49 name: 'DOM Node properties' |
|
50 min: (Point 10 10) |
|
51 bounds: (Rectangle 0 0 538 516) |
|
52 ) |
|
53 component: |
|
54 (SpecCollection |
|
55 collection: ( |
|
56 (SubCanvasSpec |
|
57 name: 'ElementPropertiesCanvas' |
|
58 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
59 hasHorizontalScrollBar: false |
|
60 hasVerticalScrollBar: false |
|
61 clientHolder: domNodePropertiesPaneAspect |
|
62 subAspectHolders: |
|
63 (Array |
|
64 |
|
65 (SubChannelInfoSpec |
|
66 subAspect: model |
|
67 aspect: domNodeAspect |
|
68 ) |
|
69 ) |
|
70 ) |
|
71 ) |
|
72 |
|
73 ) |
|
74 ) |
|
75 |
|
76 "Modified: / 12-12-2006 / 09:09:10 / janfrog" |
|
77 ! |
|
78 |
|
79 smalltalkObjectTabPaneSpec |
|
80 "This resource specification was automatically generated |
|
81 by the UIPainter of ST/X." |
|
82 |
|
83 "Do not manually edit this!! If it is corrupted, |
|
84 the UIPainter may not be able to read the specification." |
|
85 |
|
86 " |
|
87 UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#smalltalkObjectTabPaneSpec |
|
88 XMLv2::DOM3Inspector new openInterface:#smalltalkObjectTabPaneSpec |
|
89 " |
|
90 |
|
91 <resource: #canvas> |
|
92 |
|
93 ^ |
|
94 #(FullSpec |
|
95 name: smalltalkObjectTabPaneSpec |
|
96 window: |
|
97 (WindowSpec |
|
98 label: 'DOM Node properties' |
|
99 name: 'DOM Node properties' |
|
100 min: (Point 10 10) |
|
101 bounds: (Rectangle 0 0 538 516) |
|
102 ) |
|
103 component: |
|
104 (SpecCollection |
|
105 collection: ( |
|
106 (ArbitraryComponentSpec |
|
107 name: 'NodeInspector' |
|
108 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
109 hasBorder: false |
|
110 component: domNodeInspectorView |
|
111 ) |
|
112 ) |
|
113 |
|
114 ) |
|
115 ) |
|
116 |
|
117 "Modified: / 12-12-2006 / 09:43:08 / janfrog" |
|
118 ! |
|
119 |
|
120 windowSpec |
|
121 "This resource specification was automatically generated |
|
122 by the UIPainter of ST/X." |
|
123 |
|
124 "Do not manually edit this!! If it is corrupted, |
|
125 the UIPainter may not be able to read the specification." |
|
126 |
|
127 " |
|
128 UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#windowSpec |
|
129 XMLv2::DOM3Inspector new openInterface:#windowSpec |
|
130 XMLv2::DOM3Inspector open |
|
131 " |
|
132 |
|
133 <resource: #canvas> |
|
134 |
|
135 ^ |
|
136 #(FullSpec |
|
137 name: windowSpec |
|
138 window: |
|
139 (WindowSpec |
|
140 label: 'DOM Inspector' |
|
141 name: 'DOM Inspector' |
|
142 min: (Point 10 10) |
|
143 bounds: (Rectangle 0 0 554 438) |
|
144 ) |
|
145 component: |
|
146 (SpecCollection |
|
147 collection: ( |
|
148 (VariableHorizontalPanelSpec |
|
149 name: 'SplitPanel' |
|
150 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
151 showHandle: true |
|
152 snapMode: both |
|
153 component: |
|
154 (SpecCollection |
|
155 collection: ( |
|
156 (HierarchicalListViewSpec |
|
157 name: 'NodeTree' |
|
158 model: domNodeAspect |
|
159 hasHorizontalScrollBar: true |
|
160 hasVerticalScrollBar: true |
|
161 listModel: domNodeTreeAspect |
|
162 useIndex: false |
|
163 highlightMode: line |
|
164 useDefaultIcons: false |
|
165 properties: |
|
166 (PropertyListDictionary |
|
167 dragArgument: nil |
|
168 dropArgument: nil |
|
169 canDropSelector: canDropDocument: |
|
170 dropSelector: dropDocument: |
|
171 ) |
|
172 ) |
|
173 (NoteBookViewSpec |
|
174 name: 'NodeProperties' |
|
175 menu: propertyTabList |
|
176 ) |
|
177 ) |
|
178 |
|
179 ) |
|
180 handles: (Any 0.3 1.0) |
|
181 ) |
|
182 ) |
|
183 |
|
184 ) |
|
185 ) |
|
186 |
|
187 "Modified: / 12-12-2006 / 11:40:23 / janfrog" |
|
188 ! |
|
189 |
|
190 xmlTabPaneSpec |
|
191 "This resource specification was automatically generated |
|
192 by the UIPainter of ST/X." |
|
193 |
|
194 "Do not manually edit this!! If it is corrupted, |
|
195 the UIPainter may not be able to read the specification." |
|
196 |
|
197 " |
|
198 UIPainter new openOnClass:XMLv2::DOM3Inspector andSelector:#propertyPaneXML |
|
199 XMLv2::DOM3Inspector new openInterface:#propertyPaneXML |
|
200 " |
|
201 |
|
202 <resource: #canvas> |
|
203 |
|
204 ^ |
|
205 #(FullSpec |
|
206 name: propertyPaneXML |
|
207 window: |
|
208 (WindowSpec |
|
209 label: 'NewApplication' |
|
210 name: 'NewApplication' |
|
211 min: (Point 10 10) |
|
212 bounds: (Rectangle 0 0 300 300) |
|
213 ) |
|
214 component: |
|
215 (SpecCollection |
|
216 collection: ( |
|
217 (TextEditorSpec |
|
218 name: 'NodeXML' |
|
219 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
220 model: domNodeXMLAspect |
|
221 hasHorizontalScrollBar: true |
|
222 hasVerticalScrollBar: true |
|
223 isReadOnly: true |
|
224 ) |
|
225 ) |
|
226 |
|
227 ) |
|
228 ) |
|
229 |
|
230 "Created: / 12-12-2006 / 08:48:07 / janfrog" |
|
231 ! ! |
|
232 |
|
233 !DOM3Inspector class methodsFor:'list specs'! |
|
234 |
|
235 propertyTabList |
|
236 "This resource specification was automatically generated |
|
237 by the TabListEditor of ST/X." |
|
238 |
|
239 "Do not manually edit this!! If it is corrupted, |
|
240 the TabListEditor may not be able to read the specification." |
|
241 |
|
242 " |
|
243 TabListEditor new openOnClass: self andSelector:#propertyTabList |
|
244 " |
|
245 |
|
246 <resource: #tabList> |
|
247 |
|
248 ^ #( |
|
249 (TabItem |
|
250 label: 'XML' |
|
251 minorKey: xmlTabPaneSpec |
|
252 ) |
|
253 (TabItem |
|
254 label: 'Properties' |
|
255 minorKey: propertiesTabPaneSpec |
|
256 ) |
|
257 (TabItem |
|
258 label: 'Smalltalk object' |
|
259 minorKey: smalltalkObjectTabPaneSpec |
|
260 ) |
|
261 ) |
|
262 |
|
263 collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ] |
|
264 |
|
265 "Modified: / 12-12-2006 / 09:43:44 / janfrog" |
|
266 ! ! |
|
267 |
|
268 !DOM3Inspector class methodsFor:'plugIn spec'! |
|
269 |
|
270 aspectSelectors |
|
271 "This resource specification was automatically generated |
|
272 by the UIPainter of ST/X." |
|
273 |
|
274 "Do not manually edit this. If it is corrupted, |
|
275 the UIPainter may not be able to read the specification." |
|
276 |
|
277 "Return a description of exported aspects; |
|
278 these can be connected to aspects of an embedding application |
|
279 (if this app is embedded in a subCanvas)." |
|
280 |
|
281 ^ #( |
|
282 #model |
|
283 ). |
|
284 |
|
285 "Modified: / 12-12-2006 / 11:40:23 / janfrog" |
|
286 ! ! |
|
287 |
|
288 !DOM3Inspector methodsFor:'accessing'! |
|
289 |
|
290 domNode |
|
291 |
|
292 ^self domNodeAspect value ifNotNil:[self domNodeAspect value node] |
|
293 |
|
294 "Created: / 12-12-2006 / 00:42:07 / janfrog" |
|
295 ! |
|
296 |
|
297 domNodeInspectorView |
|
298 |
|
299 domNodeInspectorView ifNil: |
|
300 [domNodeInspectorView := InspectorView new. |
|
301 "domNodeInspectorView fieldListLabel: 'DOM3Node:'" |
|
302 domNodeInspectorView inspect:self domNode]. |
|
303 ^domNodeInspectorView |
|
304 |
|
305 "Created: / 12-12-2006 / 09:41:31 / janfrog" |
|
306 "Modified: / 12-12-2006 / 11:41:17 / janfrog" |
|
307 ! |
|
308 |
|
309 elementPropertiesPane |
|
310 |
|
311 elementPropertiesPane ifNil: |
|
312 [elementPropertiesPane := ElementPropertiesPane on:self domNodeAspect]. |
|
313 ^elementPropertiesPane |
|
314 |
|
315 "Created: / 12-12-2006 / 09:12:00 / janfrog" |
|
316 ! ! |
|
317 |
|
318 !DOM3Inspector methodsFor:'aspects'! |
|
319 |
|
320 domNodeAspect |
|
321 |
|
322 ^self |
|
323 aspectAt: #domNodeAspect |
|
324 ifAbsentPut: |
|
325 [(self domNodeTreeAspect value root asValue) |
|
326 onChangeEvaluate:[self updateDomNodeInspectorView]; |
|
327 yourself]. |
|
328 |
|
329 "Created: / 12-12-2006 / 00:15:39 / janfrog" |
|
330 "Modified: / 12-12-2006 / 09:44:23 / janfrog" |
|
331 ! |
|
332 |
|
333 domNodePropertiesPaneAspect |
|
334 |
|
335 ^self |
|
336 aspectAt:#domNodePropertiesPaneAspect |
|
337 ifAbsentPut:[ |
|
338 PluggableAdaptor |
|
339 on: self domNodeAspect |
|
340 getter: |
|
341 [:m|m value |
|
342 ifNil:[nil] |
|
343 ifNotNil:[m value isElement |
|
344 ifFalse:[nil] |
|
345 ifTrue:[self elementPropertiesPane]]]] |
|
346 |
|
347 "Created: / 12-12-2006 / 09:09:00 / janfrog" |
|
348 ! |
|
349 |
|
350 domNodeTreeAspect |
|
351 |
|
352 ^self |
|
353 aspectAt: #domTreeNodeAspect |
|
354 ifAbsentPut: [ |
|
355 | hlist | |
|
356 hlist := HierarchicalList new |
|
357 root: (DOM3NodeItem for:self model); |
|
358 showRoot: true; |
|
359 yourself. |
|
360 hlist root expand. |
|
361 hlist |
|
362 ] |
|
363 |
|
364 "Created: / 12-12-2006 / 00:16:47 / janfrog" |
|
365 "Modified: / 12-12-2006 / 12:47:40 / janfrog" |
|
366 ! |
|
367 |
|
368 domNodeXMLAspect |
|
369 |
|
370 ^self |
|
371 aspectAt: #domNodeXMLAspect |
|
372 ifAbsentPut: [self aspectAdaptorFor: #asColorXMLString on: self domNodeAspect] |
|
373 |
|
374 "Created: / 12-12-2006 / 00:45:19 / janfrog" |
|
375 ! |
|
376 |
|
377 propertyTabList |
|
378 "Generated by the TabListEditor" |
|
379 |
|
380 |list| |
|
381 |
|
382 (list := builder bindingAt:#propertyTabList) isNil ifTrue:[ |
|
383 builder aspectAt:#propertyTabList put:(list := self class propertyTabList). |
|
384 ]. |
|
385 ^ list |
|
386 |
|
387 "Created: / 12-12-2006 / 00:12:43 / janfrog" |
|
388 ! ! |
|
389 |
|
390 !DOM3Inspector methodsFor:'drag & drop'! |
|
391 |
|
392 canDropDocument: anObject |
|
393 |
|
394 self halt. |
|
395 |
|
396 "Created: / 12-12-2006 / 09:23:48 / janfrog" |
|
397 ! |
|
398 |
|
399 dropDocument: anObject |
|
400 |
|
401 self halt. |
|
402 |
|
403 "Created: / 12-12-2006 / 09:23:51 / janfrog" |
|
404 ! ! |
|
405 |
|
406 !DOM3Inspector methodsFor:'updating'! |
|
407 |
|
408 updateDomNodeInspectorView |
|
409 |
|
410 self domNodeInspectorView inspect: self domNode |
|
411 |
|
412 "Modified: / 12-12-2006 / 09:45:29 / janfrog" |
|
413 ! ! |
|
414 |
|
415 !DOM3Inspector::DOM3NodeItem class methodsFor:'instance creation'! |
|
416 |
|
417 for: node |
|
418 |
|
419 ^self new setNode: node; yourself |
|
420 |
|
421 "Created: / 12-12-2006 / 00:32:53 / janfrog" |
|
422 ! |
|
423 |
|
424 for: node parent: parent |
|
425 |
|
426 ^self new setNode: node; parent: parent; yourself |
|
427 |
|
428 "Created: / 12-12-2006 / 00:30:51 / janfrog" |
|
429 ! ! |
|
430 |
|
431 !DOM3Inspector::DOM3NodeItem methodsFor:'accessing'! |
|
432 |
|
433 children |
|
434 |
|
435 children ifNil: |
|
436 [children := node childNodes |
|
437 select:[:childNode| (childNode isText not) or:[childNode isIgnorableText not]] |
|
438 thenCollect:[:childNode|self class for:childNode parent: self.]]. |
|
439 ^children |
|
440 |
|
441 "Created: / 12-12-2006 / 00:21:50 / janfrog" |
|
442 "Modified: / 12-12-2006 / 10:32:05 / janfrog" |
|
443 ! |
|
444 |
|
445 label |
|
446 |
|
447 node isElement ifTrue:[^'<',node nodeName,'>']. |
|
448 ^node nodeName |
|
449 |
|
450 "Created: / 12-12-2006 / 00:19:56 / janfrog" |
|
451 ! |
|
452 |
|
453 node |
|
454 ^ node |
|
455 |
|
456 "Created: / 12-12-2006 / 09:46:03 / janfrog" |
|
457 ! ! |
|
458 |
|
459 !DOM3Inspector::DOM3NodeItem methodsFor:'initialization'! |
|
460 |
|
461 setNode: aNode |
|
462 |
|
463 node := aNode |
|
464 |
|
465 "Created: / 12-12-2006 / 00:22:34 / janfrog" |
|
466 ! ! |
|
467 |
|
468 !DOM3Inspector::DOM3NodeItem methodsFor:'message delegation'! |
|
469 |
|
470 doesNotUnderstand: aMessage |
|
471 |
|
472 ^(node respondsTo: aMessage selector) |
|
473 ifTrue:[aMessage reinvokeFor: node] |
|
474 ifFalse:[super doesNotUnderstand: aMessage] |
|
475 |
|
476 "Created: / 12-12-2006 / 09:04:49 / janfrog" |
|
477 ! ! |
|
478 |
|
479 !DOM3Inspector::ElementPropertiesPane class methodsFor:'interface specs'! |
|
480 |
|
481 windowSpec |
|
482 "This resource specification was automatically generated |
|
483 by the UIPainter of ST/X." |
|
484 |
|
485 "Do not manually edit this!! If it is corrupted, |
|
486 the UIPainter may not be able to read the specification." |
|
487 |
|
488 " |
|
489 UIPainter new openOnClass:XMLv2::DOM3Inspector::ElementPropertiesPane andSelector:#windowSpec |
|
490 XMLv2::DOM3Inspector::ElementPropertiesPane new openInterface:#windowSpec |
|
491 XMLv2::DOM3Inspector::ElementPropertiesPane open |
|
492 " |
|
493 |
|
494 <resource: #canvas> |
|
495 |
|
496 ^ |
|
497 #(FullSpec |
|
498 name: windowSpec |
|
499 window: |
|
500 (WindowSpec |
|
501 label: 'Element Properties' |
|
502 name: 'Element Properties' |
|
503 min: (Point 10 10) |
|
504 bounds: (Rectangle 0 0 508 266) |
|
505 ) |
|
506 component: |
|
507 (SpecCollection |
|
508 collection: ( |
|
509 (VerticalPanelViewSpec |
|
510 name: 'PropertiesAndAttributesTablePane' |
|
511 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
512 horizontalLayout: fit |
|
513 verticalLayout: topSpaceFit |
|
514 horizontalSpace: 3 |
|
515 verticalSpace: 3 |
|
516 component: |
|
517 (SpecCollection |
|
518 collection: ( |
|
519 (HorizontalPanelViewSpec |
|
520 name: 'PropertiesPane' |
|
521 horizontalLayout: leftSpaceFit |
|
522 verticalLayout: center |
|
523 horizontalSpace: 3 |
|
524 verticalSpace: 3 |
|
525 component: |
|
526 (SpecCollection |
|
527 collection: ( |
|
528 (VerticalPanelViewSpec |
|
529 name: 'LabelPane' |
|
530 horizontalLayout: left |
|
531 verticalLayout: spreadSpace |
|
532 horizontalSpace: 3 |
|
533 verticalSpace: 3 |
|
534 component: |
|
535 (SpecCollection |
|
536 collection: ( |
|
537 (LabelSpec |
|
538 label: 'Node Name:' |
|
539 name: 'NodeNameLabel' |
|
540 translateLabel: true |
|
541 resizeForLabel: true |
|
542 adjust: left |
|
543 useDefaultExtent: true |
|
544 ) |
|
545 (LabelSpec |
|
546 label: 'Namespace URI:' |
|
547 name: 'NamespaceURILabel' |
|
548 translateLabel: true |
|
549 resizeForLabel: true |
|
550 adjust: left |
|
551 useDefaultExtent: true |
|
552 ) |
|
553 (LabelSpec |
|
554 label: 'Node Type:' |
|
555 name: 'NodeTypeLabel' |
|
556 translateLabel: true |
|
557 resizeForLabel: true |
|
558 adjust: left |
|
559 useDefaultExtent: true |
|
560 ) |
|
561 (LabelSpec |
|
562 label: 'Node Value:' |
|
563 name: 'NodeValueLabel' |
|
564 translateLabel: true |
|
565 resizeForLabel: true |
|
566 adjust: left |
|
567 useDefaultExtent: true |
|
568 ) |
|
569 ) |
|
570 |
|
571 ) |
|
572 extent: (Point 130 93) |
|
573 ) |
|
574 (VerticalPanelViewSpec |
|
575 name: 'ValuePanel' |
|
576 horizontalLayout: fit |
|
577 verticalLayout: spreadSpace |
|
578 horizontalSpace: 3 |
|
579 verticalSpace: 3 |
|
580 component: |
|
581 (SpecCollection |
|
582 collection: ( |
|
583 (InputFieldSpec |
|
584 name: 'NodeNameField' |
|
585 initiallyDisabled: true |
|
586 model: domNodeNameAspect |
|
587 acceptOnReturn: true |
|
588 acceptOnTab: true |
|
589 acceptOnLostFocus: true |
|
590 acceptOnPointerLeave: false |
|
591 extent: (Point 369 22) |
|
592 ) |
|
593 (InputFieldSpec |
|
594 name: 'NamespaceURIField' |
|
595 initiallyDisabled: true |
|
596 model: domNodeNamespaceURIAspect |
|
597 acceptOnReturn: true |
|
598 acceptOnTab: true |
|
599 acceptOnLostFocus: true |
|
600 acceptOnPointerLeave: false |
|
601 extent: (Point 369 22) |
|
602 ) |
|
603 (InputFieldSpec |
|
604 name: 'NodeTypeField' |
|
605 initiallyDisabled: true |
|
606 model: domNodeTypeAspect |
|
607 acceptOnReturn: true |
|
608 acceptOnTab: true |
|
609 acceptOnLostFocus: true |
|
610 acceptOnPointerLeave: false |
|
611 extent: (Point 369 22) |
|
612 ) |
|
613 (InputFieldSpec |
|
614 name: 'NodeValueField' |
|
615 initiallyDisabled: true |
|
616 model: domNodeValueAspect |
|
617 acceptOnReturn: true |
|
618 acceptOnTab: true |
|
619 acceptOnLostFocus: true |
|
620 acceptOnPointerLeave: false |
|
621 extent: (Point 369 22) |
|
622 ) |
|
623 ) |
|
624 |
|
625 ) |
|
626 extent: (Point 369 90) |
|
627 ) |
|
628 ) |
|
629 |
|
630 ) |
|
631 extent: (Point 508 90) |
|
632 ) |
|
633 (DataSetSpec |
|
634 name: 'AttributesTable' |
|
635 hasHorizontalScrollBar: true |
|
636 hasVerticalScrollBar: true |
|
637 dataList: domNodeAttributesAspect |
|
638 columnHolder: attributeTableColumns |
|
639 extent: (Point 508 167) |
|
640 ) |
|
641 ) |
|
642 |
|
643 ) |
|
644 ) |
|
645 ) |
|
646 |
|
647 ) |
|
648 ) |
|
649 |
|
650 "Modified: / 12-12-2006 / 09:19:49 / janfrog" |
|
651 ! ! |
|
652 |
|
653 !DOM3Inspector::ElementPropertiesPane class methodsFor:'plugIn spec'! |
|
654 |
|
655 aspectSelectors |
|
656 "This resource specification was automatically generated |
|
657 by the UIPainter of ST/X." |
|
658 |
|
659 "Do not manually edit this. If it is corrupted, |
|
660 the UIPainter may not be able to read the specification." |
|
661 |
|
662 "Return a description of exported aspects; |
|
663 these can be connected to aspects of an embedding application |
|
664 (if this app is embedded in a subCanvas)." |
|
665 |
|
666 ^ #( |
|
667 #model |
|
668 ). |
|
669 |
|
670 "Modified: / 12-12-2006 / 09:19:49 / janfrog" |
|
671 ! ! |
|
672 |
|
673 !DOM3Inspector::ElementPropertiesPane class methodsFor:'tableColumns specs'! |
|
674 |
|
675 attributeTableColumns |
|
676 "This resource specification was automatically generated |
|
677 by the DataSetBuilder of ST/X." |
|
678 |
|
679 "Do not manually edit this!! If it is corrupted, |
|
680 the DataSetBuilder may not be able to read the specification." |
|
681 |
|
682 " |
|
683 DataSetBuilder new openOnClass:XMLv2::DOM3Inspector::ElementPropertiesPane andSelector:#attributeTableColumns |
|
684 " |
|
685 |
|
686 <resource: #tableColumns> |
|
687 |
|
688 ^#( |
|
689 (DataSetColumnSpec |
|
690 label: 'Node Name' |
|
691 labelAlignment: left |
|
692 labelButtonType: Button |
|
693 printSelector: nodeName |
|
694 ) |
|
695 (DataSetColumnSpec |
|
696 label: 'Node Value' |
|
697 labelAlignment: left |
|
698 labelButtonType: Button |
|
699 printSelector: nodeValue |
|
700 ) |
|
701 ) |
|
702 |
|
703 "Created: / 12-12-2006 / 09:19:30 / janfrog" |
|
704 ! ! |
|
705 |
|
706 !DOM3Inspector::ElementPropertiesPane methodsFor:'aspects'! |
|
707 |
|
708 domNodeAttributesAspect |
|
709 |
|
710 ^self |
|
711 aspectAt: #domNodeAttributesAspect |
|
712 ifAbsentPut: [self aspectAdaptorFor: #attributes] |
|
713 |
|
714 "Created: / 12-12-2006 / 09:20:19 / janfrog" |
|
715 ! |
|
716 |
|
717 domNodeNameAspect |
|
718 |
|
719 ^self |
|
720 aspectAt: #domNodeNameAspect |
|
721 ifAbsentPut: [self aspectAdaptorFor: #nodeName] |
|
722 |
|
723 "Created: / 12-12-2006 / 09:16:51 / janfrog" |
|
724 ! |
|
725 |
|
726 domNodeNamespaceURIAspect |
|
727 |
|
728 ^self |
|
729 aspectAt: #domNodeNamespaceURIAspect |
|
730 ifAbsentPut: [self aspectAdaptorFor: #namespaceURI] |
|
731 |
|
732 "Created: / 12-12-2006 / 09:16:51 / janfrog" |
|
733 ! |
|
734 |
|
735 domNodeTypeAspect |
|
736 |
|
737 ^self |
|
738 aspectAt: #domNodeTypeAspect |
|
739 ifAbsentPut: [self aspectAdaptorFor: #nodeType] |
|
740 |
|
741 "Created: / 12-12-2006 / 09:16:51 / janfrog" |
|
742 ! |
|
743 |
|
744 domNodeValueAspect |
|
745 |
|
746 ^self |
|
747 aspectAt: #domNodeValueAspect |
|
748 ifAbsentPut: [self aspectAdaptorFor: #nodeValue] |
|
749 |
|
750 "Created: / 12-12-2006 / 09:16:51 / janfrog" |
|
751 ! ! |
|
752 |
|
753 !DOM3Inspector class methodsFor:'documentation'! |
|
754 |
|
755 version |
|
756 ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__DOM3Inspector.st,v 1.1 2006-12-12 13:54:55 vranyj1 Exp $' |
|
757 ! ! |