43 lines
817 B
Smalltalk
43 lines
817 B
Smalltalk
Class {
|
|
#name : #LeCarpSnippet,
|
|
#superclass : #LeCodeSnippet,
|
|
#category : #'Carp-Lepiter'
|
|
}
|
|
|
|
{ #category : #'api - accessing menu' }
|
|
LeCarpSnippet class >> contextMenuItemSpecification [
|
|
<leSnippetSpecification>
|
|
^ LeContextMenuItemSpecification new
|
|
snippetClass: self;
|
|
title: 'Carp'
|
|
]
|
|
|
|
{ #category : #'lepiter-store' }
|
|
LeCarpSnippet class >> leJsonV3Name [
|
|
|
|
^ 'carpSnippet'
|
|
]
|
|
|
|
{ #category : #'lepiter-store' }
|
|
LeCarpSnippet class >> leJsonV4Name [
|
|
|
|
^ 'carpSnippet'
|
|
]
|
|
|
|
{ #category : #visiting }
|
|
LeCarpSnippet >> acceptVisitor: aVisitor [
|
|
|
|
^ aVisitor visitCarpSnippet: self
|
|
]
|
|
|
|
{ #category : #converting }
|
|
LeCarpSnippet >> asSnippetViewModel [
|
|
<return: #LeSnippetViewModel>
|
|
^ LeCarpSnippetViewModel new snippetModel: self
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
LeCarpSnippet >> newCoder [
|
|
^ GtCarpCoderModel new
|
|
]
|