equal
deleted
inserted
replaced
1622 (MenuItem |
1622 (MenuItem |
1623 label: 'Load Sketch as Background...' |
1623 label: 'Load Sketch as Background...' |
1624 itemValue: useSketch |
1624 itemValue: useSketch |
1625 translateLabel: true |
1625 translateLabel: true |
1626 ) |
1626 ) |
|
1627 (MenuItem |
|
1628 label: 'Load Image as Background...' |
|
1629 itemValue: useBackgroundImage |
|
1630 translateLabel: true |
|
1631 ) |
1627 ) |
1632 ) |
1628 nil |
1633 nil |
1629 nil |
1634 nil |
1630 ) |
1635 ) |
1631 ) |
1636 ) |
5295 |
5300 |
5296 painter := self painter. |
5301 painter := self painter. |
5297 painter replaceSelectionBy:newSpec. |
5302 painter replaceSelectionBy:newSpec. |
5298 ! |
5303 ! |
5299 |
5304 |
|
5305 useBackgroundImage |
|
5306 "select bitmap to underly" |
|
5307 |
|
5308 |fn| |
|
5309 |
|
5310 fn := Dialog requestFileName:'Bitmap Image File ?' pattern:'*.gif;*.tiff;*.jpg;*.png' fromDirectory:'f:'. |
|
5311 fn isNil ifTrue:[ |
|
5312 ^ self |
|
5313 ]. |
|
5314 painter useSketchFile:fn |
|
5315 |
|
5316 "Created: / 16-01-2008 / 17:49:20 / cg" |
|
5317 ! |
|
5318 |
5300 useSketch |
5319 useSketch |
5301 "select sketchfile to underly" |
5320 "select sketchfile to underly. |
|
5321 Sketchfiles are generated by notepads, which can offline-store drawn sketches" |
5302 |
5322 |
5303 |fn| |
5323 |fn| |
5304 |
5324 |
5305 fn := Dialog requestFileName:'Sketch ?' pattern:'*.TOP' fromDirectory:'f:'. |
5325 fn := Dialog requestFileName:'Sketch (Notepad Drawing) ?' pattern:'*.TOP' fromDirectory:'f:'. |
5306 fn isNil ifTrue:[ |
5326 fn isNil ifTrue:[ |
5307 ^ self |
5327 ^ self |
5308 ]. |
5328 ]. |
5309 painter useSketchFile:fn |
5329 painter useSketchFile:fn |
5310 |
5330 |