Skip to content

Commit

Permalink
categorized most methods (exept poll stuff)
Browse files Browse the repository at this point in the history
  • Loading branch information
jkubuni committed Jul 10, 2024
1 parent 9634f63 commit 1cd30ed
Show file tree
Hide file tree
Showing 71 changed files with 72 additions and 72 deletions.
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
utility
getDocumentFor: aDocumentId

| promise |
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
utility
getDocumentPromiseFor: aDocumentId

| promise |
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
isClosed: aBool

isClosed := aBool
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
isClosed

^ isClosed
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
instance creation
selectJsonFor: aPollType

^ aPollType caseOf: {
Expand Down
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
as yet unclassified
utility
loadStickerIds

| sets |

self core send: (TCCRequest getInstalledStickerSets)
thenDo: [:stickerEvent | sets := stickerEvent at: 'sets'.
sets do: [:setInfo | self core send: (TCCRequest getStickerSetFor: (setInfo at: 'id'))
thenDo: [:set | (set at: 'is_animated') ifFalse: [self storeStickerSet: set.]]]].
thenDo: [:set | (set at: 'is_animated') ifFalse: [self storeStickerSet: set.]]]]
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
"imageFormFrom:" : "JK 6/21/2024 13:46",
"newWith:" : "JK 6/20/2024 22:18" },
"instance" : {
"loadStickerIds" : "JK 6/20/2024 23:39",
"loadStickerIds" : "JK 7/10/2024 11:50",
"stickerSets" : "JK 6/19/2024 11:30",
"stickerSets:" : "JK 6/19/2024 11:30",
"storeStickerSet:" : "JK 7/4/2024 10:50" } }
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
constructing
addContent

self addText.
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
constructing
addInfo

self addMorphBack: (self class defaultTextMorph
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
constructing
addText

self addMorphBack: (self class defaultTextMorph
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
constructing
text

^ TCUStickerEmojiHelper embedEmojisInto: self messageModel asText
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
instance creation
newFor: aChatWindow withBounds: aRectangle

^ (super newBounds: aRectangle)
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
instance creation
newFor: aChat withBounds: aRectangle from: aChatWindow

^ (super newBounds: aRectangle)
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addButtonMenu

self createButtonMenu;
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addFileButton

self fileButton: (TCUButton new
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addPollButton

self pollButton: (TCUButton new
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addStickerButton

self stickerButton: (TCUButton new
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
buttonMenu: aRectangle

buttonMenu := aRectangle
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
buttonMenu

^ buttonMenu
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
chatWindow: aChatWindow

chatWindow := aChatWindow
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
chatWindow

^ chatWindow
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
clear

self abandon.
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
createButtonMenu

self buttonMenu: (RectangleMorph new
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
initialization
initialize

super initialize.
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addHiddenPhotoPage

self chat hasPhoto ifTrue: [
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addTitle

self createTitle.
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
createTitle

self title: (RectangleMorph new
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photo: aPhoto

photo := aPhoto
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photo

^ photo
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photoPage: aPhotoPage

photoPage := aPhotoPage
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photoPage

^ photoPage
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
showPhotoPage

photoPage show.
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
title: aRectangleMorph

title := aRectangleMorph
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
title

^ title
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photo: aPhoto

photo := aPhoto
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photo

^ photo
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
instance creation
newFor: aChat withBounds: aRectangle andSize: aSize

^ (super newBounds: aRectangle)
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
instance creation
newWithBounds: aRectangle andPhoto: aPhoto andSize: aSize

^ (super newBounds: aRectangle)
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
drawing
addPhoto

| morph |
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
chat: aChat

chat := aChat
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
chat

^ chat
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
initialization
initialize

super initialize.
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photo: aPhoto

photo := aPhoto
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photo

^ photo
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photoSize: aSize

photoSize := aSize
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
photoSize

^ photoSize
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
instance creation
newFor: aChat withBounds: aRectangle

^ (super newBounds: aRectangle)
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
allInputFields: anOrderedCollection

allInputFields:= anOrderedCollection
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
allInputFields

^ allInputFields
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
anonymousChoice: aChoice

anonymousChoice := aChoice
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
anonymousChoice

^ anonymousChoice
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
event handling
createAnonymousChoice

self anonymousChoice: (TCUChoice newFor: 'Anonymous Poll?').
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
event handling
getOptions

self options: (OrderedCollection new).
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
isAnonymous: aBoolean

isAnonymous := aBoolean
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
isAnonymous

^ isAnonymous
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
options: anOrderedCollection

options := anOrderedCollection
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
options

^ options
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
pollType: aString

pollType := aString
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
as yet unclassified
accessing
pollType

^ pollType
Loading

0 comments on commit 1cd30ed

Please sign in to comment.