From ea74649c7c99accf85ed18876d808ee9ea3122e4 Mon Sep 17 00:00:00 2001 From: Jannes Konarski Date: Thu, 11 Jul 2024 15:54:09 +0200 Subject: [PATCH] changed magic numbers to default values in some ui classes --- .../class/defaultBorderWidth.st | 4 ++++ .../class/defaultCellInset.st | 4 ++++ .../class/defaultLayoutInset.st | 4 ++++ .../class/defaultMenuHeight.st | 4 ++++ .../class/defaultMenuWidth.st | 4 ++++ .../class/defaultOpacity.st | 4 ++++ .../instance/addFileButton.st | 1 - .../instance/addPollButton.st | 1 - .../instance/addStickerButton.st | 1 - .../instance/createButtonMenu.st | 6 +++--- .../instance/initialize.st | 4 ++-- .../methodProperties.json | 16 +++++++++++----- .../class/defaultBorderWidth.st | 4 ++++ .../class/defaultPhotoPageSizeMultiplicator.st | 4 ++++ .../instance/addHiddenPhotoPage.st | 2 +- .../instance/createContentWrapper.st | 3 +-- .../instance/createDescription.st | 2 +- .../instance/createInfoBar.st | 2 +- .../instance/createTitle.st | 2 +- .../instance/initialize.st | 2 +- .../TCUChatInfoPage.class/methodProperties.json | 14 ++++++++------ .../class/defaultBorderWidth.st | 4 ++++ .../instance/initialize.st | 2 +- .../methodProperties.json | 3 ++- .../class/defaultBorderWidth.st | 4 ++++ .../class/defaultCellInset.st | 4 ++++ .../class/defaultFieldHeight.st | 4 ++++ .../class/defaultInputFieldBorderWidth.st | 4 ++++ .../class/defaultInputFieldWidth.st | 4 ++++ .../class/defaultLayoutInset.st | 4 ++++ .../class/defaultTextFieldWidth.st | 4 ++++ .../class/defaultTypeOptionHeight.st | 4 ++++ .../class/defaultTypeOptionWidth.st | 4 ++++ .../instance/addInputFieldFor..st | 4 ++-- .../instance/addTextFieldFor.with..st | 2 +- .../instance/addTextInputFor..st | 4 ++-- .../instance/createTypeOption.st | 6 +++--- .../methodProperties.json | 17 +++++++++++++---- .../class/defaultBorderWidth.st | 4 ++++ .../class/defaultCellInset.st | 4 ++++ .../class/defaultLayoutInset.st | 4 ++++ .../instance/addFileButton.st | 10 ---------- .../instance/addPollButton.st | 10 ---------- .../instance/addStickerButton.st | 10 ---------- .../instance/addbuttonMenuButton.st | 1 - .../instance/createInputBar.st | 6 +++--- .../instance/createTitleBar.st | 4 ++-- .../TCUChatWindow.class/instance/initialize.st | 2 +- .../TCUChatWindow.class/methodProperties.json | 14 +++++++------- .../TCUChoice.class/class/defaultBorderWidth.st | 4 ++++ .../class/defaultSelectionMorphExtent.st | 4 ++++ .../class/defaultTextMorphPosition.st | 4 ++++ .../instance/addSelectionMorph.st | 2 +- .../TCUChoice.class/instance/addTextMorph.st | 2 +- .../TCUChoice.class/instance/initialize.st | 2 +- .../TCUChoice.class/methodProperties.json | 9 ++++++--- .../instance/addSelectionMorph.st | 2 +- .../methodProperties.json | 2 +- 58 files changed, 174 insertions(+), 92 deletions(-) create mode 100644 packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultCellInset.st create mode 100644 packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultLayoutInset.st create mode 100644 packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuHeight.st create mode 100644 packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultOpacity.st create mode 100644 packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultPhotoPageSizeMultiplicator.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPhotoPage.class/class/defaultBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultCellInset.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultFieldHeight.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultLayoutInset.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTextFieldWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionHeight.st create mode 100644 packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultCellInset.st create mode 100644 packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultLayoutInset.st delete mode 100644 packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addFileButton.st delete mode 100644 packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addPollButton.st delete mode 100644 packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addStickerButton.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/class/defaultBorderWidth.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/class/defaultSelectionMorphExtent.st create mode 100644 packages/TelegramClient-UI.package/TCUChoice.class/class/defaultTextMorphPosition.st diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultBorderWidth.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultBorderWidth.st new file mode 100644 index 000000000..8c7909214 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultBorderWidth + + ^ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultCellInset.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultCellInset.st new file mode 100644 index 000000000..2794876f8 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultCellInset.st @@ -0,0 +1,4 @@ +default values +defaultCellInset + + ^ 8 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultLayoutInset.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultLayoutInset.st new file mode 100644 index 000000000..6a7255350 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultLayoutInset.st @@ -0,0 +1,4 @@ +default values +defaultLayoutInset + + ^ 2 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuHeight.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuHeight.st new file mode 100644 index 000000000..fb816b708 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuHeight.st @@ -0,0 +1,4 @@ +default values +defaultMenuHeight + + ^ 200 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuWidth.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuWidth.st new file mode 100644 index 000000000..f4d0b5153 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultMenuWidth.st @@ -0,0 +1,4 @@ +default values +defaultMenuWidth + + ^ 200 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultOpacity.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultOpacity.st new file mode 100644 index 000000000..750b26d23 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/class/defaultOpacity.st @@ -0,0 +1,4 @@ +default values +defaultOpacity + + ^ 0.8 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addFileButton.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addFileButton.st index 0c8c9227d..67f42aa31 100644 --- a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addFileButton.st +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addFileButton.st @@ -2,7 +2,6 @@ drawing addFileButton self fileButton: (TCUButton new - extent: 100 @ 30; text: 'Select File'; on: #mouseUp send: #buttonFileSelectPressed to: self chatWindow; name: 'selectFile'; diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addPollButton.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addPollButton.st index 4725ceb54..8dfd2ebc4 100644 --- a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addPollButton.st +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addPollButton.st @@ -2,7 +2,6 @@ drawing addPollButton self pollButton: (TCUButton new - extent: 100 @ 30; text: '|||'; on: #mouseUp send: #createPollEditor to: self chatWindow; name: 'openPollEditor'; diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addStickerButton.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addStickerButton.st index 42aa85025..28819a329 100644 --- a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addStickerButton.st +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/addStickerButton.st @@ -2,7 +2,6 @@ drawing addStickerButton self stickerButton: (TCUButton new - extent: 100 @ 30; text: 'Sticker'; on: #mouseUp send: #buttonStickerPressed to: self chatWindow; name: 'sendSticker'; diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/createButtonMenu.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/createButtonMenu.st index 77892cf7c..360e34fa7 100644 --- a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/createButtonMenu.st +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/createButtonMenu.st @@ -3,14 +3,14 @@ createButtonMenu self buttonMenu: (RectangleMorph new color: TCUDefaultValues colorNileBlue; - extent: 200@200; + extent: self class defaultMenuWidth @ (self class defaultMenuHeight); useRoundedCorners; layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapDirection: #bottomToTop; wrapCentering: #topLeft; - layoutInset: 2; + layoutInset: self class defaultLayoutInset; hResizing: #shrinkWrap; vResizing: #shrinkWrap; - cellInset: 8; + cellInset: self class defaultCellInset; yourself). \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/initialize.st index eed56d659..1761f5fe5 100644 --- a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/initialize.st +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/instance/initialize.st @@ -4,6 +4,6 @@ initialize super initialize. self - color: (TCUDefaultValues colorLightGray alpha: 0.8); - borderWidth: 0; + color: (TCUDefaultValues colorLightGray alpha: self class defaultOpacity); + borderWidth: self class defaultBorderWidth; on: #mouseUp send: #clear to: self. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/methodProperties.json index 3a246f386..7d0662786 100644 --- a/packages/TelegramClient-UI.package/TCUChatButtonPage.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChatButtonPage.class/methodProperties.json @@ -1,11 +1,17 @@ { "class" : { + "defaultBorderWidth" : "jkon 7/11/2024 15:25", + "defaultCellInset" : "jkon 7/11/2024 15:23", + "defaultLayoutInset" : "jkon 7/11/2024 15:22", + "defaultMenuHeight" : "jkon 7/11/2024 15:20", + "defaultMenuWidth" : "jkon 7/11/2024 15:20", + "defaultOpacity" : "jkon 7/11/2024 15:24", "newFor:withBounds:from:" : "jkon 7/5/2024 09:30" }, "instance" : { "addButtonMenu" : "jkon 7/5/2024 09:30", - "addFileButton" : "jkon 7/4/2024 22:43", - "addPollButton" : "jkon 7/4/2024 22:43", - "addStickerButton" : "jkon 7/4/2024 22:43", + "addFileButton" : "jkon 7/11/2024 15:18", + "addPollButton" : "jkon 7/11/2024 15:18", + "addStickerButton" : "jkon 7/11/2024 15:18", "buttonMenu" : "jkon 7/4/2024 22:11", "buttonMenu:" : "jkon 7/4/2024 22:11", "chat" : "jkon 7/4/2024 22:06", @@ -13,10 +19,10 @@ "chatWindow" : "jkon 7/4/2024 22:42", "chatWindow:" : "jkon 7/4/2024 22:43", "clear" : "jkon 7/4/2024 22:09", - "createButtonMenu" : "jkon 7/4/2024 22:13", + "createButtonMenu" : "jkon 7/11/2024 15:23", "fileButton" : "jkon 7/4/2024 22:06", "fileButton:" : "jkon 7/4/2024 22:06", - "initialize" : "jkon 7/4/2024 22:08", + "initialize" : "jkon 7/11/2024 15:25", "pollButton" : "jkon 7/4/2024 22:06", "pollButton:" : "jkon 7/4/2024 22:06", "stickerButton" : "jkon 7/4/2024 22:06", diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultBorderWidth.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultBorderWidth.st new file mode 100644 index 000000000..8c7909214 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultBorderWidth + + ^ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultPhotoPageSizeMultiplicator.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultPhotoPageSizeMultiplicator.st new file mode 100644 index 000000000..6a58bc8ef --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/class/defaultPhotoPageSizeMultiplicator.st @@ -0,0 +1,4 @@ +default values +defaultPhotoPageSizeMultiplicator + + ^ 0.9 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/addHiddenPhotoPage.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/addHiddenPhotoPage.st index f9b86763a..bfa594226 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/addHiddenPhotoPage.st +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/addHiddenPhotoPage.st @@ -3,7 +3,7 @@ addHiddenPhotoPage self chat hasPhoto ifTrue: [ self - photoPage: (TCUChatPhotoPage newWithBounds: self bounds andPhoto: self photo andSize: (self width * 0.9)); + photoPage: (TCUChatPhotoPage newWithBounds: self bounds andPhoto: self photo andSize: (self width * self class defaultPhotoPageSizeMultiplicator)); addMorphFront: self photoPage. self photoPage hide diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createContentWrapper.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createContentWrapper.st index 50e1ae00a..7ea00f20f 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createContentWrapper.st +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createContentWrapper.st @@ -2,8 +2,7 @@ drawing createContentWrapper self contentWrapper: (RectangleMorph new - borderWidth: 0; - "color: Color red;" + borderWidth: self class defaultBorderWidth; color: Color transparent; width: self width * self class defaultContentWidthPercentage; height: self height - self class defaultInfoBarHeight; diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createDescription.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createDescription.st index acfa6d1f6..b7875984c 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createDescription.st +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createDescription.st @@ -2,7 +2,7 @@ drawing createDescription self description: (RectangleMorph new - borderWidth: 0; + borderWidth: self class defaultBorderWidth; color: Color white; layoutPolicy: TableLayout new; listDirection: #topToBottom; diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createInfoBar.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createInfoBar.st index 40cdf9c38..d47c83451 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createInfoBar.st +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createInfoBar.st @@ -2,7 +2,7 @@ drawing createInfoBar self infoBar: (RectangleMorph new - borderWidth: 0; + borderWidth: self class defaultBorderWidth; color: Color white; width: self width; height: self class defaultInfoBarHeight; diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createTitle.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createTitle.st index e96f68187..4c8fd11dd 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createTitle.st +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/createTitle.st @@ -2,7 +2,7 @@ drawing createTitle self title: (RectangleMorph new - borderWidth: 0; + borderWidth: self class defaultBorderWidth; color: Color white; layoutPolicy: TableLayout new; listDirection: #topToBottom; diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/initialize.st index 14628cde5..5a31ead1e 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/initialize.st +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/instance/initialize.st @@ -5,4 +5,4 @@ initialize self color: TCUDefaultValues colorLightGray; - borderWidth: 0. \ No newline at end of file + borderWidth: self class defaultBorderWidth. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json index 41c55ec18..cc9d9edb5 100644 --- a/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChatInfoPage.class/methodProperties.json @@ -1,10 +1,12 @@ { "class" : { + "defaultBorderWidth" : "jkon 7/11/2024 15:28", "defaultContentInset" : "RS 5/29/2021 18:32", "defaultContentLayoutInset" : "RS 5/29/2021 18:49", "defaultContentWidthPercentage" : "RS 5/29/2021 18:49", "defaultHeight" : "jkon 5/15/2024 12:25", "defaultInfoBarHeight" : "RS 5/20/2021 21:30", + "defaultPhotoPageSizeMultiplicator" : "jkon 7/11/2024 15:27", "defaultPhotoSize" : "jkon 5/15/2024 11:14", "defaultSpacing" : "RS 5/20/2021 20:57", "newFor:withBounds:" : "jkon 5/22/2024 10:39" }, @@ -13,7 +15,7 @@ "addContent" : "jkon 5/22/2024 10:53", "addDescription" : "jkon 5/15/2024 11:36", "addDescriptionText" : "RK 8/4/2021 12:05", - "addHiddenPhotoPage" : "jkon 5/22/2024 10:41", + "addHiddenPhotoPage" : "jkon 7/11/2024 15:27", "addInfoBar" : "RS 5/20/2021 21:28", "addInfoText" : "jkon 5/15/2024 11:04", "addPhoto" : "jkon 5/22/2024 10:26", @@ -27,15 +29,15 @@ "chat:" : "RS 5/29/2021 18:46", "contentWrapper" : "RS 5/29/2021 18:46", "contentWrapper:" : "RK 8/4/2021 10:25", - "createContentWrapper" : "jkon 5/15/2024 11:53", - "createDescription" : "RS 5/29/2021 18:32", - "createInfoBar" : "RS 5/20/2021 21:31", - "createTitle" : "jkon 5/22/2024 10:54", + "createContentWrapper" : "jkon 7/11/2024 15:29", + "createDescription" : "jkon 7/11/2024 15:31", + "createInfoBar" : "jkon 7/11/2024 15:31", + "createTitle" : "jkon 7/11/2024 15:31", "description" : "RS 5/29/2021 18:46", "description:" : "RK 8/4/2021 10:26", "infoBar" : "RS 5/20/2021 21:38", "infoBar:" : "RK 8/4/2021 10:39", - "initialize" : "RS 5/20/2021 20:39", + "initialize" : "jkon 7/11/2024 15:31", "photo" : "jkon 5/22/2024 10:19", "photo:" : "jkon 5/22/2024 10:19", "photoPage" : "jkon 5/15/2024 15:05", diff --git a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/class/defaultBorderWidth.st b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/class/defaultBorderWidth.st new file mode 100644 index 000000000..8c7909214 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/class/defaultBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultBorderWidth + + ^ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/instance/initialize.st index 1848e5261..916521d52 100644 --- a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/instance/initialize.st +++ b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/instance/initialize.st @@ -6,4 +6,4 @@ initialize self color: TCUDefaultValues colorNileBlue; on: #mouseDown send: #hide to: self; - borderWidth: 0. \ No newline at end of file + borderWidth: self class defaultBorderWidth. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json index 8baa92cb9..5633e3073 100644 --- a/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChatPhotoPage.class/methodProperties.json @@ -1,9 +1,10 @@ { "class" : { + "defaultBorderWidth" : "jkon 7/11/2024 15:32", "newWithBounds:andPhoto:andSize:" : "jkon 5/22/2024 10:27" }, "instance" : { "addPhoto" : "jkon 5/22/2024 10:21", - "initialize" : "jkon 5/15/2024 15:11", + "initialize" : "jkon 7/11/2024 15:32", "photo" : "jkon 5/22/2024 10:30", "photo:" : "jkon 5/22/2024 10:31", "photoSize" : "jkon 5/15/2024 15:00", diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultBorderWidth.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultBorderWidth.st new file mode 100644 index 000000000..8c7909214 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultBorderWidth + + ^ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultCellInset.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultCellInset.st new file mode 100644 index 000000000..2794876f8 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultCellInset.st @@ -0,0 +1,4 @@ +default values +defaultCellInset + + ^ 8 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultFieldHeight.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultFieldHeight.st new file mode 100644 index 000000000..ee79d20ed --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultFieldHeight.st @@ -0,0 +1,4 @@ +default values +defaultFieldHeight + + ^ 20 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldBorderWidth.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldBorderWidth.st new file mode 100644 index 000000000..68c9ec95a --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultInputFieldBorderWidth + + ^ 2 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldWidth.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldWidth.st new file mode 100644 index 000000000..7fabdb03f --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultInputFieldWidth.st @@ -0,0 +1,4 @@ +default values +defaultInputFieldWidth + + ^ 200 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultLayoutInset.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultLayoutInset.st new file mode 100644 index 000000000..6a7255350 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultLayoutInset.st @@ -0,0 +1,4 @@ +default values +defaultLayoutInset + + ^ 2 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTextFieldWidth.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTextFieldWidth.st new file mode 100644 index 000000000..0407d65db --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTextFieldWidth.st @@ -0,0 +1,4 @@ +default values +defaultTextFieldWidth + + ^ 20 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionHeight.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionHeight.st new file mode 100644 index 000000000..75548d026 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionHeight.st @@ -0,0 +1,4 @@ +default values +defaultTypeOptionHeight + + ^ 200 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionWidth.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionWidth.st new file mode 100644 index 000000000..5abd374fd --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/class/defaultTypeOptionWidth.st @@ -0,0 +1,4 @@ +default values +defaultTypeOptionWidth + + ^ 200 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addInputFieldFor..st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addInputFieldFor..st index eedd3ed27..99c76dfa8 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addInputFieldFor..st +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addInputFieldFor..st @@ -3,11 +3,11 @@ addInputFieldFor: aRectangle |inputField| inputField := (TextMorph new - borderWidth: 2; + borderWidth: self class defaultInputFieldBorderWidth; borderColor: TCUDefaultValues colorLightBlue; color: Color white; contentsWrapped: '' asText; - extent: 200 @ 20; + extent: self class defaultInputFieldWidth @ (self class defaultFieldHeight); yourself). self allInputFields add: inputField. aRectangle addMorph: inputField. diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextFieldFor.with..st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextFieldFor.with..st index d036ecf87..1215ef30a 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextFieldFor.with..st +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextFieldFor.with..st @@ -4,7 +4,7 @@ addTextFieldFor: aRectangle with: aString |text| text := (TextMorph new contents: aString; - extent: 20 @ 20; + extent: self class defaultTextFieldWidth @ (self class defaultFieldHeight); readOnly: true; color: Color white; lock; diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextInputFor..st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextInputFor..st index 9cff0e307..3acc1d641 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextInputFor..st +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/addTextInputFor..st @@ -3,13 +3,13 @@ addTextInputFor: aString | morph| morph := (RectangleMorph new - borderWidth: 0; + borderWidth: self class defaultBorderWidth; color: TCUDefaultValues colorNileBlue; layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapDirection: #leftToRight; wrapCentering: #topLeft; - layoutInset: 2; + layoutInset: self class defaultLayoutInset; hResizing: #shrinkWrap; vResizing: #shrinkWrap; yourself). diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/createTypeOption.st b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/createTypeOption.st index 085dd80a9..9fcbb275d 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/createTypeOption.st +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/instance/createTypeOption.st @@ -4,14 +4,14 @@ createTypeOption self typeOption: (RectangleMorph new color: TCUDefaultValues colorNileBlue; - extent: 200@200; + extent: self class defaultTypeOptionWidth @ (self class defaultTypeOptionHeight); useRoundedCorners; layoutPolicy: TableLayout new; listDirection: #leftToRight; wrapDirection: #bottomToTop; wrapCentering: #topLeft; - layoutInset: 2; + layoutInset: self class defaultLayoutInset; hResizing: #shrinkWrap; vResizing: #shrinkWrap; - cellInset: 8; + cellInset: self class defaultCellInset; yourself). \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json index 5bc729c16..1a3ca1165 100644 --- a/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChatPollEditor.class/methodProperties.json @@ -1,13 +1,22 @@ { "class" : { + "defaultBorderWidth" : "jkon 7/11/2024 15:40", + "defaultCellInset" : "jkon 7/11/2024 15:41", + "defaultFieldHeight" : "jkon 7/11/2024 15:37", + "defaultInputFieldBorderWidth" : "jkon 7/11/2024 15:36", + "defaultInputFieldWidth" : "jkon 7/11/2024 15:36", + "defaultLayoutInset" : "jkon 7/11/2024 15:40", + "defaultTextFieldWidth" : "jkon 7/11/2024 15:39", + "defaultTypeOptionHeight" : "jkon 7/11/2024 15:41", + "defaultTypeOptionWidth" : "jkon 7/11/2024 15:41", "newFor:withBounds:" : "jkon 6/27/2024 20:14" }, "instance" : { "addChoices:" : "jkon 6/27/2024 19:24", "addConfirmButton:" : "jkon 6/18/2024 10:05", - "addInputFieldFor:" : "jkon 7/5/2024 10:00", + "addInputFieldFor:" : "jkon 7/11/2024 15:37", "addNextButton:" : "jkon 6/19/2024 18:50", - "addTextFieldFor:with:" : "jkon 6/18/2024 13:31", - "addTextInputFor:" : "jkon 6/19/2024 21:41", + "addTextFieldFor:with:" : "jkon 7/11/2024 15:39", + "addTextInputFor:" : "jkon 7/11/2024 15:40", "addTypeOption" : "jkon 6/19/2024 21:29", "allInputFields" : "jkon 6/27/2024 20:13", "allInputFields:" : "jkon 6/27/2024 20:14", @@ -19,7 +28,7 @@ "confirmPressed" : "jkon 6/27/2024 20:32", "createAnonymousChoice" : "jkon 6/27/2024 19:02", "createNameSetter" : "jkon 6/19/2024 21:33", - "createTypeOption" : "jkon 6/19/2024 21:48", + "createTypeOption" : "jkon 7/11/2024 15:42", "currentSelection" : "jkon 6/19/2024 18:39", "currentSelection:" : "jkon 6/19/2024 18:40", "getOptions" : "jkon 6/27/2024 20:32", diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultBorderWidth.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultBorderWidth.st new file mode 100644 index 000000000..8c7909214 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultBorderWidth + + ^ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultCellInset.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultCellInset.st new file mode 100644 index 000000000..2794876f8 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultCellInset.st @@ -0,0 +1,4 @@ +default values +defaultCellInset + + ^ 8 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultLayoutInset.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultLayoutInset.st new file mode 100644 index 000000000..6a7255350 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/class/defaultLayoutInset.st @@ -0,0 +1,4 @@ +default values +defaultLayoutInset + + ^ 2 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addFileButton.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addFileButton.st deleted file mode 100644 index 84397a4c0..000000000 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addFileButton.st +++ /dev/null @@ -1,10 +0,0 @@ -drawing -addFileButton - - self fileButton: (TCUButton new - extent: 100 @ 30; - text: 'Select File'; - on: #mouseUp send: #buttonFileSelectPressed to: self; - name: 'selectFile'; - yourself). - self buttonMenu addMorph: self fileButton. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addPollButton.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addPollButton.st deleted file mode 100644 index c6f0ade73..000000000 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addPollButton.st +++ /dev/null @@ -1,10 +0,0 @@ -drawing -addPollButton - - self pollButton: (TCUButton new - extent: 100 @ 30; - text: '|||'; - on: #mouseUp send: #createPollEditor to: self; - name: 'openPollEditor'; - yourself). - self buttonMenu addMorph: self pollButton. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addStickerButton.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addStickerButton.st deleted file mode 100644 index 4cc8640d8..000000000 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addStickerButton.st +++ /dev/null @@ -1,10 +0,0 @@ -drawing -addStickerButton - - self stickerButton: (TCUButton new - extent: 100 @ 30; - text: 'Sticker'; - on: #mouseUp send: #buttonStickerPressed to: self; - name: 'sendSticker'; - yourself). - self buttonMenu addMorph: self stickerButton. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addbuttonMenuButton.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addbuttonMenuButton.st index 5b4844713..0fcadc0ad 100644 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addbuttonMenuButton.st +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/addbuttonMenuButton.st @@ -2,7 +2,6 @@ drawing addbuttonMenuButton self buttonMenuButton: (TCUButton new - extent: 50 @ 30; text: '+'; on: #mouseUp send: #createButtonMenu to: self; name: 'openButtonMenu'; diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createInputBar.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createInputBar.st index eb739a772..fd138ea15 100644 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createInputBar.st +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createInputBar.st @@ -2,7 +2,7 @@ drawing createInputBar self inputBar: (RectangleMorph new - borderWidth: 0; + borderWidth: self defaultBorderWidth; color: TCUDefaultValues colorLightGray; width: self width; height: self class defaultInputfieldHeight; @@ -11,8 +11,8 @@ createInputBar listDirection: #leftToRight; wrapDirection: #topToBottom; wrapCentering: #topLeft; - layoutInset: 2; + layoutInset: self class defaultLayoutInset; vResizing: #shrinkWrap; - cellInset: 8; + cellInset: self class defaultCellInset; hide; yourself). \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createTitleBar.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createTitleBar.st index f77d949bc..68a59e6b9 100644 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createTitleBar.st +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/createTitleBar.st @@ -2,14 +2,14 @@ drawing createTitleBar self titleBar: (AlignmentMorph newRow - borderWidth: 0; + borderWidth: self class defaultBorderWidth; color: TCUDefaultValues colorLightGray; width: self width; height: self class defaultTitleBarHeight; topLeft: self topLeft; layoutPolicy: TableLayout new; listDirection: #leftToRight; - layoutInset: 2; + layoutInset: self class defaultLayoutInset; hResizing: #spaceFill; vResizing: #shrinkWrap; cellInset: 12; diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/initialize.st index 2151043e7..176a0705f 100644 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/initialize.st +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/instance/initialize.st @@ -5,6 +5,6 @@ initialize self color: TCUDefaultValues colorLightGray; - borderWidth: 0; + borderWidth: self class defaultBorderWidth; selectedChat: TCCNullChat new; titleBar: Morph new. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChatWindow.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChatWindow.class/methodProperties.json index 8f989917d..e0d479735 100644 --- a/packages/TelegramClient-UI.package/TCUChatWindow.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChatWindow.class/methodProperties.json @@ -1,24 +1,24 @@ { "class" : { + "defaultBorderWidth" : "jkon 7/11/2024 15:47", + "defaultCellInset" : "jkon 7/11/2024 15:46", "defaultInputfieldHeight" : "JS 5/20/2022 11:08", + "defaultLayoutInset" : "jkon 7/11/2024 15:46", "defaultTitleBarHeight" : "JB 6/28/2021 09:42", "newWithHeight:width:" : "jkon 7/4/2024 22:50" }, "instance" : { "addChatMessageList" : "JB 7/6/2021 14:03", "addChatTitle" : "RK 8/4/2021 12:06", - "addFileButton" : "jkon 7/3/2024 18:28", "addHiddenInfoPage" : "jkon 7/3/2024 17:58", "addHiddenPollEditor" : "6/24/2024 10:41:19", "addInputBar" : "jkon 7/3/2024 18:09", "addMemberCount" : "RK 8/4/2021 12:06", - "addPollButton" : "jkon 7/3/2024 18:24", "addReplyMessage" : "JS 5/22/2022 19:39", "addSendButton" : "ek 6/19/2022 19:07", - "addStickerButton" : "jkon 7/3/2024 18:24", "addTextInputField" : "jkon 6/17/2024 09:58", "addTitleBar" : "RS 5/29/2021 18:12", "addWelcomeMessage" : "RK 8/4/2021 12:07", - "addbuttonMenuButton" : "jkon 7/4/2024 22:54", + "addbuttonMenuButton" : "jkon 7/11/2024 15:45", "buttonFileSelectPressed" : "jkon 7/5/2024 09:48", "buttonMenu" : "jkon 7/3/2024 17:54", "buttonMenu:" : "jkon 7/3/2024 17:55", @@ -31,14 +31,14 @@ "clear" : "jkon 7/5/2024 09:28", "core" : "js 8/2/2020 22:11", "createButtonMenu" : "jkon 7/5/2024 09:31", - "createInputBar" : "jkon 6/17/2024 09:59", + "createInputBar" : "jkon 7/11/2024 15:47", "createPollEditor" : "jkon 6/18/2024 13:38", - "createTitleBar" : "ek 6/19/2022 19:08", + "createTitleBar" : "jkon 7/11/2024 15:47", "fileButton" : "ED 6/19/2024 11:00", "fileButton:" : "ED 6/19/2024 10:59", "infoPage" : "RS 5/20/2021 21:14", "infoPage:" : "RS 5/20/2021 21:14", - "initialize" : "RS 5/20/2021 19:29", + "initialize" : "jkon 7/11/2024 15:48", "inputBar" : "rs 6/13/2020 10:38", "inputBar:" : "RK 8/4/2021 10:48", "newChatSelected:" : "jkon 7/4/2024 22:56", diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultBorderWidth.st b/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultBorderWidth.st new file mode 100644 index 000000000..8c7909214 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultBorderWidth.st @@ -0,0 +1,4 @@ +default values +defaultBorderWidth + + ^ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultSelectionMorphExtent.st b/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultSelectionMorphExtent.st new file mode 100644 index 000000000..29b643425 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultSelectionMorphExtent.st @@ -0,0 +1,4 @@ +default values +defaultSelectionMorphExtent + + ^ 22 @ 22 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultTextMorphPosition.st b/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultTextMorphPosition.st new file mode 100644 index 000000000..d23d95859 --- /dev/null +++ b/packages/TelegramClient-UI.package/TCUChoice.class/class/defaultTextMorphPosition.st @@ -0,0 +1,4 @@ +default values +defaultTextMorphPosition + + ^ 26 @ 0 \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st index b0e77b2c5..64a445668 100644 --- a/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addSelectionMorph.st @@ -4,5 +4,5 @@ addSelectionMorph selectionMorph := RectangleMorph new. selectionMorph color: TCUDefaultValues colorNileBlue; - extent: 22@22. + extent: self class defaultSelectionMorphExtent. self addMorph: selectionMorph. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st index a2fae5f79..a574ec5d9 100644 --- a/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/addTextMorph.st @@ -7,7 +7,7 @@ addTextMorph contents: self content; hResizing: #spaceFill; color: Color white; - position: 26@0; + position: self class defaultTextMorphPosition; readOnly: true; lock; yourself. diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st b/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st index bdcf65ddf..a52ea7c64 100644 --- a/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st +++ b/packages/TelegramClient-UI.package/TCUChoice.class/instance/initialize.st @@ -4,7 +4,7 @@ initialize super initialize. self color: TCUDefaultValues colorNileBlue; - borderWidth: 0; + borderWidth: self class defaultBorderWidth; hResizing: #shrinkWrap; vResizing: #shrinkWrap; on: #mouseDown send: #updateChoice to: self; diff --git a/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json index 143d55a1c..f2b59cb54 100644 --- a/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChoice.class/methodProperties.json @@ -1,12 +1,15 @@ { "class" : { + "defaultBorderWidth" : "jkon 7/11/2024 15:49", + "defaultSelectionMorphExtent" : "jkon 7/11/2024 15:50", + "defaultTextMorphPosition" : "jkon 7/11/2024 15:51", "newFor:" : "jkon 6/19/2024 18:26" }, "instance" : { - "addSelectionMorph" : "jkon 6/19/2024 18:32", - "addTextMorph" : "jkon 6/17/2024 15:32", + "addSelectionMorph" : "jkon 7/11/2024 15:50", + "addTextMorph" : "jkon 7/11/2024 15:51", "content" : "jkon 6/17/2024 15:32", "content:" : "jkon 6/17/2024 15:32", - "initialize" : "jkon 6/18/2024 10:03", + "initialize" : "jkon 7/11/2024 15:49", "isSelected" : "jkon 6/17/2024 14:52", "isSelected:" : "jkon 6/17/2024 14:52", "name" : "jkon 6/27/2024 19:30", diff --git a/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/instance/addSelectionMorph.st b/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/instance/addSelectionMorph.st index dba5d5c18..334743574 100644 --- a/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/instance/addSelectionMorph.st +++ b/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/instance/addSelectionMorph.st @@ -4,5 +4,5 @@ addSelectionMorph selectionMorph := CircleMorph new. selectionMorph color: TCUDefaultValues colorNileBlue; - extent: 22@22. + extent: self class defaultSelectionMorphExtent. self addMorph: selectionMorph. \ No newline at end of file diff --git a/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/methodProperties.json b/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/methodProperties.json index 578c33261..c7f188d31 100644 --- a/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/methodProperties.json +++ b/packages/TelegramClient-UI.package/TCUChoiceExclusive.class/methodProperties.json @@ -2,7 +2,7 @@ "class" : { "newFor:inPoll:" : "jkon 6/19/2024 18:27" }, "instance" : { - "addSelectionMorph" : "jkon 6/19/2024 18:28", + "addSelectionMorph" : "jkon 7/11/2024 15:52", "poll" : "jkon 6/19/2024 18:20", "poll:" : "jkon 6/19/2024 18:21", "updateChoice" : "jkon 6/19/2024 18:35" } }