355 "Modified: / 21-08-2011 / 07:32:57 / cg" |
355 "Modified: / 21-08-2011 / 07:32:57 / cg" |
356 ! ! |
356 ! ! |
357 |
357 |
358 !CharacterArray methodsFor:'inspecting'! |
358 !CharacterArray methodsFor:'inspecting'! |
359 |
359 |
|
360 inspector2TabDiff |
|
361 | diffApp | |
|
362 |
|
363 diffApp := Tools::TextDiff2Tool new. |
|
364 diffApp labelA: 'self'; textA: self. |
|
365 diffApp labelB: 'pasted'; textB: 'Paste some text here'. |
|
366 diffApp diffView leftTextView readOnly: true. |
|
367 diffApp diffView rightTextView acceptAction:[:contents | |
|
368 diffApp textBHolder value: contents asString. |
|
369 diffApp updateViews. |
|
370 ]. |
|
371 |
|
372 ^self newInspector2Tab |
|
373 label: 'Diff'; |
|
374 priority: 33; |
|
375 application: diffApp; |
|
376 yourself |
|
377 |
|
378 "Created: / 27-02-2014 / 16:05:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
379 ! ! |
|
380 |
|
381 !CharacterArray methodsFor:'inspecting'! |
|
382 |
360 inspector2TabHTML |
383 inspector2TabHTML |
361 |
384 |
362 ^self newInspector2Tab |
385 ((self startsWith:'<!!DOCTYPE html') and:[ HTMLDocumentView ]) ifTrue:[ |
363 label: 'HTML'; |
386 ^self newInspector2Tab |
364 priority: 35; |
387 label: 'HTML'; |
365 view: ((ScrollableView for:HTMLDocumentView) setText: self; yourself) |
388 priority: 35; |
|
389 view: ((ScrollableView for:HTMLDocumentView) setText: self; yourself); |
|
390 yourself |
|
391 ]. |
|
392 "/ If nil is returned, tab is not shown... |
|
393 ^ nil |
366 |
394 |
367 "Created: / 17-02-2008 / 10:10:50 / janfrog" |
395 "Created: / 17-02-2008 / 10:10:50 / janfrog" |
368 "Created: / 07-11-2011 / 12:35:15 / cg" |
396 "Created: / 07-11-2011 / 12:35:15 / cg" |
|
397 "Modified: / 27-02-2014 / 16:08:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
369 ! ! |
398 ! ! |
370 |
399 |
371 !CharacterArray methodsFor:'inspecting'! |
400 !CharacterArray methodsFor:'inspecting'! |
372 |
401 |
373 inspector2TabText |
402 inspector2TabText |
382 ! ! |
411 ! ! |
383 |
412 |
384 !CharacterArray methodsFor:'inspecting'! |
413 !CharacterArray methodsFor:'inspecting'! |
385 |
414 |
386 inspector2Tabs |
415 inspector2Tabs |
387 HTMLDocumentView notNil ifTrue:[ |
416 ^ #( inspector2TabCommon inspector2TabText inspector2TabBytes inspector2TabDiff inspector2TabHTML ) |
388 (self startsWith:'<!!DOCTYPE html') ifTrue:[ |
|
389 ^ #( inspector2TabCommon inspector2TabText inspector2TabBytes inspector2TabHTML ) |
|
390 ]. |
|
391 ]. |
|
392 ^ #( inspector2TabCommon inspector2TabText inspector2TabBytes ) |
|
393 |
417 |
394 "Created: / 05-07-2011 / 13:40:27 / cg" |
418 "Created: / 05-07-2011 / 13:40:27 / cg" |
|
419 "Modified: / 27-02-2014 / 16:10:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395 ! ! |
420 ! ! |
396 |
421 |
397 !CharacterArray methodsFor:'inspecting'! |
422 !CharacterArray methodsFor:'inspecting'! |
398 |
423 |
399 inspectorExtraAttributes |
424 inspectorExtraAttributes |
2314 ! ! |
2339 ! ! |
2315 |
2340 |
2316 !stx_libtool class methodsFor:'documentation'! |
2341 !stx_libtool class methodsFor:'documentation'! |
2317 |
2342 |
2318 extensionsVersion_CVS |
2343 extensionsVersion_CVS |
2319 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.121 2014-02-25 10:39:31 vrany Exp $' |
2344 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.122 2014-02-27 16:55:19 vrany Exp $' |
2320 ! ! |
2345 ! ! |
2321 |
2346 |
2322 !stx_libtool class methodsFor:'documentation'! |
2347 !stx_libtool class methodsFor:'documentation'! |
2323 |
2348 |
2324 extensionsVersion_HG |
2349 extensionsVersion_HG |