equal
deleted
inserted
replaced
353 "Created: / 21-01-2012 / 12:44:22 / cg" |
353 "Created: / 21-01-2012 / 12:44:22 / cg" |
354 ! ! |
354 ! ! |
355 |
355 |
356 !CodeViewService methodsFor:'redrawing'! |
356 !CodeViewService methodsFor:'redrawing'! |
357 |
357 |
|
358 drawAnnotationIcon:icon atX:x y:y width:w height:h |
|
359 |dy dx| |
|
360 |
|
361 dx := ((w - icon width) / 2) rounded. |
|
362 dy := ((h - icon height) / 2) rounded. |
|
363 icon |
|
364 displayOn:gutterView |
|
365 x:x + dx |
|
366 y:y - h + dy + 4. |
|
367 |
|
368 "Created: / 17-09-2013 / 15:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
369 ! |
|
370 |
358 drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg |
371 drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg |
359 |
372 |
360 "Called by both gutterView and textView (well, not yet) to |
373 "Called by both gutterView and textView (well, not yet) to |
361 allow services to draw custom things on text view. |
374 allow services to draw custom things on text view. |
362 Ask JV what the args means if unsure (I'm lazy to document |
375 Ask JV what the args means if unsure (I'm lazy to document |
409 ! ! |
422 ! ! |
410 |
423 |
411 !CodeViewService class methodsFor:'documentation'! |
424 !CodeViewService class methodsFor:'documentation'! |
412 |
425 |
413 version_CVS |
426 version_CVS |
414 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.14 2013-09-05 23:19:43 cg Exp $' |
427 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeViewService.st,v 1.15 2013-09-17 14:44:33 vrany Exp $' |
415 ! |
428 ! |
416 |
429 |
417 version_SVN |
430 version_SVN |
418 ^ '$Id: Tools__CodeViewService.st,v 1.14 2013-09-05 23:19:43 cg Exp $' |
431 ^ '$Id: Tools__CodeViewService.st,v 1.15 2013-09-17 14:44:33 vrany Exp $' |
419 ! ! |
432 ! ! |
420 |
433 |