Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Stencil: Give an exact initial size to the "Load a local repository" page #9

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Stencil: Give an exact initial size to the "Load a local repository" page #9

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
50 changes: 27 additions & 23 deletions src/GToolkit4Git/GtGitAddRepositoryStencil.class.st
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ GtGitAddRepositoryStencil >> initialPage [
id: anItemObject second;
when: BlClickEvent do: anItemObject third ];
fitContent;
padding: (BlInsets all: 3);
padding: (BlInsets all: 10);
items: {{'Clone a remote repository'.
#'git-remote'.
[ self openGithubPage ]}.
Expand All @@ -66,10 +66,11 @@ GtGitAddRepositoryStencil >> initialPage [
{ #category : #accessing }
GtGitAddRepositoryStencil >> initializePage [
| fileBrowser |
fileBrowser := BrFileSelector new margin: (BlInsets all: 5).
fileBrowser := BrFileSelector new margin: (BlInsets all: 10).

fileBrowser vExact: 400.
fileBrowser hExact: 464.
fileBrowser
vExact: 400;
hExact: 464.

fileBrowser
buttonLabel: 'Initialize';
Expand Down Expand Up @@ -99,29 +100,32 @@ GtGitAddRepositoryStencil >> initializePage [

{ #category : #accessing }
GtGitAddRepositoryStencil >> localPage [

| fileBrowser |
fileBrowser := BrFileSelector new margin: (BlInsets all: 5).
fileBrowser := BrFileSelector new margin: (BlInsets all: 10).

fileBrowser matchParent.
fileBrowser
vExact: 400;
hExact: 464.

fileBrowser buttonLabel: 'Import'.
fileBrowser okAction: [ :filePath |
| repo |
repo := IceRepositoryCreator new
location: filePath;
createRepository.
repo register.
Iceberg announcer announce: (IceRepositoryAnnouncement for: repo).
self onCreated value: repo.
dropdown ifNotNil: [
dropdown enqueueTask: (BlTaskAction new action: [
dropdown dispatchEvent:
(BrDropdownHideWish new anchor: dropdown) ]) ] ].

fileBrowser fileFilterBlock: [ :aFileReference |
aFileReference isDirectory and: [
(FileSystemDirectoryEntry reference: aFileReference) isHidden not ] ].
fileBrowser
okAction: [ :filePath |
| repo |
repo := IceRepositoryCreator new
location: filePath;
createRepository.
repo register.
Iceberg announcer announce: (IceRepositoryAnnouncement for: repo).
self onCreated value: repo.
dropdown
ifNotNil: [ dropdown
enqueueTask: (BlTaskAction new
action: [ dropdown dispatchEvent: (BrDropdownHideWish new anchor: dropdown) ]) ] ].

fileBrowser
fileFilterBlock: [ :aFileReference |
aFileReference isDirectory
and: [ (FileSystemDirectoryEntry reference: aFileReference) isHidden not ] ].
^ fileBrowser
]

Expand Down