equal
deleted
inserted
replaced
286 v := HVScrollableView |
286 v := HVScrollableView |
287 for:SelectionInListView |
287 for:SelectionInListView |
288 miniScrollerH:true |
288 miniScrollerH:true |
289 miniScrollerV:false |
289 miniScrollerV:false |
290 in:helpView. |
290 in:helpView. |
|
291 v autoHideScrollBars:true. |
291 v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
292 v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
292 v topInset:(labelView preferredExtent y). |
293 v topInset:(labelView preferredExtent y). |
293 |
294 |
294 listView := v scrolledView. |
295 listView := v scrolledView. |
295 listView action:[:lineNr | self showSelection:lineNr]. |
296 listView action:[:lineNr | self showSelection:lineNr]. |
305 labelView2 bottomInset:(labelView preferredExtent y negated). |
306 labelView2 bottomInset:(labelView preferredExtent y negated). |
306 |
307 |
307 v := HVScrollableView |
308 v := HVScrollableView |
308 for:CodeView |
309 for:CodeView |
309 miniScrollerH:true |
310 miniScrollerH:true |
310 miniScrollerV:false |
311 miniScrollerV:true |
311 in:helpView. |
312 in:helpView. |
|
313 v autoHideScrollBars:true. |
312 v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
314 v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0). |
313 v topInset:(labelView2 preferredExtent y). |
315 v topInset:(labelView2 preferredExtent y). |
314 workspace := v scrolledView. |
316 workspace := v scrolledView. |
315 |
317 |
316 workspace acceptAction:[:theText | self doAccept:theText asString]. |
318 workspace acceptAction:[:theText | self doAccept:theText asString]. |
317 |
319 |
318 nShown := 100. |
320 nShown := 100. |
319 hasMore := false. |
321 hasMore := false. |
320 |
322 |
321 "Modified: 28.6.1996 / 16:04:45 / cg" |
323 "Modified: / 31.10.1997 / 03:03:10 / cg" |
322 ! |
324 ! |
323 |
325 |
324 realize |
326 realize |
325 "delayed setup of lists till first map-time - |
327 "delayed setup of lists till first map-time - |
326 this makes startup of inspectors a bit faster" |
328 this makes startup of inspectors a bit faster" |
352 |
354 |
353 hasMore ifTrue:[ |
355 hasMore ifTrue:[ |
354 labels := #( |
356 labels := #( |
355 'inspect' |
357 'inspect' |
356 'basicInspect' |
358 'basicInspect' |
|
359 'inspect hierarchical' |
357 '-' |
360 '-' |
358 'browse' |
361 'browse' |
359 'browse class hierarchy' |
362 'browse class hierarchy' |
360 'browse full class protocol' |
363 'browse full class protocol' |
361 '-' |
364 '-' |
368 ). |
371 ). |
369 |
372 |
370 selectors := #( |
373 selectors := #( |
371 doInspect |
374 doInspect |
372 doBasicInspect |
375 doBasicInspect |
|
376 doNewInspect |
373 nil |
377 nil |
374 browse |
378 browse |
375 browseClassHierarchy |
379 browseClassHierarchy |
376 browseFullClassProtocol |
380 browseFullClassProtocol |
377 nil |
381 nil |
384 ). |
388 ). |
385 ] ifFalse:[ |
389 ] ifFalse:[ |
386 labels := #( |
390 labels := #( |
387 'inspect' |
391 'inspect' |
388 'basicInspect' |
392 'basicInspect' |
|
393 'inspect hierarchical' |
389 '-' |
394 '-' |
390 'browse' |
395 'browse' |
391 'browse class hierarchy' |
396 'browse class hierarchy' |
392 'browse full class protocol' |
397 'browse full class protocol' |
393 '-' |
398 '-' |
398 ). |
403 ). |
399 |
404 |
400 selectors := #( |
405 selectors := #( |
401 doInspect |
406 doInspect |
402 doBasicInspect |
407 doBasicInspect |
|
408 doNewInspect |
403 nil |
409 nil |
404 browse |
410 browse |
405 browseClassHierarchy |
411 browseClassHierarchy |
406 browseFullClassProtocol |
412 browseFullClassProtocol |
407 nil |
413 nil |
426 m := PopUpMenu |
432 m := PopUpMenu |
427 labels:(resources array:labels) |
433 labels:(resources array:labels) |
428 selectors:selectors. |
434 selectors:selectors. |
429 |
435 |
430 selectedLine isNil ifTrue:[ |
436 selectedLine isNil ifTrue:[ |
431 m disableAll:#(doInspect doBasicInspect |
437 m disableAll:#(doInspect doBasicInspect doInspectNew |
432 browse browseClassHierarchy browseFullClassProtocol |
438 browse browseClassHierarchy browseFullClassProtocol |
433 doStartMonitor) |
439 doStartMonitor) |
434 ]. |
440 ]. |
435 |
441 |
436 ^ m |
442 ^ m |
437 |
443 |
438 "Modified: 3.7.1997 / 13:54:22 / cg" |
444 "Modified: / 31.10.1997 / 12:49:39 / cg" |
439 ! ! |
445 ! ! |
440 |
446 |
441 !InspectorView methodsFor:'menu actions'! |
447 !InspectorView methodsFor:'menu actions'! |
442 |
448 |
443 browse |
449 browse |
505 |
511 |
506 doInspect |
512 doInspect |
507 "user selected inspect-menu entry" |
513 "user selected inspect-menu entry" |
508 |
514 |
509 self doInspect:false |
515 self doInspect:false |
|
516 ! |
|
517 |
|
518 doNewInspect |
|
519 self doInspect:#new |
|
520 |
|
521 "Created: / 31.10.1997 / 12:45:38 / cg" |
|
522 "Modified: / 31.10.1997 / 12:47:11 / cg" |
510 ! |
523 ! |
511 |
524 |
512 doStartMonitor |
525 doStartMonitor |
513 "start a monitoring process" |
526 "start a monitoring process" |
514 |
527 |
761 "user selected inspect-menu entry" |
774 "user selected inspect-menu entry" |
762 |
775 |
763 |objectToInspect| |
776 |objectToInspect| |
764 |
777 |
765 selectedLine notNil ifTrue:[ |
778 selectedLine notNil ifTrue:[ |
766 objectToInspect := self valueAtLine:selectedLine. |
779 objectToInspect := self valueAtLine:selectedLine. |
767 basic ifTrue:[ |
780 basic == #new ifTrue:[ |
768 objectToInspect basicInspect |
781 NewInspector::InspectorView inspect:objectToInspect |
769 ] ifFalse:[ |
782 ] ifFalse:[ |
770 objectToInspect inspect |
783 basic ifTrue:[ |
771 ] |
784 objectToInspect basicInspect |
|
785 ] ifFalse:[ |
|
786 objectToInspect inspect |
|
787 ] |
|
788 ] |
772 ] |
789 ] |
|
790 |
|
791 "Modified: / 31.10.1997 / 12:46:53 / cg" |
773 ! |
792 ! |
774 |
793 |
775 keyPress:aKey x:x y:y |
794 keyPress:aKey x:x y:y |
776 "all my input is passed on to the workspace-field" |
795 "all my input is passed on to the workspace-field" |
777 |
796 |
882 ! ! |
901 ! ! |
883 |
902 |
884 !InspectorView class methodsFor:'documentation'! |
903 !InspectorView class methodsFor:'documentation'! |
885 |
904 |
886 version |
905 version |
887 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.69 1997-08-01 19:49:58 cg Exp $' |
906 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.70 1997-11-02 17:37:29 cg Exp $' |
888 ! ! |
907 ! ! |