diff --git a/Iceberg-Plugin-GitHub.package/IceDiff.extension/instance/changes.st b/Iceberg-Plugin-GitHub.package/IceDiff.extension/instance/changes.st new file mode 100644 index 0000000000..4a1301b977 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiff.extension/instance/changes.st @@ -0,0 +1,4 @@ +*Iceberg-Plugin-GitHub +changes + "I am called by Iceberg's UI to get UI nodes for the tree" + ^ (IceDiffNode on: tree) children \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiff.extension/properties.json b/Iceberg-Plugin-GitHub.package/IceDiff.extension/properties.json new file mode 100644 index 0000000000..21a1aa299e --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiff.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "IceDiff" +} \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/README.md b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/README.md new file mode 100644 index 0000000000..e69de29bb2 diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/class/on..st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/class/on..st new file mode 100644 index 0000000000..f11ecfcb41 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/class/on..st @@ -0,0 +1,6 @@ +instance-creation +on: anIceNode + + ^ self new + node: anIceNode; + yourself \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/balloonText.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/balloonText.st new file mode 100644 index 0000000000..84b17bee05 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/balloonText.st @@ -0,0 +1,4 @@ +morph-compatibility +balloonText + + ^ nil \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/browse.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/browse.st new file mode 100644 index 0000000000..9dcdee0dbf --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/browse.st @@ -0,0 +1,4 @@ +as yet unclassified +browse + + ^ node value browse \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/canBeBrowsed.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/canBeBrowsed.st new file mode 100644 index 0000000000..e0e95bcb94 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/canBeBrowsed.st @@ -0,0 +1,4 @@ +ui +canBeBrowsed + + ^ node value canBeBrowsed \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/canBrowseReferences.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/canBrowseReferences.st new file mode 100644 index 0000000000..97cf709a4f --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/canBrowseReferences.st @@ -0,0 +1,4 @@ +ui +canBrowseReferences + + ^ node value canBrowseReferences \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/children.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/children.st new file mode 100644 index 0000000000..8763863684 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/children.st @@ -0,0 +1,4 @@ +accessing +children + + ^ node children collect: [ :e | IceDiffNode on: e ] \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/contents.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/contents.st new file mode 100644 index 0000000000..8dc70144ab --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/contents.st @@ -0,0 +1,4 @@ +morph-compatibility +contents + + ^ self children \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/description.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/description.st new file mode 100644 index 0000000000..666735575b --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/description.st @@ -0,0 +1,4 @@ +accessing +description + + ^ node description \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/hasContents.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/hasContents.st new file mode 100644 index 0000000000..5fd064d242 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/hasContents.st @@ -0,0 +1,4 @@ +morph-compatibility +hasContents + + ^ node notEmpty \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/hasEquivalentIn..st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/hasEquivalentIn..st new file mode 100644 index 0000000000..7f4b372a01 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/hasEquivalentIn..st @@ -0,0 +1,5 @@ +morph-compatibility +hasEquivalentIn: aCollection + + self haltIf: [ aCollection notEmpty ]. + ^ false \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/highlightingColor.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/highlightingColor.st new file mode 100644 index 0000000000..8b26cbcd14 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/highlightingColor.st @@ -0,0 +1,4 @@ +morph-compatibility +highlightingColor + + ^ self theme selectionColor \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/icon.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/icon.st new file mode 100644 index 0000000000..6bdcbcf2e5 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/icon.st @@ -0,0 +1,4 @@ +ui +icon + + ^ node value icon \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/install.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/install.st new file mode 100644 index 0000000000..6470e573d0 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/install.st @@ -0,0 +1,4 @@ +actions +install + + ^ node value install \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/key.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/key.st new file mode 100644 index 0000000000..bd6e31c474 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/key.st @@ -0,0 +1,4 @@ +accessing +key + + ^ node key \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/myVersion.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/myVersion.st new file mode 100644 index 0000000000..b9253e5084 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/myVersion.st @@ -0,0 +1,4 @@ +accessing +myVersion + + ^ node value leftContents \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/node..st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/node..st new file mode 100644 index 0000000000..66ba7d73ff --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/node..st @@ -0,0 +1,4 @@ +accessing +node: anIceNode + + node := anIceNode \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/node.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/node.st new file mode 100644 index 0000000000..fb26672f0a --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/node.st @@ -0,0 +1,4 @@ +accessing +node + + ^ node \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/printOn..st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/printOn..st new file mode 100644 index 0000000000..ea23b3cf1b --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/printOn..st @@ -0,0 +1,4 @@ +printing +printOn: aStream + + self description printOn: aStream \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/theirVersion.st b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/theirVersion.st new file mode 100644 index 0000000000..155593d0f8 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/instance/theirVersion.st @@ -0,0 +1,4 @@ +accessing +theirVersion + + ^ node value rightContents \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceDiffNode.class/properties.json b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/properties.json new file mode 100644 index 0000000000..8037a82b8b --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceDiffNode.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "Object", + "category" : "Iceberg-Plugin-GitHub-Old", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "node", + "diff" + ], + "name" : "IceDiffNode", + "type" : "normal" +} \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/compose.st b/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/compose.st new file mode 100644 index 0000000000..4aff97c0d4 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/compose.st @@ -0,0 +1,5 @@ +building +compose + self tabulator with: [ :browser | + browser initialExtent: self initialExtent. + self composeBrowserOn: browser ] \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/mergeBaseCommitFor..st b/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/mergeBaseCommitFor..st new file mode 100644 index 0000000000..f371bcbfe0 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/mergeBaseCommitFor..st @@ -0,0 +1,3 @@ +actions +mergeBaseCommitFor: commitInfo + ^ commitInfo repository lookupCommit: (self mergeBaseFor: commitInfo) \ No newline at end of file diff --git a/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/mergeBaseFor..st b/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/mergeBaseFor..st new file mode 100644 index 0000000000..7df9a6d6b9 --- /dev/null +++ b/Iceberg-Plugin-GitHub.package/IceGitHubPullRequestBrowser.class/instance/mergeBaseFor..st @@ -0,0 +1,8 @@ +actions +mergeBaseFor: commitInfo + self flag: #bug. + "Should use #commonAncestorWith:" + + ^ commitInfo repository + mergeBaseBetween: commitInfo id + and: self baseSHA \ No newline at end of file