equal
deleted
inserted
replaced
4519 <resource: #help> |
4519 <resource: #help> |
4520 |
4520 |
4521 ^ super helpSpec addPairsFrom:#( |
4521 ^ super helpSpec addPairsFrom:#( |
4522 |
4522 |
4523 #closeTabButton |
4523 #closeTabButton |
4524 '' |
4524 'Close this tab' |
4525 |
4525 |
4526 #hideEditorOperationsToolBar |
4526 #hideEditorOperationsToolBar |
4527 'Hide the additional editor operations menu' |
4527 'Hide the additional editor operations menu' |
4528 |
4528 |
4529 #indentCode |
4529 #indentCode |
4530 '' |
4530 'Indent the selected lines (or the cursor line) by 4' |
4531 |
4531 |
4532 #showEditOperationsToolBar |
4532 #showEditOperationsToolBar |
4533 'Show the additional editor operations menu' |
4533 'Show the additional editor operations menu' |
4534 |
4534 |
4535 #undentCode |
4535 #undentCode |
4536 '' |
4536 'Undent the selected lines (or the cursor line) by 4' |
|
4537 |
|
4538 #toggleBold |
|
4539 'Toggle the selection''s bold attribute (if bold, turn off; if not, turn on)' |
|
4540 |
|
4541 #toggleItalic |
|
4542 'Toggle the selection''s italic attribute (if italic, turn off; if not, turn on)' |
|
4543 |
|
4544 #toggleCode |
|
4545 'Toggle the selection''s code+pre attribute (if code, turn off; if not, turn on)' |
|
4546 |
|
4547 #addAnchor |
|
4548 'Make the selection an an anchor element' |
|
4549 |
|
4550 #addImage |
|
4551 'Insert a bitmap image element' |
|
4552 |
4537 |
4553 |
4538 ) |
4554 ) |
4539 ! ! |
4555 ! ! |
4540 |
4556 |
4541 !FileApplicationNoteBook::TextEditor class methodsFor:'image specs'! |
4557 !FileApplicationNoteBook::TextEditor class methodsFor:'image specs'! |
4854 |
4870 |
4855 ^ |
4871 ^ |
4856 #(Menu |
4872 #(Menu |
4857 ( |
4873 ( |
4858 (MenuItem |
4874 (MenuItem |
4859 activeHelpKey: makeBold |
4875 activeHelpKey: toggleBold |
4860 label: 'bold' |
4876 label: 'bold' |
4861 itemValue: editOperationMakeBoldHTML |
4877 itemValue: editOperationToggleBoldHTML |
4862 labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_bold_15x15') |
4878 labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_bold_15x15') |
4863 ) |
4879 ) |
4864 (MenuItem |
4880 (MenuItem |
4865 activeHelpKey: makeItalic |
4881 activeHelpKey: toggleItalic |
4866 enabled: canEdit |
4882 enabled: canEdit |
4867 label: 'italic' |
4883 label: 'italic' |
4868 itemValue: editOperationMakeItalicHTML |
4884 itemValue: editOperationToggleItalicHTML |
4869 isButton: true |
4885 isButton: true |
4870 labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_italic_15x15') |
4886 labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_italic_15x15') |
|
4887 ) |
|
4888 (MenuItem |
|
4889 activeHelpKey: toggleCode |
|
4890 enabled: canEdit |
|
4891 label: 'code' |
|
4892 itemValue: editOperationToggleCodeHTML |
|
4893 isButton: true |
|
4894 labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_code_15x15') |
4871 ) |
4895 ) |
4872 (MenuItem |
4896 (MenuItem |
4873 activeHelpKey: addAnchor |
4897 activeHelpKey: addAnchor |
4874 enabled: canEdit |
4898 enabled: canEdit |
4875 label: 'anchor' |
4899 label: 'anchor' |
5267 editView indentBy4 |
5291 editView indentBy4 |
5268 |
5292 |
5269 "Created: / 02-08-2013 / 18:20:18 / cg" |
5293 "Created: / 02-08-2013 / 18:20:18 / cg" |
5270 ! |
5294 ! |
5271 |
5295 |
5272 editOperationMakeBoldHTML |
5296 editOperationToggleBoldHTML |
5273 self editOperationToggleHTML:'Toggle Bold' start:'<b>' end:'</b>' |
5297 self editOperationToggleHTML:'Toggle Bold' start:'<b>' end:'</b>' |
5274 |
5298 |
5275 "Created: / 02-08-2013 / 18:04:27 / cg" |
5299 "Created: / 02-08-2013 / 18:04:27 / cg" |
5276 ! |
5300 ! |
5277 |
5301 |
5278 editOperationMakeItalicHTML |
5302 editOperationToggleCodeHTML |
5279 self editOperationToggleHTML:'Toggle Italic' start:'<i>' end:'</i>' |
5303 self editOperationToggleHTML:'Toggle Code' start:'<code><pre>' end:'</pre></code>' |
5280 |
|
5281 "Created: / 02-08-2013 / 18:14:55 / cg" |
|
5282 ! |
5304 ! |
5283 |
5305 |
5284 editOperationToggleHTML:info start:whatStart end:whatEnd |
5306 editOperationToggleHTML:info start:whatStart end:whatEnd |
5285 |sel new| |
5307 |sel new| |
5286 |
5308 |
5300 editView replaceSelectionBy:new keepCursor:false select:true |
5322 editView replaceSelectionBy:new keepCursor:false select:true |
5301 ] |
5323 ] |
5302 info:info |
5324 info:info |
5303 |
5325 |
5304 "Created: / 02-08-2013 / 18:14:25 / cg" |
5326 "Created: / 02-08-2013 / 18:14:25 / cg" |
|
5327 ! |
|
5328 |
|
5329 editOperationToggleItalicHTML |
|
5330 self editOperationToggleHTML:'Toggle Italic' start:'<i>' end:'</i>' |
|
5331 |
|
5332 "Created: / 02-08-2013 / 18:14:55 / cg" |
5305 ! |
5333 ! |
5306 |
5334 |
5307 editOperationUndentCode |
5335 editOperationUndentCode |
5308 editView undentBy4 |
5336 editView undentBy4 |
5309 |
5337 |
7214 ! ! |
7242 ! ! |
7215 |
7243 |
7216 !FileApplicationNoteBook class methodsFor:'documentation'! |
7244 !FileApplicationNoteBook class methodsFor:'documentation'! |
7217 |
7245 |
7218 version |
7246 version |
7219 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $' |
7247 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.281 2013-08-27 09:13:01 cg Exp $' |
7220 ! |
7248 ! |
7221 |
7249 |
7222 version_CVS |
7250 version_CVS |
7223 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $' |
7251 ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.281 2013-08-27 09:13:01 cg Exp $' |
7224 ! ! |
7252 ! ! |
7225 |
7253 |