File tree Expand file tree Collapse file tree 2 files changed +22
-11
lines changed
packages/TelegramClient-UI.package
TCUAuthentication.class/instance Expand file tree Collapse file tree 2 files changed +22
-11
lines changed Original file line number Diff line number Diff line change
1
+ accessing
2
+ addLogoutButtonTo: aMorph withSpacing: aSpacing
3
+
4
+ | logoutButton |
5
+
6
+ logoutButton := TCUButton new
7
+ text: ' logout' ;
8
+ on: #mouseUp send: #logout to: self .
9
+ logoutButton position: (aMorph position x + aMorph width - logoutButton width - aSpacing) @ aSpacing.
10
+
11
+ aMorph addMorph: logoutButton.
Original file line number Diff line number Diff line change 1
1
initialization
2
2
addHeader
3
3
4
- | header logoutButton |
5
-
6
- header := self createHeaderMorph.
7
-
8
- logoutButton := TCUButton new
9
- text: ' logout' ;
10
- on: #mouseUp send: #logout to: self ;
11
- position: header position + 5 .
12
-
13
- self
4
+ | header |
5
+
6
+ header := RectangleMorph new
7
+ borderWidth: 0 ;
8
+ color: TCUDefaultValues colorGray;
9
+ extent: self width @ self defaultHeaderHeight.
10
+
11
+ self
14
12
addMorph: header;
15
13
addTitle: ' Telegram' to: header;
16
- addMorph: logoutButton.
14
+ addLogoutButtonTo: header withSpacing: 5
15
+
16
+
You can’t perform that action at this time.
0 commit comments